Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel impression multiple auto en VBA

impression multiple auto en VBA

2 réponses
Avatar
PJ
Bonjour à tous,

Voilà ce que je cherche à faire.
Je récupère une valeur N. Cette valeur me donne mon nombre d'impression.
Comment générer autant d'impression (N) de la même feuille (Feuil1) et
comment faire (au même titre qu'un bas de page) que dans la case A2 cela me
numérote mon ordre d'impression: 1/N, 2/N...N/N.

D'avance, merci beaucoup de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Garette
Bonjour

Pour mettre i/N dans A2 :

Sub test()
N = 3
For i = 1 To N
With ActiveSheet.Range("A2")
.NumberFormat = "@"
.Value = CStr(i & "/" & N)
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub


Pour mettre i/N dans le pied de page :

Sub test2()
N = 3
For i = 1 To N
ActiveSheet.PageSetup.CenterFooter = i & "/" & N
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
Avatar
PJ
Merci, Merci,Merci beaucoup, ça marche super!!!
Je vais enfin pouvoir continuer.
Merci encore de ta dispo.


Bonjour

Pour mettre i/N dans A2 :

Sub test()
N = 3
For i = 1 To N
With ActiveSheet.Range("A2")
.NumberFormat = "@"
.Value = CStr(i & "/" & N)
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub


Pour mettre i/N dans le pied de page :

Sub test2()
N = 3
For i = 1 To N
ActiveSheet.PageSetup.CenterFooter = i & "/" & N
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub