compteur ?

[anass1958]

bonsoir
y'a til une fonction pour creer (inserer) un compteur dans une feuille excel apres chaque impression.
le compteur est du genre :
j/1 ; j/2 ; j/3 ..........
on garde la meme lettre mais le nombre s'incremente a chaque impression.
merci

 

[JCGL]

Re : compteur ?

Bonjour à tous,

Il suffit de faire un petit code avec BeforePrint dans une cellule avec un format "j/"0.

Laconique comme réponse... ah bon (Spécial Private Joke pour BH² arf)

A+

 

[Cousinhub]

Re : compteur ?

Bonsoir,

Re JC

(Spécial Private Joke pour BH² arf)

Pour info, un aperçu avant impression déclenche cet évènement....
J'y avais pensé, mais, savoir si la feuille est sortie de l'imprimante????????

 

[anass1958]

Re : compteur ?

nul en vba
plus d'explication
merci

 

[JCGL]

Re : compteur ?

Re,
Re BH² ,

Ah ben oui mais la question était avec un PrintOut pas avec un PrintPreview...

En forme ce soir tous les deux arf arf

A++
A+ à tous

 

[JCGL]

Re : compteur ?

Re,

J'ai édité et ajouté un fichier

A+

 

[roro69]

Re : compteur ?

Bonsoir juste un petit rajout d'info:

Attention ; avec cette méthode, le compteur progresse également sur l'aperçu avant impression, et sur l'annulation d'impresion.
Bonne soirée
Bonsoir jcgl et bhbh

 

[anass1958]

Re : compteur ?

newbie parmis les maitres

expliquez pour debutant
merci

 

[Cousinhub]

Re : compteur ?

Re-, everybody

Excuse, anass1958, pour le moment, on se fait un petit thé entre amis......

La solution donnée par le Maître JC comporte une petite imperfection, en cas d'annulation d'impression, ou en cas de demande d' "aperçu avant impression"
Cette solution passe par une procédure VBA (Visual Basic for Application), et exige l'utilisation des macros sous Excel
Nous essayons de trouver une solution, et excuse les termes un peu "barbares" de nos fils....

 

[JCGL]

Re : compteur ?

Re,
Re Roro,

Toutes mes excuses anass1958, il est vrai que je suis parti un peu en live.
Mes deux amis ont parfaitement raison : un aperçu avant impression ou une impression incrémentera de 1 le compteur...

Est-ce important ? A toi de voir

A++ à BH² et à Roro
A+ à tous

 

[anass1958]

Re : compteur ?

mon document est fini et n'a plus besoin d'etre vu avant impression.
merci d'ecrire le code utilisé

 

[JCGL]

Re : compteur ?

Re,

Eh bien utilise le code déposé dans un précédent message.

Il incrémente de 1 avant chaque impression la cellule A1. Ce code est à placer dans le ThisWorkBook.

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Format(Range("A1").Value + 1, """j/""0")
End Sub

Ici :




A+

 

[roro69]

Re : compteur ?

Bonsoir
si tu es interessé voici le classeur avec un code trouvé sur le web ; qui ne prend plus en charge l'aperçu avant impression.
Bonne nuit à tous

 

[anass1958]

Re : compteur ?

rebonsoir
tout marche bien si j'ai un classeur avec une seule feuille.
mon classeur est composé de 3 feuilles ; et le code doit etre ecrit pour la 2iemme feuille sur une cellule donnée.
la cellule concernée est la D46 dans la feuille 2 nomée certificat.
voir le fichier join

 

[JCGL]

Re : compteur ?

Re,

Ton fichier n'est pas reconnu, chez moi, comme un fichier *.xls ou *.zip

Merci de redéposer un fichier sans caractère "exotiques"...
Bien évidement à prendre au sens large du terme : "Qui vient des pays étrangers"
Et sans aucune notion discriminatoire

A+