Variables "Public", avec le même préfixe, reprises dans une même macro

[Magic_Doctor]

Bonsoir,

J'ai plusieurs variables déclarées "Public" et "As Byte" (ne peuvent prendre que la valeur 1 ou 2) : compt1, compt2..., comptn
Toutes ce variables sont gérées par strictement le même type de procédure, par exemple :

Sub Zaza()
	compt1 = compt1 * 2
	...
End Sub

Sub Lolo()
	compt5 = compt5 * 2
	...
End Sub

Plutôt que de chaque fois réécrire :

Sub Xxx()
	comptn = comptn * 2
	...
End Sub

j'ai essayé ceci :

Sub Compteurs(compt As String)
	compt = compt * 2
	...
End Sub

Évidemment, ça ne marche pas.
Bon, j'ai tout de suite vu l'erreur : compt1, compt2 etc. sont des bytes, alors que "compt", en paramétrage dans la macro "Compteurs", est une chaîne.
À tout hasard, j'ai même essayé sans succès ceci :

Sub Compteurs(compt As String)
	Evaluate(compt) = Evaluate(compt) * 2
	...
End Sub

Comment faire en sorte pour que cette chaîne soit reconnue comme étant une des variables "Public" déclarées ?

Merci d'avance pour tout coup de pouce.

 

[phlaurent55]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Bonjour Magic_Doctor

J'ai plusieurs variables déclarées "Public" et "As Byte" (ne peuvent prendre que la valeur 1 ou 2)

Mauvaise interprétation, une variable "As Byte" ne peut prendre que les valeurs 1 ou 0

à+
Philippe

 

[Magic_Doctor]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Bonjour phlaurent55,

Là je ne suis pas d'accord, une variable byte peut prendre une valeur comprise, si je me souviens bien, entre 0 et 255. Ne confondrais-tu pas avec boolean ?

 

[phlaurent55]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Re,

Bonjour phlaurent55,

Là je ne suis pas d'accord, une variable byte peut prendre une valeur comprise, si je me souviens bien, entre 0 et 255. Ne confondrais-tu pas avec boolean ?

Ok, j'ai confondu ........... pas encore bien réveillé

à+
Philippe

 

[job75]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Bonjour Magic_Doctor, le forum,

Pas compris ton histoire de String mais tu veux peut-être ce qui suit.

Place dans un module standard :

Public compt(1 To 50) 'dimension à adapter

Sub compteurs(n As Byte)
If compt(n) = 0 Then compt(n) = 1
compt(n) = compt(n) * 2
End Sub

Et teste où tu veux avec :

Sub test()
Dim n As Byte
n = 5 'à adapter
compteurs n
MsgBox compt(n) 'pour tester
End Sub

Bonne journée.

 

[job75]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Re,

Comme tu as écris :

(ne peuvent prendre que la valeur 1 ou 2)

il faut utiliser :

Public compt(1 To 50) As Byte 'dimension à adapter

Sub Compteurs(n As Byte)
compt(n) = compt(n) + 1
If compt(n) > 2 Then compt(n) = 1
End Sub

Sub test()
Dim n As Byte
n = 5 'à adapter
Compteurs n
MsgBox compt(n) 'pour tester
End Sub

A+

 

[job75]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Re,

Si l'on veut récupérer les dernières valeurs à chaque ouverture du fichier, mémoriser dans un nom défini :

Public compt(1 To 50) As Byte 'dimension à adapter

Sub Compteurs(n As Byte)
If IsArray([Compteur]) Then compt(n) = Application.Index([Compteur], n)
compt(n) = compt(n) + 1
If compt(n) > 2 Then compt(n) = 1
ThisWorkbook.Names.Add "Compteur", compt, Visible:=False  'nom défini masqué
End Sub

Sub test()
Dim n As Byte
n = 5 'à adapter
Compteurs n
MsgBox compt(n) 'pour tester
End Sub

A+

 

[Magic_Doctor]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Bonjour phlaurent55, tatiak, job, le forum,

job, il s'agit en fait d'une routine que tu m'avais concoctée et qui fut décriée par les iconoclastes dont je parle dans mon avant dernier post :

    compt1 = IIf(IsNumeric(Evaluate("Compteur1")), Evaluate("Compteur1"), 0)
    compt1 = IIf(compt1 < 2, compt1 + 1, 1)
    ActiveWorkbook.Names.Add Name:="Compteur1", RefersTo:=compt1, Visible:=False

Comme j'aurais une bonne dizaine de compteurs (qui utilisent tous la même routine) sur ma feuille, je me suis dit qu'après tout pourquoi ne pas tenter de réaliser une macro paramétrée.
L'idée d'utiliser une variable matricielle (je crois que ça s'appelle comme ça) me paraît excellente.
Supposons que je nomme cette macro "Compteurs", je n'aurais plus alors qu'à écrire pour appeler le compteur :
s'il s'agit du compteur 2 (compt2) par exemple :

Compteurs compt2

Voilà pourquoi au début j'avais écrit :

Compteurs(compt As String)

Mais c'est vrai que String ça complique.

A+

 

[Magic_Doctor]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Re,

Je viens d'essayer (Post#8) et ça n'a pas marché.
J'ai tenté la modification suivante :

Sub Compteurs(n As Byte)
    'If IsArray([Compteur]) Then compt(n) = Application.Index([Compteur], n)
    If IsArray(Evaluate("Compteur" & n)) Then compt(n) = Application.Index(Evaluate("Compteur" & n), n)
    compt(n) = compt(n) + 1
    If compt(n) > 2 Then compt(n) = 1
    'ThisWorkbook.Names.Add "Compteur", compt, Visible:=False  'nom défini masqué
    ThisWorkbook.Names.Add "Compteur" & n, compt, Visible:=False 'nom défini masqué
End Sub

ça n'a pas marché.

 

[Magic_Doctor]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Je viens d'essayer, avec la même philosophie, en reprenant ta routine (Post#9) :

Public compt(1 To 12) As Byte


Sub Compteurs(n As Byte)
'Administre tous les compteurs de la feuille
'job75

    compt(n) = IIf(IsNumeric(Evaluate("Compteur" & n)), Evaluate("Compteur" & n), 0)
    compt(n) = IIf(compt(n) < 2, compt(n) + 1, 1)
    ActiveWorkbook.Names.Add Name:="Compteur" & n, RefersTo:=compt(n), Visible:=False
End Sub

Pareil, ça ne marche pas.

 

[Magic_Doctor]

Re : Variables "Public", avec le même préfixe, reprises dans une même macro

Re,

Bon, maintenant ça marche. Dans ma procédure j'avais omis de remplacer compt1, compt2... par compt(1), compt(2)...

Gracias job