Discussion :

[duplaly]

Bonjour
je ne sais pas si cela se fait, mais j'essaye de mettre une condition sur un textbox et je ne sais pas comment.
Merci pour toute aide
voici, ce que j'essaye de faire!

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox5_Change()
If Val(TextBox5 + 100) < Val(TextBox4) Then
    TextBox7.Value = "OK"
Else
    TextBox7.Value = "Late"
End If
End Sub

[Invité]

Bonsoir,
A la limite, je ne comprends pas pourquoi cette question. Si tu fais un essai, tu constateras que c'est parfaitement licite, avec toutefois un petit bémol.
Si tu effaces le contenu de TextBox5 cela provoquera une erreur de type. Pour éviter cet écueil ajoute en ligne 1 de ta procédure:

Code :

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

    If TextBox5 = "" Then Exit Sub

[SfJ5Rpw8]

Bonjour,
sort le +100 de l'instruction Val utilisèe pour textbox5

[Theze]

Bonjour,

Pour faire simple dans la gestion des valeurs numériques, j'utilise des variables de type Double donc, une erreur est produite si la valeur saisie n'est pas numérique. Si tu veux toi-même gérer la saisie, regarde du coté de "KeyPress" et "KeyDown" pour intercepter la valeur entrée et la modifier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub TextBox5_Change()
 
    Dim Valeur1 As Double
    Dim Valeur2 As Double
 
    If TextBox4.Text = "" Or TextBox5.Text = "" Then Exit Sub
 
    On Error GoTo Fin
    Valeur1 = TextBox5.Text
    Valeur2 = TextBox4.Text
 
    TextBox7.Value = IIf(Valeur1 + 100 < Valeur2, "OK", "Late")
 
    Exit Sub
 
Fin:
    MsgBox "Seulement numérique !"
 
End Sub

Hervé.