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]

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,

[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+

[laloune]

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

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 :

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

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

Merci en tous cas

[Eric93]

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

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

[Eric93]

Il as pas mis égal mais différent

[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+

[Eric93]

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

Code :

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

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

[LeForestier]

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+

[Bigalo]

Peux-tu nous indiquer plus précisément ce que sont les 2 conditions, et ce k représente ?

[laloune]

voilà mon fichier incluant mon code.

Merci pour votre aide précieuse en tous cas

laloune

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

[Qwazerty]

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 :

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

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

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
[/Edit]

A++
Qwaz