inserer une ligne

[maval]

Bonjour

Je suis à la recherche d'un code pour insérer une ligne toute les six lignes c'est à dire comme ceci
1- BlaBla
2- BlaBla
3- BlaBla
4- BlaBla
5- BlaBla
6- ici ligne vide
7- BlaBla
8- BlaBla
9- BlaBla
10-BlaBla
11-BlaBla
12- ici ligne vide
13-BlaBla
14- ect.........

je vous remercie d'avance
Cordialement

max

 

[maval]

Re,

J'ai trouvé une solution en faisant ceci si quelqu'un sa intéresse.

Sub InsereLign()

Dim Plage As Range
Dim L As Long

    Application.ScreenUpdating = False
    Set Plage = Rows(6)
    For L = 11 To 2250 Step 5
        Set Plage = Application.Union(Plage, Rows(L))
    Next L
    Plage.Insert Shift:=xlDown
    Application.ScreenUpdating = True
    MsgBox "Insertion terminée !"

End Sub

@+

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub LigneVide()
Dim DerL&, Lig&
DerL = Feuil1.Range("A" & Rows.Count).End(3).Row
For Lig = 1 To DerL
If Lig Mod 7 = 0 Then Rows(Lig).EntireRow.Insert
Next Lig
End Sub

A+ à tous

 

[maval]

RE JC

Je te remercie sa fonctionne nickel

Bonne fin de soirée