Le code ci-dessous t'interdit de saisir dans la zone de texte des chiffres frappés sur le clavier numérique ou alphanumérique. Tu ne pourras pas non plus saisir un texte du genre AAZ0123XX.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode >= 96 And KeyCode <= 105) _ Or (KeyCode >= 48 And KeyCode <= 57) Then MsgBox "Chiffres interdits" KeyCode = 0 End If End Sub
Le code ci-dessous t'interdit de saisir dans la zone de texte des chiffres
frappés sur le clavier numérique ou alphanumérique. Tu ne pourras pas non
plus saisir un texte du genre AAZ0123XX.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 96 And KeyCode <= 105) _
Or (KeyCode >= 48 And KeyCode <= 57) Then
MsgBox "Chiffres interdits"
KeyCode = 0
End If
End Sub
Le code ci-dessous t'interdit de saisir dans la zone de texte des chiffres frappés sur le clavier numérique ou alphanumérique. Tu ne pourras pas non plus saisir un texte du genre AAZ0123XX.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode >= 96 And KeyCode <= 105) _ Or (KeyCode >= 48 And KeyCode <= 57) Then MsgBox "Chiffres interdits" KeyCode = 0 End If End Sub
Est cela que tu voulais ?
A+ Eric
FEUZ TOFF
Je vais l'utiliser pour voir ce ca donne. Merçi de votre disponibilité
Le code ci-dessous t'interdit de saisir dans la zone de texte des chiffres frappés sur le clavier numérique ou alphanumérique. Tu ne pourras pas non plus saisir un texte du genre AAZ0123XX.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode >= 96 And KeyCode <= 105) _ Or (KeyCode >= 48 And KeyCode <= 57) Then MsgBox "Chiffres interdits" KeyCode = 0 End If End Sub
Est cela que tu voulais ?
A+ Eric
Je vais l'utiliser pour voir ce ca donne.
Merçi de votre disponibilité
Le code ci-dessous t'interdit de saisir dans la zone de texte des chiffres
frappés sur le clavier numérique ou alphanumérique. Tu ne pourras pas non
plus saisir un texte du genre AAZ0123XX.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 96 And KeyCode <= 105) _
Or (KeyCode >= 48 And KeyCode <= 57) Then
MsgBox "Chiffres interdits"
KeyCode = 0
End If
End Sub
Le code ci-dessous t'interdit de saisir dans la zone de texte des chiffres frappés sur le clavier numérique ou alphanumérique. Tu ne pourras pas non plus saisir un texte du genre AAZ0123XX.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode >= 96 And KeyCode <= 105) _ Or (KeyCode >= 48 And KeyCode <= 57) Then MsgBox "Chiffres interdits" KeyCode = 0 End If End Sub
