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

Magic_Doctor · 11 Mai 2016

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 :

Code:

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

Code:

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

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

Code:

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

j'ai essayé ceci :

Code:

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 :

Code:

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 · 11 Mai 2016

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 · 11 Mai 2016

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 · 11 Mai 2016

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

Re,

Magic_Doctor à dit:
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 · 11 Mai 2016

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 :

Code:

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 :

Code:

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

Bonne journée.

job75 · 11 Mai 2016

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

Re,

Comme tu as écris :

Magic_Doctor à dit:
(ne peuvent prendre que la valeur 1 ou 2)

il faut utiliser :

Code:

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 · 11 Mai 2016

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 :

Code:

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 · 11 Mai 2016

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 :

Code:

    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 :

Code:

Compteurs compt2

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

Code:

Compteurs(compt As String)

Mais c'est vrai que String ça complique.

A+

Magic_Doctor · 11 Mai 2016

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 :

Code:

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 · 11 Mai 2016

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) :

Code:

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 · 11 Mai 2016

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

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

Magic_Doctor

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Magic_Doctor

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires