bonjourBonjour
plutot que poster deux fois la meme chose
https://www.excel-downloads.com/threads/impression-etiquette-autocollant.20067239/
il est peut etre plus utile de préciser le besoin.
parce que la.. j'ai envie de te dire: fichier imprimer.
oui je veux remplir les étiquettes par code puis un code d'impression automatiserSur ta feuille2, il y a 8 étiquettes.. pas 4.
et je suppose que tu veux remplir les étiquettes à partir de la feuille 1??
comment tu choisis les étiquettes à créer??
Mercien pj un test
MerciSuffit d'aller voir le code et modifier la ligne qui va bien..
faut faire un minimum d'effort
Sub imprimer()
Dim TabData() As Variant
Dim NbEtiquette As Long
NbEtiquette = 4
With Sheets("Feuil1")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
TabData = .Range("A2:F" & fin).Value
End With
With Sheets("Feuil3")
.Activate
indi = 1
indj = 3
For i = LBound(TabData, 1) To UBound(TabData, 1)
.Cells(2 + (indi - 1) * 5, indj) = TabData(i, 1)
.Cells(4 + (indi - 1) * 5, indj) = TabData(i, 3)
.Cells(6 + (indi - 1) * 5, indj) = TabData(i, 4)
.Cells(8 + (indi - 1) * 5, indj) = TabData(i, 5)
.Cells(2 + (indi - 1) * 5, indj + 3) = TabData(i, 2)
.Cells(8 + (indi - 1) * 5, indj + 3) = TabData(i, 6)
indj = IIf(indj = 3, 9, 3)
indi = IIf(indj = 3, indi + 1, indi)
If ((i - 1) Mod NbEtiquette) + 1 = NbEtiquette Then
indi = 1
'lancer impression de la page
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
clearlabel 'effacer les etiquettes
End If
Next i
End With
End Sub
Sub clearlabel()
With Sheets("Feuil3")
.Range("C:C").ClearContents
.Range("F:F").ClearContents
.Range("I:I").ClearContents
.Range("L:L").ClearContents
End With
End Sub
MerciBonsoir @Seddiki_adz ,
Dans WORD, il y à une fonctionnalité Publipostage qui fait très bien ce genre de travail, et en plus on peut choisir un format d'étiquette adapté à ton besoin.
Ta liste EXCEL pouvant servir de source au document WORD.
Amicalement
Alain