Bonjour,
Je souhaite insérer une ligne à chaque fois qu’il y a une donnée en colonne D (Nom4), pour ensuite déplacer et rajouter cette donnée en colonne E (Nom5), avec le remplissage automatique des données de la colonne A (Nom1) et colonne B (Nom2).
J’ai commencé un début de code, mais je ne vois comment faire la suite :
Voir fichier ci-joint
Merci de votre aide
Je souhaite insérer une ligne à chaque fois qu’il y a une donnée en colonne D (Nom4), pour ensuite déplacer et rajouter cette donnée en colonne E (Nom5), avec le remplissage automatique des données de la colonne A (Nom1) et colonne B (Nom2).
J’ai commencé un début de code, mais je ne vois comment faire la suite :
Voir fichier ci-joint
Code:
Sub Macro4()
dlgn = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
With Sheets("Feuil1")
For Each C In Worksheets("Feuil1").Range("D2:D" & dlgn)
If C <> "" Then Worksheets("Feuil1").Rows(C).Insert Shift:=xlDown
'... Puis récupérer les données de la colonne A (Nom1) et colonne B (Nom2).
Next
End With
End SubMerci de votre aide