Microsoft 365 Impression de code barre

S

sam1980

XLDnaute Nouveau
Bonjour à tous ,

voilà j'ai un script Vba qui me permet de générer et d'imprimer des code barre.
Alors quand je lance la génération l'impression se lance automatiquement selon la quantité demandé.
Mais si jamais je me trompe dans la quantité je ne peux plus annuler l'impression et chaque code barre s'imprime sur 1 feuille A4.

ce que je voudrais c'est imprimé plusieurs code barre sur une page 2 ou 3 ensuite avoir la possibilté d'avoir un bouton pour annulé impression en cas d'erreur.

Voici le code :

Sub Générationx10STRADIVALTO()

Dim Nom As String
Nom = InputBox("Saisissez votre 1er numéro de pièce : ")
Worksheets("Feuil2").Range("F1").Value = Nom
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("STRADIVALTO").Select
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+1"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+2"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+3"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+4"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+5"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+6"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+7"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+8"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+9"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=RC[1]+1-1"
Range("E1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub


En vous remerciant d'avance.

Sami.
 
Trier par date Trier par votes
S

sam1980

XLDnaute Nouveau
sam1980 à dit:
Bonjour à tous ,

voilà j'ai un script Vba qui me permet de générer et d'imprimer des code barre.
Alors quand je lance la génération l'impression se lance automatiquement selon la quantité demandé.
Mais si jamais je me trompe dans la quantité je ne peux plus annuler l'impression et chaque code barre s'imprime sur 1 feuille A4.

ce que je voudrais c'est imprimé plusieurs code barre sur une page 2 ou 3 ensuite avoir la possibilté d'avoir un bouton pour annulé impression en cas d'erreur.

Voici le code :

Sub Générationx10STRADIVALTO()

Dim Nom As String
Nom = InputBox("Saisissez votre 1er numéro de pièce : ")
Worksheets("Feuil2").Range("F1").Value = Nom
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("STRADIVALTO").Select
Sheets("Feuil2").Visible = True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+1"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=True
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+2"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+3"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+4"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+5"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+6"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+7"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+8"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=RC[1]+9"
Sheets("STRADIVALTO").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Feuil2").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "=RC[1]+1-1"
Range("E1").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub


En vous remerciant d'avance.

Sami.
Cliquez pour agrandir...

Bonjour à tous ,

Par rapport à ma demande est-ce que vous savez ce qu'il faut que je modifie pour que je puisses imprimer plusieurs code barre sur 1 feuille A4, si possible au moins 3.

Merci pour votre aide.

Sami
 
Vote positif 0 Vote négatif

Discussions similaires

ph.vanne
  • Question
Autres fenêtre "Publication"
Réponses
10
Affichages
425
ph.vanne
ph.vanne
H
  • Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
340
Helios77
H
K
  • Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
131
vgendron
vgendron
A
  • Résolu(e)
XL 2010 Impression par VBA
Réponses
4
Affichages
584
Appo1985
A
N
  • Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
307
Phil69970
Phil69970
P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
483
job75
job75
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
L
  • Question
Autres [ RESOLU ] Impression PDF via VBA
Réponses
5
Affichages
937
lechti31
L
Mafalda78
  • Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
609
patricktoulon
patricktoulon
B
  • Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
522
Oneida
Oneida

Membres actuellement en ligne

14 membres et 92 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 091
Messages
2 116 111
Membres
112 662
dernier inscrit
lou75