Plusieurs conditions dans un while

Version imprimable

Voir 40 message(s) de cette discussion en une page

10/01/2008, 12h31
laloune

Plusieurs conditions dans un while
Salut à tous !

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

1 2 3 4 5 While k="toto" or k="tata" instructions... Wend
Merci d'avance !!

laloune
10/01/2008, 12h43
Jean-Philippe André

bonjour,
et quel est ton problème exactement ?
10/01/2008, 13h37
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
10/01/2008, 13h40
Jean-Philippe André

euh, quelle erreur est générée stp ?
10/01/2008, 13h42
laloune

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

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

merci

est-ce que ta variable k est un string ?

ce code fonctionne :

Code:

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

Bonjour,

Citation:

Envoyé par laloune

Code:

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:

1 2 3 While k="toto" or k="tata" instructions... Wend
Emploie plutôt
Code:

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:

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:

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

Cordialement,

10/01/2008, 14h09
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:

Range("A" & NumLigne).Select

n’ a rien de choquant, mais
Code:

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:

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,
10/01/2008, 14h38
Gorfael

Citation:

Envoyé par laloune

"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+
10/01/2008, 16h13
laloune

Citation:

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.

j'en doute, étant donné que les instructions sont correctement executées lorsque j'exécute le code avec une seule des deux conditions. Pour moi les instructions sont correctes, seulement la boucle ne se déclenche pas correctement

Citation:

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

la ligne surlignée est celle de la condition While, ou plutôt Do maintenant.

Lorsque j'utilise l'opérateur Xor (càd true + false>true / false + true>true). En fait mes conditions sont du type :

Code:

Do while k<>"toto" xor k<>"tata"

donc du coup, je veux que mon code s'exécute tant que k est différent de "toto" ou de "tata". Mais qu'il s'exécute quand même lorsque l'un des deux est faux (ce qui est identique qu'avec or).

POURTANT ! avec xor mon code s'exécute (plus ou moins bien, mais ce n'est pas le souci pour l'instant), et avec or il me génère une erreur 8O

Merci en tous cas
10/01/2008, 16h29
Eric93

Citation:

donc du coup, je veux que mon code s'exécute tant que k est différent de "toto" ou de "tata". Mais qu'il s'exécute quand même lorsque l'un des deux est faux

C'est pas très clair

OR (inclusif) la condition est vrai si l'une des 2 conditions est vrai, ou les 2
XOR (ou exclusif) la condition est vrai si l'une des 2 condition est vrai, mais pas les 2

J'ai l'impression que dans ton cas il te faut plutôt un AND
10/01/2008, 16h47
random

je vois pas bien comment

and(k="toto";k="tata") pourrait devenir vrai

d'un autre côté cela supprimera le bug (la condition sera toujours fausse).
10/01/2008, 16h52
Eric93

Il as pas mis égal mais différent
10/01/2008, 16h56
LeForestier

Bonjour,
Si c'est possible met ta macro, ont pourras la tester.
L'erreur 1004 peut aussi être une erreur qui dépend tu contexte.
A+
10/01/2008, 16h56
Eric93

Au début du post il mettais égal et dans son dernier message il met different :

Citation:

Code:

Do while k<>"toto" xor k<>"tata"

Effectivement la même chose avec OR serais toujours VRAI, d'ou peut-être l'erreur

Bref c'est pas clair ce qu'uil veux
10/01/2008, 17h02
LeForestier

Citation:

Envoyé par Eric93

Au début du post il mettais égal et dans son dernier message il met different :

Effectivement la même chose avec OR serais toujours VRAI, d'ou peut-être l'erreur

Bref c'est pas clair ce qu'uil veux

Désolé, mais c'est tout a fait clair et la condition mise dans sont premier poste fonctionne parfaitement, d'où mon message précédant où le problème est dù au contexte.
A+
10/01/2008, 17h24
Bigalo

Peux-tu nous indiquer plus précisément ce que sont les 2 conditions, et ce k représente ?
10/01/2008, 18h31
laloune

1 pièce(s) jointe(s)

voilà mon fichier incluant mon code.

Merci pour votre aide précieuse en tous cas

laloune
10/01/2008, 19h01
LeForestier

tu fait tout un tas de tests sur une feuille SourceSheet mais qui, dans le fichier passé est vide ? . De ce fait impossible de passer par ton While.

SAlut
Sans données ca va etre compliquer
J'ai juste remarquer une amelioration de la syntaxe, bien que ca ne changera rien a ton probleme
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 'Repérage de la dernière cellule 'LastCell = .Range("A65536").End(xlUp).Address 'LastCell = .Cells(Rows.Count, "A").End(xlUp).Address '///////////// 'Définition de la plage 'Set PlageATraiter = .Range("A1:" & CStr(LastCell)) Set PlageATraiter = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)) '///////////// For Each Cellule In PlageATraiter 'Extraction de la famille If Trim(ExtractElement(Cellule, ":", 1)) = "Famille de formules" Or Trim(ExtractElement(Cellule, ":", 1)) = "Set of formulas" Then VarFamille = Left(ExtractElement(Cellule, ":", 2), Len(ExtractElement(Cellule, ":", 2)) - 1) '////// 'End If ElseIf Trim(ExtractElement(Cellule, ":", 1)) = "Formule manuelle" Or Trim(ExtractElement(Cellule, ":", 1)) = "Manual formula" Then
[Edit]
Par contre ca ne changera peut etre rien mais je mettrais des parentheses, je crois quil y a quelmque chose qui ne va pas sinon

Code:

Do While (ExtractElement(Cellule.Offset(IndexParametres, 0), ";", 1) <> "Apply to breakdown") Xor (ExtractElement(Cellule.Offset(IndexParametres, 0), ";", 1) <> "Appliquer sur les détails")

Il me semble .. mais c'est peut etre dans ma tete que dans un cas If A = B Xor C = D Then Vb peut craker et comprendre If A = (B Xor C) = D Then Je crois avoir vu ca quelque part mais n'en suis pas totalement sur, je prend qd meme le risque de me ridiculiser si ca n'est pas le cas :D
[/Edit]

A++
Qwaz

Voir 40 message(s) de cette discussion en une page