Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Textbox format date

Textbox format date

4 réponses
Avatar
Vincent
Bonsoir
J'ai un textbox, je souhaite que l'utilisateur ne saisisse que 4 chiffres
pas plus pas moins
car il s'agit d'une date au format AAAA
Merci beaucoup
Vincent
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Vincent,

Essaie ceci :

'----------------------------
Private Sub TextBox1_Change()

Dim T As String, Nb As Integer
Dim A As Integer, R As String
Dim L As String
T = Me.TextBox1
Nb = Len(T)
For A = 1 To Nb
L = Mid(T, A, 1)
If IsNumeric(L) Then
R = R & L
End If
Next

If Len(R) > 4 Then
R = Left(R, Len(R) - 1)
End If
Me.TextBox1 = R

End Sub
'----------------------------


Salutations!



"Vincent" a écrit dans le message de news:%
Bonsoir
J'ai un textbox, je souhaite que l'utilisateur ne saisisse que 4 chiffres
pas plus pas moins
car il s'agit d'une date au format AAAA
Merci beaucoup
Vincent
Avatar
Vincent
Merci beaucoup
Vincent

"michdenis" a écrit dans le message de news:

Bonjour Vincent,

Essaie ceci :

'----------------------------
Private Sub TextBox1_Change()

Dim T As String, Nb As Integer
Dim A As Integer, R As String
Dim L As String
T = Me.TextBox1
Nb = Len(T)
For A = 1 To Nb
L = Mid(T, A, 1)
If IsNumeric(L) Then
R = R & L
End If
Next

If Len(R) > 4 Then
R = Left(R, Len(R) - 1)
End If
Me.TextBox1 = R

End Sub
'----------------------------


Salutations!



"Vincent" a écrit dans le message de
news:%
Bonsoir
J'ai un textbox, je souhaite que l'utilisateur ne saisisse que 4 chiffres
pas plus pas moins
car il s'agit d'une date au format AAAA
Merci beaucoup
Vincent





Avatar
Michel Pierron
Bonsoir Denis;
Pour limiter la longueur à 4, il existe la propriété TextBox1.MaxLength = 4
MP

"michdenis" a écrit dans le message de
news:
Bonjour Vincent,

Essaie ceci :

'----------------------------
Private Sub TextBox1_Change()

Dim T As String, Nb As Integer
Dim A As Integer, R As String
Dim L As String
T = Me.TextBox1
Nb = Len(T)
For A = 1 To Nb
L = Mid(T, A, 1)
If IsNumeric(L) Then
R = R & L
End If
Next

If Len(R) > 4 Then
R = Left(R, Len(R) - 1)
End If
Me.TextBox1 = R

End Sub
'----------------------------


Salutations!



"Vincent" a écrit dans le message de
news:%

Bonsoir
J'ai un textbox, je souhaite que l'utilisateur ne saisisse que 4 chiffres
pas plus pas moins
car il s'agit d'une date au format AAAA
Merci beaucoup
Vincent





Avatar
Denis Michon
Bonjour Michel,

"propriété TextBox1.MaxLength = 4"

Je suis d'accord avec toi que tu peux utiliser cela... mais cela ne règle pas le problème du contrôle sur le contenu du
textbox !


Salutations!



"Michel Pierron" a écrit dans le message de news:
Bonsoir Denis;
Pour limiter la longueur à 4, il existe la propriété TextBox1.MaxLength = 4
MP

"michdenis" a écrit dans le message de
news:
Bonjour Vincent,

Essaie ceci :

'----------------------------
Private Sub TextBox1_Change()

Dim T As String, Nb As Integer
Dim A As Integer, R As String
Dim L As String
T = Me.TextBox1
Nb = Len(T)
For A = 1 To Nb
L = Mid(T, A, 1)
If IsNumeric(L) Then
R = R & L
End If
Next

If Len(R) > 4 Then
R = Left(R, Len(R) - 1)
End If
Me.TextBox1 = R

End Sub
'----------------------------


Salutations!



"Vincent" a écrit dans le message de
news:%

Bonsoir
J'ai un textbox, je souhaite que l'utilisateur ne saisisse que 4 chiffres
pas plus pas moins
car il s'agit d'une date au format AAAA
Merci beaucoup
Vincent