Validation contenu InputBox

Bonsoir à tous,

J'ai une InputBox où je dois entrer un montant pour un prix, j'aimerais exécuter une boucle Do de contrôle de ce montant
Si > 0 et OK alors je continue la procédure
Si 0 et OK alors message erreur et Loop
Si rien et OK alors message erreur et Loop
Si 0 et Annuler je quitte la procédure
Si rien et Annuler je quitte la procédure

J'ai essayé différentes méthode mais je n'arrive pas à ce que je voudrais

Merci pour votre aide

Essaie cet exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ret Do ret = InputBox("Entrer une valeur") If StrPtr(ret) = 0 Then Exit Sub If IsNumeric(ret) Then If CDbl(ret) > 0 Then Exit Do End If MsgBox "Veiller saisir une valeur correcte", vbExclamation Loop MsgBox "ok"

---

Bonsoir Mist2024,

Parfait, merci.