Parfois, vous pouvez obtenir une feuille de travail de quelqu’un d’autre et vous avez besoin d’un peu d’espace pour travailler sur les informations fournies. Par exemple, vous pouvez trouver utile d’ajouter des lignes vides entre chacune des lignes d’origine d’une table de données. Bien que cela puisse être fait assez facilement à l’aide du menu Insertion, cela peut rapidement devenir fastidieux, en particulier si vous avez une grande table que vous souhaitez étaler.

La macro suivante vous aidera énormément dans cette situation. Tout ce que vous avez à faire est de sélectionner la première ligne du tableau de données. Lorsque vous exécutez la macro, il vous demande combien de lignes vides vous souhaitez insérer entre les lignes d’origine. Lorsque vous indiquez un nombre, la macro parcourt le tableau et commence à insérer des lignes vides. La macro s’arrête lorsque la première cellule vide après la table d’origine est détectée.

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer          iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (10005) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

lien: / excel-Spreading_Out_a_Table [Étaler une table].