Créer un compteur

soenda

XLDnaute Accro

• 21 Juin 2009

• #2

Re : Créer un compteur

Bonjour MisterJungle

Place la valeur dans une celulle, par exemple:

Code:

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

A plus

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 21 Juin 2009

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Juin 2009

• #4

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 :

Code:

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+

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 21 Juin 2009

• #5

Re : Créer un compteur

Re,

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

Cliquez pour agrandir...

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

A plus

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Juin 2009

• #6

Re : Créer un compteur

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Juin 2009

• #7

Re : Créer un compteur

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 21 Juin 2009

• #8

Re : Créer un compteur

Bonjour à tous

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

ROGER2327

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 21 Juin 2009

• #9

Re : Créer un compteur

Re,

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

Cliquez pour agrandir...

C'est la cerise sur le gâteau 🙂

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

 

Vote positif 0 Vote négatif

ledzepfred

XLDnaute Impliqué

• 22 Juin 2009

• #10

Re : Créer un compteur

Bonsoir à tous,

super bonne idée job75

Bravo pour cette astuce

A+

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 22 Juin 2009

• #11

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.

 

Pièces jointes

• Variable Sauvée.zip

  9.4 KB · Affichages: 79

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 22 Juin 2009

• #12

Re : Créer un compteur

Bonjour le forum,

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

Bonne journée.

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 22 Juin 2009

• #13

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.

 

Pièces jointes

• Exemple3.xls

  41 KB · Affichages: 151
• Exemple3.xls

  41 KB · Affichages: 144
• Exemple3.xls

  41 KB · Affichages: 144

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Juin 2009

• #14

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+

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 22 Juin 2009

• #15

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+

 

Vote positif 0 Vote négatif