Excel: exemple de macro pour insérer plusieurs lignes

Microsoft Excel héberge un certain nombre de fonctionnalités permettant aux utilisateurs de créer des feuilles de calcul parfaitement adaptées à leurs besoins. Parmi ces fonctionnalités, il y a la possibilité de créer une macro, qui permet aux utilisateurs de faire des calculs et des manipulations de données sans passer par des mouvements répétitifs.

Insérer plusieurs lignes dans une feuille de calcul Excel

Tâche Excel

L'astuce ci-dessous vous permettra d' insérer plusieurs lignes entre des lignes existantes dans une feuille de calcul Excel. Cette macro vous permettra d'insérer un nombre défini de lignes vides dans votre feuille de calcul et peut être modifiée en fonction de vos besoins.

Avant la macro:

 Titre1
Titre2
Titre3
Titre4 

Après la macro:

Titre1
Titre2
Titre3
Titre4 

Exemple de macro

Voici le code de macro nécessaire pour effectuer la tâche ci-dessus:

 Sous test ()
Dim j As Long, r As Range
j = InputBox ("tapez le nombre de lignes à insérer")
Définir r = Plage ("A2")
Faire
Range (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Définir r = Cells (r.Row + j + 1, 1)
MsgBox r.Address
Si r.Offset (1, 0) = "" puis quittez Exit
Boucle
End Sub