insérer plusieurs ligne en même temps

[bigjer]

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.

 

[Hervé]

Bonsoir bigjer, le forum

Tu pourrais peut-etre essayer ce type de code :

Dim nombre As Long

nombre = Application.InputBox('Combien de ligne ?', Type:=1)
If nombre < 1 Or nombre > 65536 Then Exit Sub
Rows('3:' & 3 + nombre).Insert

salut

 

[bigjer]

je viens d'essayer mais cela ne fonctionne pas

 

[fifi]

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

 

[bigjer]

Cela Fonctionne
Je te remercie