insertion de lignes

[aandre01]

Dans un fichier excel 2000 de 5000 lignes, je souhaite insérer une ligne vierge entre chaque ligne.
Qui peut me donner la solution.
merci

 

[Delcourt]

Sub insere()
Range("a1").Select
For i = 1 To 5000
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).EntireRow.Select
Next
End Sub

Bon travail

 

[Von]

Merci également car je viens de lire la réponse et de découvrir ce qui me manquait détaillé dans l'aide INSERT.

Bonne soirée.

 

[Moa]

Salut aandré01 !

Tiens une autre macro, qui n'est pas de moi, mais qui fonctionne.


Sub MacroInsertUneLigneSurDeux()
Dim Line As Integer
Range("A2").Select
Line = 1
Recommence:
Line = Line + 2
Rows(Line).Select
Selection.Insert Shift:=xlDown
If Line < ActiveSheet.UsedRange.Rows.Count Then
GoTo Recommence
End If
End Sub

@ +

Moa