Macro pour dupliquer des lignes (pour publipostage étiquettes)

[yannick collins]

Bonjour,

Pouvez-vous m'aider pour le problème suivant.

J'ai dans une table les champs suivants :

Nom/Adresse/Code/Localité/Pays/Nbre_Etiquette

J'aimerais via l'utilisation d'une macro, copier la ligne autant de fois que la valeur du champs "Nbre_Etiquette" dans une autre feuille du classeur (pour impression d'étiquette via publipostage dans word).

Je ne suis pas assez doué pour programmer cette macro et l'aide d'un utilisateur expérimenté pourrait me rendre un super service.

J'espère que ma question est claire pour vous

Merci d'avance pour vos suggestions


Yan

 

[Cousinhub]

Re : Macro pour dupliquer des lignes (pour publipostage étiquettes)

Bonsoir,

un petit essai

regarde le fichier joint, et clique sur le rectangle jaune

Le code :

Sub etiquette()
Dim Etiq As Object, Cel As Range
Dim DerLig As Long, I As Byte
With Sheets("base")
Set Etiq = CreateObject("Scripting.Dictionary")
    For Each Cel In .Range("F2:F" & .[F65000].End(xlUp).Row)
        Etiq.Add Cells(Cel.Row, 1).Value, Cel.Row
    Next Cel
    LeNombre = Etiq.items
End With
With Sheets("publi")
    For I = 0 To Etiq.Count - 1
        DerLig = .[A65000].End(xlUp).Row + 1
        .Cells(DerLig, 1).Resize(LeNombre(I), 5).Value = Cells(I + 2, 1).Resize(1, 5).Value
    Next I
End With
End Sub

le fichier :

 

[yannick collins]

Re : Macro pour dupliquer des lignes (pour publipostage étiquettes)

Un tout grand merci Bhbh. C'est ce qu'il me fallait

Bonne journée

Yan