Compteur à l'impression

[patreide]

Bonjour à tous

je souhaite créer un compteur qui s'incremente à chaque impression, un peu comme sur des étiquettes.
Merci de votre aide

 

[ERIC S]

Bonjour

à part si tu fais une impression par macro je ne vois pas trop comment faire sauf si tu imprimes toujours une seule feuille à la fois

A+

 

[patreide]

Merci ERIC pour ta reponse,

Pour tout dire, je suis dans la categorie 'nul' pour ce qui est d'excel.
Je vais préciser ma demande:
Je dois imprimer une page excel, qui doit comporter un N° incrementé. Ajourd'hui nous imprimons cette page X fois et nous ajoutons ce N° à la main sur chaque feuille (bonjour le travail), je souhaite 'simplement' automatiser l'impression du N°.
Ex: N° de début 1918, impression de 10 pages donc je souhaite trouver les N° de 1918 à 1927.

Merci pour l'aide. 😱

 

[ERIC S]

re

je vais t'envoyer un code en début d'après-midi avec mode d'emploi

A+

 

[ERIC S]

re

je n'ai pas pu faire d'essai mais cela doit fonctionner :

avant de le faire sur ton fichier, fais une copie
de celui-ci

j'ai supposé que le numéro est en B1

1/ on crée un bouton
sur ta feuille, affichage, boite à outils contrôle
clique sur icône bouton
placement du bouton sur la feuille
clic droit, visualiser le code

2/ copier le code suivant (tu dois avoir la première et la dernière ligne qui apparaissent, private... et end sub):


Private Sub CommandButton1_Click()

Dim exemplaire As Single
'nombre d'exemplaires
exemplaires = InputBox('Nombre d'exemplaires à imprimer', 'IMPRESSION FORMULAIRE')
' si annulé ou pas de réponse, sortie
If exemplaires = '' Then MsgBox ('abandon procédure'): Exit Sub
' si non numérique
If Not IsNumeric(exemplaires) Then MsgBox ('abandon procédure'): Exit Sub
' si inférieur à 1
If exemplaires < 1 Then MsgBox ('abandon procédure'): Exit Sub
' boucle pour incrémenter à chaque impression
For i = 1 To exemplaires
'impression de la feuille
ActiveSheet.PrintOut
'incrément du numéro
Range('B1').Value = Range('B1').Value + 1
MsgBox Range('B1').Value
Next

End Sub

3/ enlever le mode création (clic sur icône avec équerre)

4/ quand on passe sur le bouton, le curseur se transforme sans doute en flèche, le clic gauche lance la macro

A tester

 

[patreide]

SUPER Eric,

Ca a l'air de marcher, mais il j'ai deux petits soucis:
Excel me demande de valider avant chaque impression !
Il imprime le bouton !!

Ben oui j'suis trop nul, mais j'ai confiance, je ne peux que m'améliorer avec toi et ce forum.

 

[ERIC S]

re

qu'entends-tu par valider avant impression ?

sinon

tu mets en commentaire le message qui donne le numéro et qui servait au test (ajouter apostrophe comme suit)

'MsgBox Range('B1').Value

pour le bouton :
mode création (clic sur équerre) clic droit sur bouton, format de contrôle, propriétés, décocher imprimer

A+

 

[patreide]

Alors la je dis MAITRE et je m'incline.

Je vais me coucher moins nul ce soir.

A bientot et encore merci