XL 2016 impression quantité etiquette

[lamho27]

Bonjour à Toutes & Tous,
j'ai 8 étiquettes chaque page, je voudrais imprimer nombres étiquettes par le bouton clic

Qui peut me donner le code en VBA pour imprimer avec quantités étiquette dans cellule B3.

Vous remerciant par avance..

 

[Lone-wolf]

Bonsoir lamho

Avant ça, régle les sauts de pages, tout est décalé. Ensuite remet le fichier.

 

[lamho27]

merci de vos réponse
nouvelle pièce joint

 

[Lone-wolf]

Bonjour lamho, le Forum.

Ton fichier en retour. Mode d'emploi: sélectionne le nombre d'étiquettes (ou une zone d'étiquettes,
par exemple: A80:Q136 - A104:Q160 etc.) que tu veux imprimer, puis clique sur le bouton.

 

[lamho27]

bonjour Lone-wolf
merci de ton fichier, mais je veux imprimer commencer d'étiquette N° 1 page 1 et quantité dans cellule B3 de feuil 1
codialement

 

[Lone-wolf]

Re

Est-ce que tu as compris ce que tu peux faire dans mon précédent message? 🙄
Sélectionne le nombre d'étiquettes que tu veux imprimer de 1 à 1000.
Ou, sélectionne des étiquettes par ex. n°2 -4-6-8 ou n°11-13-15 ou n° 30 à 50 etc.

Voici le fichier avec l'ajout d'une ligne de code. Le boutton se positionne à la hauteur de la sélection.
Les pdf exemples.

EDIT: quel est l'intêret de réimprimer à chaque fois, les étiquettes que tu as déjà imprimé?? 😵
Si tu veux gaspiller de l'encre et du papier, c'est toi qui sait.

 

[lamho27]

bonjour Lone-wolf
j'ai compris que t'as fait, mais je veux imprimer de 1 à 1000 ( avec quantité au cellule B3 )
codialement

 

[Lone-wolf]

Re

J'en était sûr. Alors voilà. Inscrit le nombre en b3, tape ENTER du clavier, puis clique sur Imprimer.

 

[lamho27]

bonjour Lone-wolf
merci bien, comme je veux ; mais est ce que tu peux faire un peu plus simple impression directement sans passer " aperçu avant impression "
codialement

 

[Lone-wolf]

Re

Dans le code, supprime Activesheet.PrintPreview

 

[lamho27]

bonjour Lone-wolf
ne pas marcher , quand je supprime
Activesheet.PrintPreview
codialement

 

[Lone-wolf]

Re

J'ai fait la correction. Fait un test.

 

[job75]

Bonjour lamho27, Lone-wolf,

A mon avis les lignes telles que les 12-13-14 ne doivent pas être imprimées, vous êtes d'accord ?

Donc on les masque, testez le fichier joint avec ce code :

Sub Imprimer()
Dim Npage&, Nder%, pas%, Nmasque%, n&, lig&, p%
With Feuil1 'CodeName
    .[B3] = Int(Val(.[B3]))
    Npage = Application.Ceiling(.[B3] / 8, 1)
    If Npage < 1 Then Exit Sub
    Nder = .[B3] - 8 * (Npage - 1) 'nombre d'étiquettes en dernière page
End With
pas = 14 'à adapter
Nmasque = 3 'nombre de lignes à masquer à chaque pas, à adapter
With Feuil7 'CodeName de la feuille à imprimer
    .Visible = xlSheetVisible 'au cas où...
    .Copy 'document auxiliaire
End With
With ActiveWorkbook.Sheets(1)
    For n = 1 To Npage
        lig = 1 + (n - 1) * pas * 4 'n° de la 1ère ligne
        '---masquage des lignes à ne pas imprimer(12-13-14)---
        For p = 1 To 4
            .Rows(lig + pas * p - Nmasque).Resize(Nmasque).Hidden = True
        Next
        '---effacement des étiquettes excédentaires en dernière page---
        If n = Npage Then Rows(lig + pas * Application.Ceiling(Nder, 2) / 2).Resize(pas * 4).Clear
        '---mise en page---
        With .PageSetup
            .PrintArea = "$A$" & lig & ":$Q$" & lig + pas * 4 - 1 'zone d'impression
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        '---impression---
        .PrintPreview 'pour tester
        '.PrintOut 'pour imprimer
    Next
    .Parent.Close False 'fermeture du document auxiliaire
End With
End Sub

Bien sûr pour imprimer rendre active l'instruction .PrintOut 'pour imprimer

A+

 

[Lone-wolf]

Bonjour job75 🙂

Non, c'est les lignes en bleu et en jaune qui ne faut pas tenir compte. Ce qui est bizarre, c'est quand tu vas dans fichier > imprimer, la feuille est en noir et blanc sans ces lignes en couleur.

Et, est-ce que tu peux tester le dernier fichier que j'ai mis, il est sous excel 2016 et dit que la macro ne fonctionne pas.

Avant de tester il faut mettre à la place .PrintPreview. Merci pour ton retour.

EDIT: il faut supprimer une boucle(dans ta macro), pour éviter de fermer l'aperçus et continuer l'impression.

 

[job75]

Re,

Non, c'est les lignes en bleu et en jaune qui ne faut pas tenir compte.

Bah pourquoi pas, alors initialiser à 1 :

Nmasque = 1 'nombre de lignes à masquer à chaque pas, à adapter

Cela dit quel est l'intérêt d'imprimer 1E+08 8 fois dans chaque page ?

A+