insérer plusieurs ligne en même temps

bigjer · 29 Septembre 2005

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é · 29 Septembre 2005

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 · 29 Septembre 2005

je viens d'essayer mais cela ne fonctionne pas

fifi · 29 Septembre 2005

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 · 29 Septembre 2005

Cela Fonctionne
Je te remercie

insérer plusieurs ligne en même temps

bigjer

Guest

Hervé

XLDnaute Barbatruc

bigjer

Guest

fifi

Guest

bigjer

Guest

Discussions similaires