Boucle while non fonctionnel

[Vorens]

Bonjour à tous.


Je n'ai pour le moment pas encore utilisé de boucle while dans un programme. J'en ai fait une mais je fait visiblement des erreurs de synthaxe. Je souhaite que la boucle effectue une addition Nombre 1 = nombre 1 +1 tant que le résultat de ce calcul n'est pas présent dans mon tableau.

Donc un fait une recherche avec fonction find. si trouvé, le programme passe plus loin. si pas trouvé on fait le caclul et on vérifie si le résultat existe si non, c'est reparti pour la un tour.

Voila je code que j'ai fais:

Sheets("00098").Activate

NombreExiste = Range("U3").Value

Set celluletrouvee1 = Range("F1:F65000").Find(NombreExiste, lookat:=xlWhole)

Do While celluletrouvee1 Is Nothing

NombreExiste = NombreExiste + 1

Set celluletrouvee1 = Range("F1:F65000").Find(NombreExiste, lookat:=xlWhole)

If Not celluletrouvee1 Is Nothing Then

Exit Do

Else

Loop

J'ai comme messade d'erreur "boucle sans DO"

Si quelqu'un vois pourquoi ^^


Merci de votre aide

Cordialement Vorens

 

[Pierrot93]

Re : Boucle while non fonctionnel

Bonjour,

déjà il manque un "end if" :

If Not celluletrouvee1 Is Nothing Then

Exit Do

Else
End If
Loop

bon après midi
@+

 

[Vorens]

Re : Boucle while non fonctionnel

Re,

Me god, plus dormir, moin geek la nuit 😉 J'avais pas vu sa, c'est bon mnt sa marche

Merci à toi