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