Discussion :

[panda78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  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".

[jfontaine]

Bonjour,

Pour tester si la textbox n'est pas vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[panda78]

Voilà ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[panda78]

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