Erreur inputbox valeurs non chiffres

Bonjour,

J'ai fait une inputbox dans laquelle l'utilisateur doit inscrire un prix.

Seulement si l'on fait une erreur de frappe et si l'on marque une lettre, ou une valeur qui n'est pas un chiffre, cela provoque un message d'erreur. Comment faire pour éviter ce bug, et à la place avoir un msgbox disant "Veuillez inscrire uniquement un chiffre", et en cliquant sur OK la personne doit retourner à l'inputbox?

Merci d'avance!!!!

PS: voilà ma macro:

Sub otherprice()

Dim price

price = InputBox("Veuillez entrer un prix.")

If price <> "" Then

Range("b1").Value = Range("b1").Value + price

If price = "" Then

MsgBox ("Veuillez indiquer un prix")

Else

MsgBox ("Ce prix a été ajouté à votre compte")

End If

End Sub

Bonjour,

Rajoute ce code dans ton macro pour vérifier la saisie d'un nombre.

If Not IsNumeric(price) Then
    MsgBox "Merci de saisir une valeur numérique", vbExclamation
end if

Cdlt,

J'ai essayé mais ca ne marche pas, j'ai un message d'erreur"Run time error 13: type dismatch", quand j'entre une lettre au lieu d'un chiffre dans l'inputbox....

Et aussi, comment faire pour qu'après mon msgbox "Veuillez entrer une valeur numérique", je puisse retourner automatiquement à l'inputbox?

PS : suis très débutante en VBA

bonjour

une piste a travers ce code et l'utilisation de la méthode inputbox qui permet de controler la saisie.

Dim valeur

Do
valeur = Application.InputBox("Veuillez entrer un prix.", Type:=1)
Loop While valeur = ""
If valeur = False Then Exit Sub 'gestion de la touche annul
Range("b1").Value = Range("b1").Value + valeur
MsgBox ("Ce prix a été ajouté à votre compte")

salut