XL 2016 créer et imprimer les étiquette autocollant

[Seddiki_adz]

Bonjour
j'ai besoin d'un code pour créer et imprimer les autocollant
Merci

 

[vgendron]

Bonjour

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.

 

[Seddiki_adz]

Bonjour

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.

bonjour
je veut créer 4 étiquette dans chaque seule feuil puis imprimer

 

[vgendron]

Sur 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??

 

[Seddiki_adz]

Sur 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??

oui je veux remplir les étiquettes par code puis un code d'impression automatiser

 

[vgendron]

en pj un test

 

[Seddiki_adz]

en pj un test

Merci
en peut créer seulement 4 étiquette? voir feuil3

 

[vgendron]

Suffit d'aller voir le code et modifier la ligne qui va bien..
faut faire un minimum d'effort

 

[Seddiki_adz]

Suffit d'aller voir le code et modifier la ligne qui va bien..
faut faire un minimum d'effort

Merci

 

[Seddiki_adz]

voila j'ai changer le code
mais il ya un probleme

 

[vgendron]

si tu changes la forme de tes étiquettes, forcément, le code n'est plus adapté
est ce que au moins tu essaies de comprendre ce que je te propose?

au passage.. j'espère juste que tu nes pas enseignant......sinon; c'est grave

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

 

[vgendron]

Je te laisse chercher ce qu'il faut corriger dans le code

touche F8 pour executer le code en pas à pas

 

[Seddiki_adz]

Une autre question
si possible d'ajouter un code pour le choix de la page a imprimer?

 

[AtTheOne]

Bonsoir @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

 

[Seddiki_adz]

Bonsoir @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

Merci
je préféré excel