Discussion :

[Baldo32]

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 :

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

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

[Invité]

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 :

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

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.

[Baldo32]

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

[Invité]

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.

[Baldo32]

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 :

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

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 :

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

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 !

[Invité]

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

Bonjour,

Exemple :

Code :

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

1
2
 
If TextBox1 <> "" Then

Cordialement.