code pour un compteur

[bichon]

Helo a tout le forum
j'aimerai que quelqu'un me donne un exemple de code pour incrementer un compteur alant de 1
jusqu'a n
en gros j'imprime des feuille et sur celle ci jai laisser une cellule vide pour pouvoir y mettre
les numeros de page
il peut y avoir 2 pages comme 10
faut-il faire une boucle? ou cela n'est pas la peine


merci beaucoup d'avance

jp

 

[zon]

Re,


Tu n'as pas besoin de code, tu as cela dans le sproprétes d'impression, Affichage Entetes et pieds de page, qui te permettront de numéroter automatiquement



A+++

 

[bichon]

non zon en fait je t'explique en 2 mots
je voudrais imprimer comme tu dois le savoir des classeur dans une listbox
voila si j'ai 4 donnée dans ma listbox
j'aurais 4 feuille differentes a imprimer
et donc j'aimerai les classer par ordre alphabetique (cf un autre fil) et le numeroter lors de l'impression
je ne veux pas que cette numerotation reste
j'ai laisser une cellule vide pour pouvoir numeroter les feuilles que j'imprime
c'est ok t'a compris?

 

[zon]

Re,



Jp, je crois que tu sais maintenant ouvrir un fichier et y ecrire de dedans puis de le femer.

Rappelle de toi de

Listbox2.listcount recupere le Nb de lignes dans ta listbox2

donc ton compteur se fera partir de là....



A+++

PS C'est ici qu'on commence à se rendre compte que ton cahier des charges te fais monte une vraie plateforme petroliere.....

 

[bichon]

Salut Zon et tout le forum
Bon alors j'ai essayé ce que tu m'as dis mais comme je suis tres mauvais
ben j'y suis pas arrivé
je suis ok que listbox2.listcount compte le nombre de ligne mais si je met
range("AA2").value=listbox2.listcount
ben ca me met a chaque feuille le nombre des donnée que j'ai dans ma listbox et non pas
un compteur qui numerote mes fiches
au secours c'est tout bête je pense mais jai besoin de vous
merci

 

[zon]

Bonsoir à tous,


Pour faire un compteur, il ne se fait pas tout seul et d'apres ce que j'ai compris

Par exemple si tu as 3 fichiers ou 3 feuilles qui s'affichent dans ta listbox:

dans le premier fichier ou feuille [AA2]=listbox2.listcount ''Egal à 3
dans le 2 eme [AA2]=listbox2.listcount-1 "Egal à 2
dans le 3 eme [AA2]=listbox2.listcount-2 ""egal à 1

à toi de jouer avec le classement....

A+++