Saisie obligatoire dans un texbox 2

Le
Milan DESHAYES
Bonsoir
Dans un textbox, je souhaite que le troisième caractère saisi soit
obligatoirement un 8 ou un 9
Je vous remercie
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
PascalXLD
Le #4746001
On 17 sep, 21:03, "Milan DESHAYES"
Bonsoir
Dans un textbox, je souhaite que le troisième caractère saisi soit
obligatoirement un 8 ou un 9
Je vous remercie


Bonjour

Une petite piste

If Mid(Me.TextBox1, 3, 1) Then MsgBox "erreur"

lSteph
Le #4745981
Bonjour,

Private Sub TextBox1_Change()
Dim tst As Boolean
tst = False
If Len(TextBox1) >= 3 Then
Select Case Mid(TextBox1, 3, 1)
Case "8", "9"
tst = True
Case Else
Application.EnableEvents = False
TextBox1 = Left(TextBox1, 2)
Application.EnableEvents = True
MsgBox "le 3eme chr doit être 8 ou 9"
End Select
End If
End Sub

'lSteph





On 18 sep, 13:46, PascalXLD
On 17 sep, 21:03, "Milan DESHAYES"
Bonsoir
Dans un textbox, je souhaite que le troisième caractère saisi soit
obligatoirement un 8 ou un 9
Je vous remercie


Bonjour

Une petite piste

If Mid(Me.TextBox1, 3, 1) Then MsgBox "erreur"



Milan DESHAYES
Le #4745601
Parfait !!!!!!!!!

"lSteph"
Bonjour,

Private Sub TextBox1_Change()
Dim tst As Boolean
tst = False
If Len(TextBox1) >= 3 Then
Select Case Mid(TextBox1, 3, 1)
Case "8", "9"
tst = True
Case Else
Application.EnableEvents = False
TextBox1 = Left(TextBox1, 2)
Application.EnableEvents = True
MsgBox "le 3eme chr doit être 8 ou 9"
End Select
End If
End Sub

'lSteph





On 18 sep, 13:46, PascalXLD
On 17 sep, 21:03, "Milan DESHAYES"
Bonsoir
Dans un textbox, je souhaite que le troisième caractère saisi soit
obligatoirement un 8 ou un 9
Je vous remercie


Bonjour

Une petite piste

If Mid(Me.TextBox1, 3, 1) Then MsgBox "erreur"



Publicité
Poster une réponse
Anonyme