Discussion :

[laloune]

Salut à tous !

j'ai un petit souci avec VBA : je souhaiterais mettre plusieurs conditions dans une condition While. J'ai écrit ceci :

Code :

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

1
2
3
4
5
While k="toto" or k="tata"
 
  instructions...
 
Wend

Merci d'avance !!

laloune

[Jean-Philippe André]

bonjour,
et quel est ton problème exactement ?

[laloune]

ooops, en me relisant je viens de me rendre compte que ce n'était en effet pas très clair :p

en fait ce que je souhaite faire, c'est effectuer une boucle avec un while qui prend en compte 2 conditions : tant que k="toto" ou tant que k="tata", alors on exécute les instructions...

j'ai essayé la syntaxe ci-dessus mais il me génère une erreur...

ma question est donc : est-il possible de mettre plusieurs conditions dans un while ?

Merci
laloune

[Jean-Philippe André]

euh, quelle erreur est générée stp ?

[laloune]

"1004 - Erreur définie par l'application ou par l'objet"

j'ai testé mes 2 conditions indépendamment, et elles fonctionnent...

merci

[Jean-Philippe André]

est-ce que ta variable k est un string ?

ce code fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim k As String
k = "toto"
While k = "toto" Or k = "tata"
 
  Debug.Print "instructions..."
  k = "tati"
 
Wend
End Sub

[Bigalo]

Re,

Schématiquement, une erreur 1004 survient lorsque VBA demande à Excel de faire quelque chose qui est impossible, ou qui se traduirait par l’affichage dans Excel d’un message d’erreur si on essayait de faire la même chose manuellement, indépendamment de VBA :

Par exemple

Code :

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

   Range("A" & NumLigne).Select

n’ a rien de choquant, mais

Code :

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

1
2
3
4
5
Sub Test()
Dim NumLigne As Long
NumLigne = 2 ^ 21
    Range("A" & NumLigne).Select
End Sub

va générer une erreur 1004, car 2 puissance 21 = 2 097 152, ce qui est supérieur au nb de lignes d’une feuillle Excel, même avec la version 2007.

En l’occurrence, l’instruction

Code :

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

   Range("A" & NumLigne).Select

est correcte, mais va provoquer "l’ire” d’Excel si NumLigne ne désigne pas un numéro de ligne correct.

Par conséquent ton problème n’a rien à voir avec ton test, mais avec l’une des instructions, à l’intérieur de la boucle.

Que se passe-t-il si tu cliques sur le bouton Débogage, quand survient l’erreur ? Quelle instruction est surlignée ?

Cordialement,

[Gorfael]

"1004 - Erreur définie par l'application ou par l'objet"

j'ai testé mes 2 conditions indépendamment, et elles fonctionnent...

merci

Salut
Exécute ta macro pas-à-pas et regarde la ligne en erreur :
Si la boucle avec chaque instruction fonctionne, mais pas avec les 2 couplées avec Or, ça ne veut pas forcément dire que ton erreur provient de cette ligne
A+

[Bigalo]

Bonjour,

Code :

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

While k="toto" or k="tata"

Cela devrait fonctionner, à condition que k soit modifié dans la boucle. Sinon, le résultat du test ne risque pas de changer, et si k était égal à toto" ou à "tata", le traitement ne sortira jamais de la boucle.

Toutefois, évite les boucles

Code :

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

1
2
3
While k="toto" or k="tata"
    instructions...
Wend

Emploie plutôt

Code :

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

1
2
3
Do While k="toto" or k="tata"
    instructions...
Loop

L’intérêt est que la seconde syntaxe permet de sortir de la boucle si nécessaire evec un

Code :

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

Exit Do

Par exemple, en phase de test, tu peux employer (à adapter bien sûr, s’il est normal de passer 1 000 fois dans la boucle) :

Code :

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

1
2
3
4
5
6
7
8
Do While k="toto" or k="tata"
    instructions...
    i = i  + 1
        If i = 1000 Then
            MsgBox "Apparemment, bug, déjà 1000 passages dans la boucle !"
            Exit Do
        If i = 1000 Then
Loop

En résumé, Do While ... Loop permet de faire tout ce que fait While ... Wend, mais avec plus de souplesse

Cordialement,