textbox non remplie

Bonjour
dans mon programme j'ai deux variables dont je rentre les valeurs numériques via un textbox comme suit:

Code:

---

1 2	L1 = CDbl(UserForm1.TextBox2.Value) L2 = CDbl(UserForm1.TextBox3.Value)

---

je souhaiterai faitre apparaitre un message d'erreur au cas où les textbox ne seraient pas remplie comme par exemple :

Code:

---

MsgBox "Merci de saisir une longueur valide"

---

j'ai essayé mais quand j'execute le programme ça renvoi constamment un message d'erreur:"erreur 13 incompatibilité de type".

Bonjour,

Pour tester si la textbox n'est pas vide

Code:

---

If UserForm1.TextBox1.Value <> "" Then L1 = CDbl(UserForm1.TextBox2.Value)

---

NB : il te restera à traiter le problème de la saisie de caractères non numérique

Voilà ce que j'ai fait

Code:

---

1 2 3 4

If UserForm1.TextBox2.Value <> "" L1 = CDbl(UserForm1.TextBox2.Value) Then MsgBox "Merci de saisir une Longeur valide"     If UserForm1.TextBox3.Value <> "" L2 = CDbl(UserForm1.TextBox3.Value)Then MsgBox "Merci de saisir une largeur valide"

---

mais ça marche pas...

je voudrais faire apparaitre un message du genre:

Code:

---

msgBox "Merci de saisir une Longeur valide"

---

si l'utilisateur n'entre pas de valeurs dans les deux textbox afin que VBA n'envoi pas de message d'erreur quand on execute le calcul.

c'est bon j'ai réussi grace à un exit sub :) merci