Discussion :

[zine pef]

salut le forum
je cherche un aide pour code en VB ,
pour la sisie dans textbox
je saisie des nombres inferiere de 20
si le nombre es supperiere de 20
msg" il ya une erreur"

[Antoniom]

Bonsoir,

Avec Excel 2003 ça donnerait quelque chose comme ça...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_Change()
 
    If Len(TextBox1) > 20 Then
        MsgBox "Maximum 20 caractères !"
            TextBox1 = ""
        TextBox1.SetFocus
    End If
 
End Sub

Cdt, Anton.

[laetitia]

bonjour zine pef Antoniom le forum on peut aussi faire comme cela
dans proprietés de la textbox MaxLength =20

[Krovax]

Bonjour,
D'après ce que je comprend de la question

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
 
    If Not IsNumeric(TextBox1.Value) And TextBox1 <> "" Then
            MsgBox "Veuillez saisir un nombre"
            TextBox1 = ""
    ElseIf TextBox1.Value > 20 And TextBox1 <> "" Then
        MsgBox "La saisie doit être inférieure a 20"
            TextBox1 = ""
    End If
End Sub

[laetitia]

re l' ami Krovax c' est vrai on peut l'interpréter comme tu le dis
on peut comme cela aussi

Code :

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

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

Code :

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

1
2
3
Private Sub Textbox1_Change()
If TextBox1 > 20 And TextBox1 <> "" Then MsgBox "valeur > 20": TextBox1 = ""
End Sub

[Krovax]

Bonjour laetitia,
Le truc ennuyeux avec toi c'est que j'ai toujours l'impression que tu fais a chaque fois mieux et plus cours.... Mais je l'aurais un jour je l'aurais