Pas compris, mais tu étais seul à avoir ton erreur !
Pour ce qui est de la boucle infinie, pas besoin de tester si : 1 = 1
tu ne mets rien, ça suffit et tu ne pourras sortir que par un Exit Do
. (Esprit tortueux ?)
InputBox renvoie toujours une valeur de type String, ce ne peut donc être Empty
. En fait on constate que en cas de clic sur Annuler c'est la valeur vbNullString
qui est renvoyée, pour laquelle StrPtr renvoie 0, mais un clic sur OK sans saisie dans la boîte renvoie une chaîne vide (valeur que l'on note par ""), pour laquelle StrPtr ne renvoie pas 0.
Je ne comprends la raison de ta distinction, mais pas grave...
Bye.