Numéroter des variables

Bonjour,
J'essaie de trouver une façon de numéroter des variables de façon à ce que je puisse les utiliser dans une boucle en utilisant une variable i représentant le numéro de mes autres variables. J'avais écrit une macro assez longue qui fonctionnait avant que j'essaie de numéroter mes variables, mais en essayant de les le numéroter, j'ai fait planter Excel. J'ai perdu une partie de ma macro, mais grosso modo voici ce que j'essaie de faire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub TestVariable() Dim Var(1 To 2)   i = 1 Var(i) = "Bonjour"       For i = 1 To 2 If Var(i) = "Bonjour" Then 'Actions End If   Next i End Sub

---

Bonjour Lune1,

Bravo ! :applo:
Tu as donné la réponse à ta question ! Tu peux clore le sujet ! :mrgreen:

Plus sérieusement, je ne comprends pas où tu rencontres une difficulté puisque ce que tu proposes fonctionne...

Bref, il me semble que la communauté aura besoin de d'avantage d'explications ! :ccool:

Cordialement,
Kimy

Bonjour Kimy,
Merci. Je ne savais pas que ma macro fonctionnait. Haha! C'est ce qui arrive quand ça fait trop longtemps qu'on tourne en rond : on n'y voit plus clair. Dans ma grosse macro (que j'ai fait planté par erreur), j'ai les variables var(1), var(2),..., var(i) assigné à des contenus de cellules. Par exemple, Var(1) assigné au contenu de la cellule L8 qui contient "AVR". Voici le code modifié:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub TestVariable() Dim Var(1 To 2)       Var(1) = Range("L8").Value     For i = 1 To 2 If Var(i) = "AVR" Then MsgBox "Réussi!" End If   Next i End Sub

---

C'est fois, ça ne fonctionne pas ou je deviens folle. :marteau:

Lune1,

Je suis désolé mais je ne comprends toujours pas ! :aie:
Ce que tu présentes devrait fonctionner. Donc je ne comprends pas quelle est la question, ce que tu souhaites et/ou tu bloques...

Cordialement,
Kimy

Salut,

On pourrait avoir une impression d'écran de tes cellules juste pour voir ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub TestVariable() Dim Var(1 To 2) Dim Ws As Worksheet   ' Il faut spécifier une feuille avant Range("L8")... sinon, le code dépend de trop de paramètres qui ne sont plus lié à ton code lui même. ' Par exemple, si le code est placé dans un module standard, c'est la plage de cellule de ta feuille active qui est prise en compte. ' Si tu as plusieurs feuilles ou pire, si c'est un graphique qui est actif, ça plantera (un graphique n'a pas de cellule). Set Ws = Feuil1 Var(1) = Ws.Range("L8").Value   For i = 1 To 2 If Var(i) = "AVR" Then MsgBox "Réussi!" End If Next i End Sub

---

Bonjour,

Citation:

---

Je suis désolé mais je ne comprends toujours pas !
Ce que tu présentes devrait fonctionner. Donc je ne comprends pas quelle est la question, ce que tu souhaites et/ou tu bloques...

---

J'avoue moi non plus

Si le problème vient du test If Var(i) = "AVR", il est possible que le contenu ait un espace après que tu ne visualises pas.
J'ai pour habitude de tester le contenu des chaînes de caractères avec la fonction Trim comme ceci

Code:

---

If Trim(Nom(1)) = "BlaBla" Then MsgBox "Yes"

---

et si la casse ne doit pas être respectée ajoute la fonction LCase

Code:

---

If LCase(Trim(Nom(1))) = "blabla" Then MsgBox "Yes"

---

Merci à tous. En effet, il y avait un caractère que je ne voyais pas. Maintenant que ceci est tiré au clair, je vais essayer de recréer ma grosse macro. Si j'ai d'autres problèmes, je vous le dirai (code à l'appui) sinon je passerai indiquer que le problème est résolu.