Les Allergies
Alimentaires
Posez votre question Signaler

Problème avec la boucle while sur vba [Résolu]

buffalo31 22Messages postés 17 avril 2009Date d'inscription 28 septembre 2011Dernière intervention - Dernière réponse le 20 avril 2009 à 11:46
Bonjour,
Je suis en train de faire un petit code sur vba excel mais j'ai un probleme avec la boucle while qui n'intègre pas les deux conditions que je lui associe:
ac = Worksheets("Interface").Cells(3, 3).Value
eng = Worksheets("Interface").Cells(4, 3).Value
While Worksheets("DataSheet").Cells(i, 1).Value <> ac And Worksheets("DataSheet").Cells(i, 2).Value <> eng
i = i + 1
Wend
......
.......
Quand j'exécute le code, dès que la première condition est vérifiée, il sort de la boucle sans tenir compte de la seconde condition.
Alors comment faire pour que ma boucle while prenne en compte les deux conditions? J'ai essayé en mettant des paranthèses pour séparer les deux conditions, mais ça change rien.
Merci d'avance
Lire la suite 

Problème avec la boucle while sur vba »

5 réponses
Réponse
+0
moins plus
Bonjour

le while de VBA gère parfaitement un "et" entre deux conditions, je pense plutôt que c'est toi as un petit problème pour exprimer ce que tu veux ;)

Peux-tu donner quelques exemples (avec des valeurs) de cas où la boucle doit continuer et d'autres où elle doit s'arrêter ? Tu te rendras probablement compte toi-même de ton erreur.
Dante-33- 20 avril 2009 à 10:41
essaye de mettre des parenthèses comme ceci

While ((Worksheets("DataSheet").Cells(i, 1).Value <> ac) And (Worksheets("DataSheet").Cells(i, 2).Value <> eng ))

mais sinon il a raison pour les opérateurs logiques en VBA voici le cours

http://www.commentcamarche.net/contents/vbscript/vbsop.php3
buffalo31- 20 avril 2009 à 11:27
J'ai essayé avec les paranthèses tel que vous avez indiqué mais ça change toujours pas. Voici un exemple:

Dans Worksheets("DataSheet") .Cells(i, 1) j'ai des avions et dans Worksheets("DataSheet") .Cells(i, 2) j'ai des moteurs.

Je rentre dans une feuille qui s'appelle Worksheets("Interface") un avion (ac) et un moteur (eng) respectivement "B747" et "PW4000"

L'idée c'est de récupérer la ligne i de Worksheets("DataSheet") où Worksheets("DataSheet") .Cells(i, 1) = "B747" et Worksheets("DataSheet") .Cells(i, 2) = "PW4000" pour faire d'autres traitements.

Qd je rentre le moteur qui correspond au bon avion, ya pas de pb

Mais qd je rentre un moteur qui ne correspond pas à l'avion, je m'attends à ce qu'il ne trouve rien, à la limite je mets une conditions pour qu'il sorte de boucle. Mais à ma grande surprise, il récupère la ligne i de la première condition qui est vérifiée.

Donc en gros les deux condtions paraissent dissociées, ce que je ne comprends pas.
Ajouter un commentaire
Réponse
+0
moins plus
tu veux trouver Worksheets("DataSheet") .Cells(i, 1) = "B747" et Worksheets("DataSheet") .Cells(i, 2) = "PW4000"
Alors il faut boucler tant que Worksheets("DataSheet") .Cells(i, 1) <> "B747" OR Worksheets("DataSheet") .Cells(i, 2) <> "PW4000"
Ajouter un commentaire
Réponse
+0
moins plus
Super ça marche, je me plantais au niveau de la négation dans mes opérateurs logiques lol! un peu de retour dans la logique en math me ferait pas de mal.
Encore une fois merci merci et à bientôt
Ajouter un commentaire
Ce document intitulé « Problème avec la boucle while sur vba » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?