saisie dans textbox avec condition en VB

Version imprimable

29/05/2009, 00h19
zine pef

saisie dans textbox avec condition en VB

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"

Bonsoir,

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

Code:

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.

29/05/2009, 09h20
laetitia

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

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

Code:

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

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

Code:

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

Code:

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

29/05/2009, 09h50
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 :frenchy:

Bonjour,

Ou encore :
Code:

1 2 3 4 5 Private Sub Textbox1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then Exit Sub If Textbox1 = "" And Val(Chr(KeyAscii)) > 2 Then KeyAscii = 0: Beep If Not IsNumeric(Chr(KeyAscii)) Or Val(Textbox1.Text & Chr(KeyAscii)) > 20 Then KeyAscii = 0: Beep End Sub
Qui permettra :
- de faire des backspace
- d'éviter d'entrée de jeu une saisie erronée (si 1er caractère > 2)
-d'éviter toute saisie erronée
- de n'utiliser qu'un seul évènement
- de "sonner les cloches" de l'utilisateur

29/05/2009, 11h53
zine pef

merci à tout et le forum
c'est resolu:ccool:

La bonne méthode de controle de saisie ...

Bonjour,

Voila un exemple de controle sur un textbox que je mets toujours en place dans mes applications

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TxtDateMandat_Enter() 
    ' je stocke la date avant la saisie par l'itulisateur
    TxtDateMandat.Tag = TxtDateMandat
End Sub

*Private Sub TxtDateMandat_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ' Si la saisie est incorrecte on ne valide pas la saisie avec Cancel=True    
     If Not IsDate(TxtDateMandat) Then
        MsgBox "La saisie n'est pas une date !" 
        ' Je recupere l'ancienne valeur 
        TxtDateMandat = TxtDateMandat.Tag
        Cancel = True
    End If
End Sub

Donc il suffit avec cette exemple d'apdater selon les besoins de controles de saisie .......

:ccool: