Boucle avec des variables "Public"

[Magic_Doctor]

Bonjour,

J'ai de nombreuses variables (compt1, compt2, compt3,...) déclarées "As Byte", dans un module standard, comme "Public". Ex : Public compt1 As Byte.
Lors de l'ouverture du classeur, dans le module de "ThisWorkBook", chaque variable récupère la valeur d'une cellule (qui peut être 1 ou 0) :
compt1 = [Compteur1]
compt2 = [Compteur2]...
pour faire plus court, je voudrais faire une boucle du type :

for i = 1 To n
	"compt" & i = "[Compteur" & i & "]"
next

Ça ne marche pas du tout.
Il y aurait-il un moyen pour résoudre ce problème ?

 

[Yaloo]

Re : Boucle avec des variables "Public"

Bonsoir Magic_Doctor,

Voici la définition d'une variable byte

Les variables de type Byte sont stockées sous la forme d'un nombre de 8 bits (1 octet unique), non signé, compris entre 0 et 255.

Donc tes variables doivent être numériques et non des lettres.

A+

Martial

 

[Dranreb]

Re : Boucle avec des variables "Public"

Bonsoir.

Public Compteurs() As Byte
…
Redim Compteurs(1 To n)
For i = 1 To n
    Compteurs(i) = Application.Range("Compteur" & i).Value: Next

 

[Magic_Doctor]

Re : Boucle avec des variables "Public"

Bonjour Yaloo, Dranreb,

Dranreb, avant de lire ton post, je m'étais orienté vers la même solution que la tienne : paramétrer la variable "compt".
Malheureusement, dans mon application ça ne marche pas. Tout reste bloqué. Ce n'est pas bien grave, puisque ça marchait, mais c'est dommage pour, disons, la "beauté du synthétique".

 

[Dranreb]

Re : Boucle avec des variables "Public"

Bonjour.
Il n'y a pas d'autre moyen que d'utiliser un tableau si on veut pouvoir traiter ses variables élémentaires dans une boucle, et je ne vois pas pourquoi ça ne marcherait pas d'utiliser partout ses éléments.

 

[job75]

Re : Boucle avec des variables "Public"

Bonjour,

Quel intérêt d'utiliser compt1 compt2 etc ?

Pour chaque i traiter compt = Evaluate("compteur" & i)

A+

 

[Magic_Doctor]

Re : Boucle avec des variables "Public"

Bonjour Dranreb, job75, le forum,

Dranreb, tu as tout à fait raison, javais tenté un truc bidon à la hussarde et, comme je te le disais dans un précédent post, je me suis orienté vers un paramétrage de la variable "compt" (donc, comme tu le précises justement, on dresse ainsi un tableau) mais sans succès...
job, tu m'as fait connaître "Evaluate", j'avoue que j'y avais pensé, mais jonglant mal avec cette fonction, je n'avais pu résoudre le problème.
Finalement, grâce à vos interventions pertinentes, j'ai fait une synthèse de vos solutions :

Option Explicit
Public compt() As Byte 'différents compteurs de la feuille "BD"
---------------------------------------------------------------------------------
Sub ActualisationBD() 'macro reprise dans le module de classeur "ThisWorkBook" lors de l'ouverture du classeur ("Private Sub Workbook_Open()")
'Actualisation de certains paramètres de la feuille "BD" lors de l'ouverture du classeur
    Dim i As Byte
    .
    .
    .
    ReDim compt(1 To 8) 'il y a 8 compteurs
    'compt(1) : compteur du bouton "BoutonTexteMEF"
    'compt(2) : compteur du bouton "BoutonSymboles"
    'compt(3) : compteur de la cellule ("celtriproduits") qui déclenche le tri par ordre alphabétique ou chronologique des produits du tableau "ListeItems1"
    'compt(4) : compteur de la cellule ("celtrimv") qui déclenche le tri par ordre croissant ou décroissant des masses volumiques du tableau "ListeItems1"
    'compt(5) : compteur de la cellule ("celtriitems") qui déclenche le tri par ordre alphabétique ou par familles de la 1ère colonne du tableau "ListeItems2"
    'compt(6) : compteur de la cellule ("celtrifamilles") qui déclenche le tri du tableau "TableauFamilles1"
    'compt(7) : compteur de la cellule ("celalter") qui déclenche l'alternance de la couleur des lignes des tableaux
    'compt(8) : compteur de la cellule ("celcolcoul") qui déclenche le changement de couleurs des colonnes des tableaux
    
    For i = 1 To 8
        compt(i) = Evaluate("Compteur" & i)
    Next
    .
    .
    .
End Sub

Et ça marche maintenant très bien.

Merci à vous deux y muy buen fin de tarde.

 

[Magic_Doctor]

Re : Boucle avec des variables "Public"

Bonsoir,

Après tout, un forum ne set pas uniquement à poser des questions, mais aussi à comprendre.
J'en profite alors pour faire la remarque suivante. Au fond, quelle différence il y a-t-il entre :

    For i = 1 To 8
        compt(i) = Application.Range("Compteur" & i).Value
    Next

(Ça ne marche pas...)

et :

    For i = 1 To 8
        compt(i) = Evaluate("Compteur" & i)
    Next

(ça marche !)

? ? ? ?

 

[Dranreb]

Re : Boucle avec des variables "Public"

J'utilise peu la méthode Range de l'objet Application. Je ne pouvais pas savoir que toutes vos plages nommées étaient dans la même feuille sinon j'aurai mis le CodeName de cette feuille à la place.

 

[Magic_Doctor]

Re : Boucle avec des variables "Public"

Bonsoir Dranreb,

Et quelle aurait été exactement votre syntaxe ?

 

[Dranreb]

Re : Boucle avec des variables "Public"

compt(i) = Feuil1.Range("Compteur" & i).Value

À supposer que Feuil1 soit bien ne nom de l'objet Worksheet tel qu'il apparait à gauche du nom Excel rappelé entre parenthèses dans l'explorateur de projets. Si ce sont des noms définis au niveau de la feuille, c'est normal que Application.Range ne fonctionnait pas. Il eut fallu Application.Range("Feuil1!Compteur" & i), à supposer que "Feuil1" soit aussi le nom Excel de la feuille.
Si ce sont des noms définis au niveau du classeur je ne m'explique pas pourquoi ça ne fonctionne pas tel que je l'avais écrit.

 

[Si...]

Re : Boucle avec des variables "Public"

salut

par curiosité : à partir du moment où l'on a les cellules "compteurs", ces nouvelles variables "compt" sont-elles vraiment nécessaires ?

 

[Dranreb]

Re : Boucle avec des variables "Public"

Bonsoir Si…
Si on a besoin d'y accéder fréquemment dans le code, oui. C'est toujours considérablement plus long d'accéder à des cellules qu'à des variables.

 

[Magic_Doctor]

Re : Boucle avec des variables "Public"

Bonsoir tout le monde,

Pour répondre à Si..., je voulais attribuer à certaines cellules qui, quand on clique dessus déclenchent une macro événementielle, un compteur, c-à-d une variable qui peut prendre au moins 2 valeurs (la plupart du temps 2). Par exemple, je clique sur une cellule d'en-tète de tableau, tous les items au-dessous sont triés soit par ordre croissant, soit par ordre décroissant. Seulement je voulais que ces variable n'occupassent point de cellules dans la feuille. Tout devient en quelque sorte virtuel, et quand j'ouvre le classeur, fatalament toutes ces variables sont égales à 0. Voilà pourquoi je suis obligé, lors de l'ouverture du classeur, de leur attribuer les valeurs qu'elles avaient juste avant la dernière fermeture du classeur.