Gérer bouton "Annuler" dans un inputBox

Bonjour

Dans la macro (voir fichier joint) je voudrais sortir de la boucle Do ... Loop while quand je clique sur "Annuler", car dans le cas présent je reste dans la boucle et ceci tant que je n'est pas rentré une valeur numérique.

Je sais qu'avec un MsgBox on peut afficher qu'un ou plusieurs boutons, mais je n'ai pas trouvé si l'on pouvait faire la même chose avec un inputBox.

Merci.

Bonjour

A tester

Option Explicit

Sub numero()
Dim Reponse As Variant

  Do
    Reponse = InputBox("Entrez un numŽro : ", "Recherche", "Entrez une valeur numérique seulement")

    If IsNumeric(Reponse) Then Range("A1").Value = Reponse: Exit Sub
    If Reponse = "" Then Exit Sub
    MsgBox ("Veuillez entrer une valeur numérique s.v.p., merci")

  Loop While Reponse <> IsNumeric(Reponse)

End Sub

Je te remercie de t'être donné de la peine, mais entre temps, j'ai trouvé une solution.

Option Explicit

Sub numero()
Dim Reponse As Variant

Do
Reponse = Application.InputBox("Entrez un numéro : ", "Recherche", "Entrez une valeur numérique seulement")
If Reponse = False Then Exit Sub
If IsNumeric(Reponse) Then Range("A1").Value = Reponse: Exit Sub

            MsgBox ("Veuillez entrer une valeur numérique s.v.p., merci")

Loop While Reponse <> IsNumeric(Reponse)

End Sub

Je viens de m'apercevoir que lorsque l'on passe d'une version MAC vers un PC les caractères "é" sont changés en "Ž". Il doit y avoir un réglage à faire dans les préférences. Je vais voir ça.