Excel - Une macro pour insérer des lignes vides

• Problème
• Solution

Problème

Vous essayez de créer une macro qui insérera un jeu de lignes vides dans une feuille de calcul existante après chaque entrée. La quantité de lignes nécessaires sera la même pour chaque entrée de la feuille de calcul, mais devra être modifiée à chaque utilisation.

Voici un échantillon ...

Actuellement:

 Titre1
Titre2
Titre3
Titre4 

Après avoir utilisé Macro:

 Titre1
Titre2
Titre3
Titre4

Le nombre de lignes vierges peut aller de 20 à 40.

Solution

A1 a des en-têtes.

Alors essayez cette macro

conservez votre fichier original quelque part

commencez par tester la macro dans les données expérimentales que vous avez envoyées

 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

Merci à venkat1926 pour cette astuce.