ajout cellule

[jean123]

bonjour
je souhaite ajouter une cellule toutes les 6 ligne uniquement dans une colonne sans modifier les autres colonnes
est-ce possible?

 

[Yurperqod]

Bonjour le forum

Sans plus de détails, voir si cela convient

Sub test()
Dim v_Lig As Long, v_DL As Long
v_DL = Range("A" & Rows.Count).End(xlUp).Row
    For v_Lig = 6 To v_DL Step 6
        Cells(v_Lig, "A").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next v_Lig
End Sub

Un fichier exemple serait le bienvenu.

 

[jean123]

nickel ça marche merci
Si maintenant je souhaite faire la même chose pour une ligne entière en ajout toutes les 6 ligne
est-ce possible ?

 

[Yurperqod]

Est-ce possible pour toi de joindre un fichier exemple?
Il pourrait servir à confirmer que la macro ci-dessous marche bien

Sub testV2()
Dim v_Lig As Long, v_DL As Long
v_DL = Range("A" & Rows.Count).End(xlUp).Row
    For v_Lig = 6 To v_DL Step 6
        Rows(v_Lig).Insert Shift:=xlDown
    Next v_Lig
End Sub