conditions multiple dans un user form

Bonjour à tous,

Alors j'ai problème très simple dont bizarrement je ne trouve pas la solution.. (je suis un peu fatigué en ce moment) Bref.
Alors j'ai un userform avec 5 textbox et dans la première il me faut impérativement un chiffre (ça c'est ok) et dans les autre sois un chiffre sois rien.
Voici le code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Ajouter_Click()   If IsNumeric(Numero.Value) 'Or IsNumeric(TextBox1.Value) Or IsNull(TextBox1.Value) Then Call ajoutElement Unload Me Else Label6.Visible = True 'Label visible End If

---

Bon alors ça ça marche quand j'avais qu'une seule textbox . Le Label 6 est un petit message indiquant qu'il faut mettre un chiffre.
Et alors comme vous voyez avec le commentaire 'Or ... J'ai essayé de rajouter des conditions pour les autres textbox avec des Or et des And mais ça marche pas.. Je crois que c'est un simple problème de logique, en même temps il me semble avoir fait toutes les combinaisons. Alors est ce qu'il y a une notion de priorité des conditions ? ou une manière de les rassembler ?

Quelqu'un aurait-il un élément de réponse ?

Merci d'avance

Baldo

Bonjour,

Pour contrôler la saisie, vous pouvez utiliser ce code pour votre TextBox1 :

Il suffit ensuite de contrôler que le TextBox est non vide pour valider.

Code:

---

1 2 3 4

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

---

Cordialement.

whaoo, merci mais j'ai pas tout compris .. Vous pourriez expliquez un peu votre code svp ?

Citation:

---

Envoyé par Baldo32

Vous pourriez expliquez un peu votre code svp ?

---

Les touches clavier autorisées sont celles comprises dans "1234567890". Vous pouvez bien sûr en ajouter d'autres comme le séparateur décimal ou le / par exemple, le cas échéant.

Cordialement.

Merci c'est effectivement très pratique ..
Par contre je n'arrive pas à mettre la condition vérifiant si la text box est vide ou nous ..
j'ai essayé bcp de solutions aussi pourtant.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Ajouter_Click()   If Numero.Value = vbEmpty Then Label6.Visible = True 'Label visible Else Call ajoutElement Unload Me End If   End Sub

---

Code:

---

1 2 3 4 5 6 7 8

Private Sub Ajouter_Click()   If Not IsNull(TextBox1.Value) Then Call ajoutElement Unload Me Else Label6.Visible = True 'Label visible End If

---

Et bien l'un comme l'autre ne fonctionnent pas du tout ni même IsEmpty..

Merci d'avance !

Citation:

---

Envoyé par Baldo32

Par contre je n'arrive pas à mettre la condition vérifiant si la text box est vide ou nous ..

---

Bonjour,

Exemple :

Code:

---

1 2	If TextBox1 <> "" Then

---

Cordialement.

A oui c'est vrai .. Parfois il faut revenir au choses simples ;) .

Merci bcp !!