Bonjour,
Sur la formation que je suis il y a une partie "gestion de l'erreur."
J'ai écris le programme mais cela me créée une boucle infinie qui affiche constamment "veuillez saisir une valeur numérique".
Exemple: si l'on renseigne un chiffre 50.2 au lieu de 50,2
Je suis désolé mais je ne vois pas ce qui coince dans mon programme.
J'ai écris exactement le même programme que celui de la formation.
En pièce jointe le fichier
Public Const TVA As Currency = 20
Sub Test_Constante_TVA()
Dim Prix As Variant
On Error GoTo Err_Handler
Prix = InputBox("Veuillez saisir le prix HT :")
Prix = Prix + (Prix * TVA / 100)
MsgBox "Le prix TTC est de : " & Prix & " €"
Exit Sub
Err_Handler:
Select Case Err.Number
Case 13
MsgBox "veuillez saisir une valeur numérique"
Resume
Case Else: MsgBox Err.Description
End Select
End Sub
Merci par avance
Cordialement
Mathieu