[vba-e] Gestion D'erreur Dans Un Inputbox

Bonjour,

EDIT : J'ai dit n'importe quoi, il ne s'agit pas du tout d'un user form, c'est simplement une inputbox.

Lors de la gestion des erreurs, 2 erreures possibles se posent.

Je rappelle que je traite des données numériques

La première : L'utilisateur entre le chiffre 0 ( division par 0 )
La seconde : L'utilisateur entre une CHAINE DE CARACTERE

J'ai géré sans problèmes la division par 0.

Par contre, pour ce qui est de la chaine de caractère ( vide ou non ), je n'arrive pas à trouver une solution.

Quand l'utilisateur entre une chaine vide ( donc rien ), ou une chaine non vide, il se produit une incompatibilité de type, puisque la variable qui receuille l'information est de type DOUBLE.

Donc je ne peut meme pas effectuer de test dessus avant de l'affecter à ma variable.

Je ne sais pas si j'ai été trés limpide.:aie:

Merci d'avance.

Rebonjour,
Je viens de trouver la solution.

Code:

---

1 2 3 4

If InputBox("Veuillez entrer le prix") = "" Then MsgBox "Prix doit être renseigné !" End If

---

La solution peut paraitre evident, ceci dit, je ne savais pas qu'on pouvait effectuer des tests sur des chaines de caractères directement sur une InputBox.

Merci à tous, et désolé d'avoir fais perdre leur temps à ceux qui ont cherché, si chercheur il y a eu.

RESOLU

Hum...

En fait c'est terriblement faux ce que j'ai fais.

La, le test est effectivement effectuer, le problème est que l'utilisateur devra entrer 2 fois la réponse, et donc le test ne sert a rien.

En effet :

Code:

---

1 2 3 4 5 6 7

If InputBox("Veuillez entrer le prix") = "" Then MsgBox "Le prix doit etre renseigné!" GoTo recommence0 Else Prix = InputBox("Veuillez entrer le prix") End If

---

Helppp ...

Merci.

J'ai trouvé ( ENCORE ! ) ma réponse ici :

http://silkyroad.developpez.com/VBA/GestionErreurs/

Super complet ce tutorial.

Bref moralité de l'histoire : cherche ou crève.

A+ merci a tous.

RESOLU.