Insertion lignes

[bobjazz]

Bonjour le Forum

Voilà, j'ai un feuille qui est constitué d'environ 400 lignes qui se suivent, mon but serait d'inserer une ligne vide sur deux,à l'aide d'un code vba.
J'ai fait des recherches, mais aucun code ne convenait.
Merci d'avance, je reste pour des questions.

Bobjazz

 

[GPLIONEL]

Re : Insertion lignes

Bonjour Bobjazz,

une petite macro rapide :

Sub Macro1()
Range("a2").Select
ligne1:
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
If ActiveCell = "" Then
End
End If
GoTo ligne1
End Sub

Bonne journée

Lionel

 

[Robert]

Re : Insertion lignes

Bonjour BobJazz, GPLionel, bonjour le forum,

Au moment où j'allais t'envoyer ma réponse j'ai découvert celle de Lionel. Je te l'envoie quand même tu auras deux options...

Sub Macro1()
Dim li As Integer
li = Range("A65536").End(xlUp).Row 'à adapter à ton cas
For x = 2 To li
    li = Cells(1, 1).End(xlDown).Row
    Rows(li).Insert shift:=xlUp
Next x
End Sub

 

[PascalXLD]

Re : Insertion lignes

Bonjour

Histoire d'en mettre une autre couche

Sub Macro1()

Dim x As Integer, maligne As Integer

maligne = Range("A65536").End(xlUp).Row
For x = maligne To 2 Step -1
    Rows(x).Insert Shift:=xlDown
Next

End Sub

 

[bobjazz]

Re : Insertion lignes

Re Bonjour

Merci à vous tous, j'ai même le choix

Merci encore

bobjazz