ajout cellule

jean123 · 3 Août 2016

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

Yurperqod · 3 Août 2016

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.

jean123 · 3 Août 2016

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 · 3 Août 2016

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

ajout cellule

jean123

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

jean123

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

Discussions similaires

ajout cellule

jean123

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

jean123

XLDnaute Occasionnel

Yurperqod

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency