insérer plusieurs ligne en même temps

B

bigjer

Guest
bonjour,
je voudrais pouvoir insérer plusieur lignes d'un seul coup. J'ai fait ceci avec l'enregistreur de macro :

Sub Macro2()
Selection.EntireRow.Insert
End Sub

si quelqu'un pourrai m'indiquer pour faire ceci mais en définissant un nombre de ligne à insérer.

une sorte de boucle X fois en quelque sorte.
 
F

fifi

Guest
euh je me trompe peut etre...


avec la précaution de mettre curseur là ou tu veux que inserer les lignes

Sub Macro2()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error Resume Next
Dim I, NbLigne As Variant
NbLigne = InputBox('NB = ', 'Nombre de lignes à inserer')
For I = 1 To NbLigne
Selection.EntireRow.Insert
Next I

End Sub
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 932
Messages
2 093 733
Membres
105 802
dernier inscrit
Witchun