Discussion :

[carlux3]

Bonjour

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

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

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

[el_slapper]

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.

[carlux3]

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 !

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

[mercatog]

Code :

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

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

[carlux3]

Merci,

Je crois que c'est bon ça fonctionne !

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

Merci