Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…