Discussion :

[Lune1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kimy_Ire]

Bonjour Lune1,

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

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 !

Cordialement,
Kimy

[Lune1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Kimy_Ire]

Lune1,

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...

Cordialement,
Kimy

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lune1]

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.

[Invité]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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