Structure Do While loop

Bonjour

Voilà j'ai un problème avec ma fonction Do while :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Test() Dim i as Integer   i=1   Do While Worksheets("Feuil2").Range("A" & i) <> "" Or Worksheets("Feuil1").Range("B1") <> Worksheets("Feuil2").Range("A" & i) i = i + 1 Loop   'Après j'ai d'autres boucles, notamment un :   If Worksheets("Feuil1").Range("B1") = Worksheets("Feuil2").Range("A" & i)   '..etc   End Sub

---

Mais lorsque je lance la macro ça mouline et je suis obligé de forcer la sorti pour arréter comme si il y avait un problème dans le TantQue, qu'il n'arrivait pas à en sortir.
Dans ma tête ça devrait faire

Citation:

---

SI Worksheets("Feuil2").Range("A" & i) = ""
ALORS je sors et je vais dans la boucle SI
OU

SI Worksheets("Feuil1").Range("B1") Worksheets("Feuil2").Range("A" & i)
ALORS je sors et je vais dans la boucle SI

---

Peut être que ma tête et la traduction en VB n'est pas bonne...

Une idée la dessus

Merci beaucoup

Tu as regardé ce que ça donne en mode pas-à-pas? Tu mets un point d'arrêt sur ton Do While, tu executes, et tu fais [F5] pour passer à la boucle suivante. Voire [F8] pour faire ligne de code par ligne de code. Pour ce genre de debuggage, c'est bien plus efficace qu'une analyse du code : on le voit marcher.

Evidemment, il faut sauvegarder avant, des fois que la parti qui boucle soit entre deux points d'arrêt. Si ça arrive, rajoute plus de points d'arrêts. Et vois ton algo fonctionner. C'est très instructif, et on voit tout de suite ses erreurs.

Merci,

Mais comment fais tu pour faire un point d'arret ? je ne vois pas ce que tu veux dire.
Car en faisant F5 ça mouline sans s'arrêter ! ;)

En faisant F8 je vous que ça ne cesse de boucler dans le do while, ça ne sort jamais ! :cry:

La question que je me pose est :
Est ce que pour i = 1
Worksheets("Feuil2").Range("A" & i) est bien égale Feuil2.A1 ?

est ce que celà fonctionne correctement ?

Merci

Code:

---

1 2 3 4 5 6 7

Dim i As Long   i = 1 Do While Sheets("Feuil2").Range("A" & i).Value <> "" And Sheets("Feuil2").Range("A" & i).Value <> Sheets("Feuil1").Range("B1").Value i = i + 1 Loop MsgBox i

---

La condition avec Or ne serait pas pas satisfaite. mettre un And

Merci,

Je crois que c'est bon ça fonctionne !

En route pour le prochain problème... Vlookup :)

Merci