[OK]Macro

[Invité]

<IMG SRC="/images/smiles/confused_smile46.gif"> Bonjour,

Quelqu'un connait une macro pour faire un compteur automatique dans une cellule ?

Ps: pour afficher des numéros de devis, en fait!

Merci

[dood]

Salut,

Peux-tu préciser...

Si tu souhaite un forum spécialisé sur le macros, il est là :
<a href="http://www.excel-downloads.com/html/Fre ... st.php?f=1" target="_blank">http://www.excel-downloads.com/html/Fre ... php?f=1</a>

[Invité]

Salut,

Voila en faites je voudrai faire des devis avex excel 2002 et je voudrai qu'a chaque fois que j'ouvre un devis il me mette le n° de devis suivant automatiquement.
J'espere etre assez clair.

Merci.

[dood]

Ok, c'est relativement simple...
Dans excel, va sur Outils > macro > nouvelle macro
Dans le nom de la macro, inscrits "Compteur" et tu n'as qu'à  marquer la lettre "c" dans raccourci puis clic sur OK
Une petite fenêtre apparait, clic sur le carré bleu (arreter l'enregistrement)
Ensuite ouvre l'éditeur VBA en appuyant sur les touches Alt+F11
Clic sur le dossier Modules, puis sur Module1, le code devrait apparaitre.

Maintenant, supposons que le compteur est sur la cellule H1.
le code doit se présenter comme cela:
Sub Compteur()
Dim compt As Integer
compt = Range("H1").Value
Range("H1").Value = compt + 1
End Sub
(copie le code et colle le dans la macro)
Ce code incrémente ton compteur de 1 à  chaque fois dans la cellule H1.

Pour qu'il s'execute automatiquement à  l'ouverture du classeur, clic dans la fenêtre de gauche sur "ThisWorkbook" et colle ce code:
Private Sub Workbook_Activate()
compteur
End Sub

NB: respecte la majuscule à  "Compteur", si tu en as mise une.

Voila

[Invité]

Je te remercis je vais tester cela de suite. <IMG SRC="/images/smiles/teeth_smile46.gif">

[Invité]

Ca fonctionne, Merci <IMG SRC="/images/smiles/teeth_smile46.gif"> <IMG SRC="/images/smiles/teeth_smile46.gif">