XL 2019 Dupliquer lignes

bakriboc · 6 Janvier 2022

Bonjour,
Je souhaite créer 2 lignes supplémentaires en dessous de chaque ligne.
La colonne L a un numéro unique je souhaite par exemple que ABCD -A01-1 soit créé 3 fois....
J'ai des centaines de lignes et j'évite de le faire manuellement...

Merci

Abou

sylvanu · 6 Janvier 2022

Bonjour Bakriboc,
Un essai en PJ avec :

VB:

Sub DupliqueLigne()
    Application.ScreenUpdating = False
    DL = Range("L65500").End(xlUp).Row
    For Ligne = DL To 2 Step -1
        Rows(Ligne + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Rows(Ligne + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next Ligne
End Sub

Pour lancer la macro : ALT+F8 et exécuter DupliqueLigne;
Ce qui n'est pas clair c'est si les lignes crées doivent être vides ( c'est le cas de cette macro ) ou la copie de la ligne précédente.
Dans le second cas, je reprendrais la macro en conséquence.

XL 2019 Dupliquer lignes

bakriboc

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires