Bonsoir Nico,
Voici le petit bout de code qui te dépannera je pense !
J'ai mis un peu de temps à répondre car j'étais occupé ailleurs !!
Je suppose que les valeurs à recopier autant de fois qu'il est nécessaire sont en colonnes 1 et 2
Les boucles ci dessous permettent de créer autant d'occurences en colonnes 4 et 5 que le nombre d'étiquettes indiqué en colone 3.
Si tu avais plus de 2 colonnes de données il faudrait bien sur adapter ! mais je pense que tu pourras faire ! Sinon ..... fais signe !
Au fait, la boucle tourne tant qu'il y a quelque chose (espace compris !) en colonne 1 !!
A la fin de l'éxécution, il sufit soit de supprimer les colonnes 1, 2 et 3 soit de recopier les colonnes 4 et 5 dans un nouveau classeur pour que tu ai des données 'propres' pour word.
Bonne nuit !
Sub test()
i = 1
j = 1
Do While IsEmpty(Cells(i, 1)) = False
For k = 1 To Cells(i, 3)
Cells(j, 4) = Cells(i, 1)
Cells(j, 5) = Cells(i, 2)
j = j + 1
Next k
i = i + 1
Loop
End Sub
NB : Monsieur le modérateur, y aurait-il une soluce pour conserver l'indentation dans les posts SVP ?