ajout cellule

jean123

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

Yurperqod

XLDnaute Occasionnel
Bonjour le forum

Sans plus de détails, voir si cela convient
VB:
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.
 

Yurperqod

XLDnaute Occasionnel
Est-ce possible pour toi de joindre un fichier exemple?
Il pourrait servir à confirmer que la macro ci-dessous marche bien
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh