Créer un compteur

[Magic_Doctor]

Rebonjour,

Je voudrais, par macro, créer un compteur activé par un bouton.
Je clique une 1ère fois sur ce bouton --> 1
une 2ème fois --> 2
une 3ème fois --> 3
une 4ème fois --> 4
Mais la 5ème fois --> 1
6ème fois --> 2
etc.

D'autre part comment garder en mémoire la dernière valeur, même après avoir fermé le classeur (variable Static ou quelque chose dans le genre ???).

Merci pour toute réponse.

 

[soenda]

Re : Créer un compteur

Bonjour MisterJungle

Place la valeur dans une celulle, par exemple:

[A1] = IIf([A1] < 5, [A1] + 1, 1)

A plus

 

[Magic_Doctor]

Re : Créer un compteur

Merci Soenda, ça marche impécable.

Mais comment peut-on faire pour que le nombre entier (allant de 1 à 4 inclus), plutôt que d'apparaître dans une cellule de la feuille, reste gardé en mémoire dans la macro ?

Sub vues()

Dim i as Byte

i = IIf(i< 4, i + 1, 1)

'si j'ai bien compris, i commence en fait par 0

'suivant la valeur de i la macro va exécuter des opérations.
'mais je voudrais conserver la dernière valeur de i dans la macro, ce qui m'éviterait de l'afficher dans une cellule.

End Sub


-----------------------------------------------------------------------

Au fait, je suis (malheureusement) loin de la jungle, mais aux ornières grises de la Pampa !!
En ce moment "¡nos cagamos del frío!" : froid, pluie, brouillard et le p... de Pampero (= Mistral austral) qui ne cesse de souffler.
Ne jamais venir en Uruguay ou en Argentine en Juin, Juillet & Août. À moins d'adorer se les peler !!

Hasta pronto.

 

[job75]

Re : Créer un compteur

Bonjour Magic Doctor, soenda,

A la fermeture du fichier, toutes les variables sont supprimées de la mémoire.

Une autre solution est de stocker la valeur dans un nom défini (menu Insertion-Nom) dans le classeur :

Sub Macro1()
Dim compt As Byte
On Error Resume Next
compt = Evaluate("Compteur")
On Error GoTo 0
compt = IIf(compt < 5, compt + 1, 1)
ActiveWorkbook.Names.Add Name:="Compteur", RefersTo:=compt
MsgBox compt
End Sub

A+

 

[soenda]

Re : Créer un compteur

Re,

Une autre solution est de stocker la valeur dans un nom défini

Alors ça c'est TOP ! Merci pour l'info, Job75 🙂

A plus

 

[job75]

Re : Créer un compteur

Re,

Une autre écriture de la macro, sans On Error... :

Sub Macro1()
Dim compt As Byte
compt = IIf(IsNumeric(Evaluate("Compteur")), Evaluate("Compteur"), 0)
compt = IIf(compt < 5, compt + 1, 1)
ActiveWorkbook.Names.Add Name:="Compteur", RefersTo:=compt
MsgBox compt
End Sub

A+

 

[job75]

Re : Créer un compteur

Re,

Un détail, on peut masquer le nom créé :

Sub Macro1()
Dim compt As Byte
compt = IIf(IsNumeric(Evaluate("Compteur")), Evaluate("Compteur"), 0)
compt = IIf(compt < 5, compt + 1, 1)
ActiveWorkbook.Names.Add Name:="Compteur", RefersTo:=compt[COLOR="Red"], Visible:=False[/COLOR]
MsgBox compt
End Sub

A+

 

[ROGER2327]

Re : Créer un compteur

Bonjour à tous

Merci, job75, c'est une idée superbe !​

ROGER2327

 

[soenda]

Re : Créer un compteur

Re,

Un détail, on peut masquer le nom créé

C'est la cerise sur le gâteau 🙂

A plus et encore merci pour ce "post" très sympa.

 

[ledzepfred]

Re : Créer un compteur

Bonsoir à tous,

super bonne idée job75

Bravo pour cette astuce

A+

 

[Lii]

Re : Créer un compteur

Salut,

pour avoir eu des problèmes avec les noms dont les références changent intempestivement (pas vous ?), je passe plutôt par une étiquette (Label) dont on peut changer les propriétés à souhait.

 

[Magic_Doctor]

Re : Créer un compteur

Bonjour le forum,

Muchas gracias Job, c'est plus que ce que j'en espérais !

Bonne journée.

 

[Magic_Doctor]

Re : Créer un compteur

Après tout j'en profite pour glisser une feuille avec la solution de Soenda & celle de Job75.
C'est un exemple parmi une infinité de l'utilité d'un compteur.

 

[job75]

Re : Créer un compteur

Bonjour Magic Doctor, le fil,

Revois ta macro, cette ligne ne passe pas :

Selection.Interior.Color = RGB(0, 255, 0)

A+

 

[mromain]

Re : Créer un compteur

bonjour le fil,

les astuces de job75 et Lii sont ... comment dire ... très astucieuses 🙂.
merci beaucoup, je les mets de coté

a+