Forcer une date au format jj/mm/aaaa dans un userform.

H

headshot

XLDnaute Nouveau
Bonjour, dans une appli excel j'ai crée un userform ou l'utilisateur doit saisir une date (et d'autre champs) puis lorsque qui valide les champs de l'userform sont reprit dans un tableau. Cependant j'aimérai obliger l'utilisateur à saisir la date sous la forme jj/mm/aaaa. Il faudrait un bout de code du type :

If datej = "jj/mm/aaaa" Then
goto End If
Else
MsgBox ("Vous devez saisir la date sous la forme jj/mm/aaaa")
Intit.SetFocus
Exit Sub
End If

Sauf que je connaît pas la fonction qui permet de reconnaître la date sous la forme jj/mm/aaaa

Merci.
 
Trier par date Trier par votes
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : Forcer une date au format jj/mm/aaaa dans un userform.

Bonjour,

pour tester si une valeur est une date, tu peux essayer la fonction "isdate"... D'autre part, une petite recherche sur le forum te fournira divers exemples sur les contrôles de saisie...

bonne fin d'après midi
@+
 
Vote positif 0 Vote négatif
Borismy

Borismy

XLDnaute Occasionnel
Re : Forcer une date au format jj/mm/aaaa dans un userform.

Bonjour,

Un exemple (qui n'est pas de moi, on s'en serait douté :D)




Code: 
Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
'Ensuite pour vérifier que c'est bien une date qui a été saisie
Private Sub CommandButton1_Click()
If Not IsDate(TextBox1) Then
MsgBox "Format incorrect"
TextBox1 = ""
Exit Sub
Else
MsgBox "Format correct"
'...la suite de la procédure
End If
End Sub

Boris
 
Vote positif 0 Vote négatif
GeoTrouvePas

GeoTrouvePas

XLDnaute Impliqué
Re : Forcer une date au format jj/mm/aaaa dans un userform.

Bonjour tout le monde headshot, Pierrot et Borismy !

J'ai récemment planché sur le sujet pour une application que je suis en train de développer.

Etant assez perfectionniste (de temps en temps), j'ai poussé le contrôle à l'extrême pour empécher de saisir n'importe quoi et n'afficher un message d'erreur qu'en dernier recours. Voici mon code :

Code: 
Private Sub Textbox1_Change()
    
    TextBox1.BackColor = &H80000005

End Sub

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    TextBox1.BackColor = &H80000005
    If InStr("0123456789", VBA.Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        TextBox1.BackColor = &HFF&
    End If

End Sub

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    If Len(TextBox1.Text) = 0 Then
        GoTo Fin
    End If
        
    If Len(Replace(TextBox1.Text, "/", "")) <> 6 And Len(Replace(TextBox1.Text, "/", "")) <> 8 Then
        GoTo ErreurSaisie
    End If
    
    If Len(TextBox1.Text) = 6 Then
        If Right(TextBox1, 2) > 50 Then
            TextBox1 = Left(TextBox1, 4) & 19 & Right(TextBox1, 2)
        Else
            TextBox1 = Left(TextBox1, 4) & 20 & Right(TextBox1, 2)
        End If
    End If
    
    TextBox1.Text = Left(Replace(TextBox1.Text, "/", ""), 2) & "/" & Mid(Replace(TextBox1.Text, "/", ""), 3, 2) & "/" & Right(Replace(TextBox1.Text, "/", ""), 4)
    TextBox1.MaxLength = 10
    
    If Not IsDate(TextBox1.Value) Then
        GoTo ErreurSaisie
    End If
    
    GoTo Fin
    
ErreurSaisie:

    Cancel = True
    With TextBox1
        .BackColor = &HFF&
        MsgBox "Date saisie incorrecte"
        TextBox1.Text = Replace(TextBox1.Text, "/", "")
        .SetFocus
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
    End With
        
Fin:

End Sub

Private Sub NSaisie8_Enter()
    
    NSaisie8.Text = Replace(NSaisie8.Text, "/", "")
    NSaisie8.MaxLength = 8

End Sub

Ici l'utilisateur ne peut pas saisir autre chose que des chiffres (même pas un "/" qui seront placés automatiquement). Si il saisie une date au format jj/mm/aa, le contrôle est automatiquement modifié en jj/mm/aaaa (en mettant 19XX si aa est supérieur à 50 et 20XX si inférieur).

Normalement, tout ça devrait fonctionner impeccable. N'étant jamais à l'abri d'une erreur, ça serait sympa de me faire savoir si tu as des bugs (enfin si c'est ma version que tu choisis).

Bonne journée
 
Vote positif 0 Vote négatif
M

MJR

XLDnaute Nouveau
GeoTrouvePas à dit:
Re : Forcer une date au format jj/mm/aaaa dans un userform.

Bonjour tout le monde headshot, Pierrot et Borismy !

J'ai récemment planché sur le sujet pour une application que je suis en train de développer.

Etant assez perfectionniste (de temps en temps), j'ai poussé le contrôle à l'extrême pour empécher de saisir n'importe quoi et n'afficher un message d'erreur qu'en dernier recours. Voici mon code :

Code: 
Private Sub Textbox1_Change()
   
    TextBox1.BackColor = &H80000005

End Sub

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    TextBox1.BackColor = &H80000005
    If InStr("0123456789", VBA.Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        TextBox1.BackColor = &HFF&
    End If

End Sub

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
    If Len(TextBox1.Text) = 0 Then
        GoTo Fin
    End If
       
    If Len(Replace(TextBox1.Text, "/", "")) <> 6 And Len(Replace(TextBox1.Text, "/", "")) <> 8 Then
        GoTo ErreurSaisie
    End If
   
    If Len(TextBox1.Text) = 6 Then
        If Right(TextBox1, 2) > 50 Then
            TextBox1 = Left(TextBox1, 4) & 19 & Right(TextBox1, 2)
        Else
            TextBox1 = Left(TextBox1, 4) & 20 & Right(TextBox1, 2)
        End If
    End If
   
    TextBox1.Text = Left(Replace(TextBox1.Text, "/", ""), 2) & "/" & Mid(Replace(TextBox1.Text, "/", ""), 3, 2) & "/" & Right(Replace(TextBox1.Text, "/", ""), 4)
    TextBox1.MaxLength = 10
   
    If Not IsDate(TextBox1.Value) Then
        GoTo ErreurSaisie
    End If
   
    GoTo Fin
   
ErreurSaisie:

    Cancel = True
    With TextBox1
        .BackColor = &HFF&
        MsgBox "Date saisie incorrecte"
        TextBox1.Text = Replace(TextBox1.Text, "/", "")
        .SetFocus
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
    End With
       
Fin:

End Sub

Private Sub NSaisie8_Enter()
   
    NSaisie8.Text = Replace(NSaisie8.Text, "/", "")
    NSaisie8.MaxLength = 8

End Sub

Ici l'utilisateur ne peut pas saisir autre chose que des chiffres (même pas un "/" qui seront placés automatiquement). Si il saisie une date au format jj/mm/aa, le contrôle est automatiquement modifié en jj/mm/aaaa (en mettant 19XX si aa est supérieur à 50 et 20XX si inférieur).

Normalement, tout ça devrait fonctionner impeccable. N'étant jamais à l'abri d'une erreur, ça serait sympa de me faire savoir si tu as des bugs (enfin si c'est ma version que tu choisis).

Bonne journée
Cliquez pour agrandir...
Je ne dirai que deux mots : BRAVO et MERCI.
 
Vote positif 0 Vote négatif
Y

YHP5400

XLDnaute Nouveau
GeoTrouvePas à dit:
Re : Forcer une date au format jj/mm/aaaa dans un userform.

Bonjour tout le monde headshot, Pierrot et Borismy !

J'ai récemment planché sur le sujet pour une application que je suis en train de développer.

Etant assez perfectionniste (de temps en temps), j'ai poussé le contrôle à l'extrême pour empécher de saisir n'importe quoi et n'afficher un message d'erreur qu'en dernier recours. Voici mon code :

Code: 
Private Sub Textbox1_Change()
  
    TextBox1.BackColor = &H80000005

End Sub

Private Sub Textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    TextBox1.BackColor = &H80000005
    If InStr("0123456789", VBA.Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        TextBox1.BackColor = &HFF&
    End If

End Sub

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  
    If Len(TextBox1.Text) = 0 Then
        GoTo Fin
    End If
      
    If Len(Replace(TextBox1.Text, "/", "")) <> 6 And Len(Replace(TextBox1.Text, "/", "")) <> 8 Then
        GoTo ErreurSaisie
    End If
  
    If Len(TextBox1.Text) = 6 Then
        If Right(TextBox1, 2) > 50 Then
            TextBox1 = Left(TextBox1, 4) & 19 & Right(TextBox1, 2)
        Else
            TextBox1 = Left(TextBox1, 4) & 20 & Right(TextBox1, 2)
        End If
    End If
  
    TextBox1.Text = Left(Replace(TextBox1.Text, "/", ""), 2) & "/" & Mid(Replace(TextBox1.Text, "/", ""), 3, 2) & "/" & Right(Replace(TextBox1.Text, "/", ""), 4)
    TextBox1.MaxLength = 10
  
    If Not IsDate(TextBox1.Value) Then
        GoTo ErreurSaisie
    End If
  
    GoTo Fin
  
ErreurSaisie:

    Cancel = True
    With TextBox1
        .BackColor = &HFF&
        MsgBox "Date saisie incorrecte"
        TextBox1.Text = Replace(TextBox1.Text, "/", "")
        .SetFocus
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
    End With
      
Fin:

End Sub

Private Sub NSaisie8_Enter()
  
    NSaisie8.Text = Replace(NSaisie8.Text, "/", "")
    NSaisie8.MaxLength = 8

End Sub

Ici l'utilisateur ne peut pas saisir autre chose que des chiffres (même pas un "/" qui seront placés automatiquement). Si il saisie une date au format jj/mm/aa, le contrôle est automatiquement modifié en jj/mm/aaaa (en mettant 19XX si aa est supérieur à 50 et 20XX si inférieur).

Normalement, tout ça devrait fonctionner impeccable. N'étant jamais à l'abri d'une erreur, ça serait sympa de me faire savoir si tu as des bugs (enfin si c'est ma version que tu choisis).

Bonne journée
Cliquez pour agrandir...
super code c'est exactement ce que je cherchais depuis 1 semaine ravi de m'être inscrit sur le forum
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour
un peu plus pointu;) et dynamique
impossible de taper une date erroné et format français forcé
on peu pareil avec keydown aussi moyennat la conversion keycode/keyascii
VB: 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   'collection textbox formaté :patricktoulon
 Dim v, Mask$: Mask = "01/01/2000"
    If Chr(KeyAscii) Like "[!0-9]" Then KeyAscii = 0: Exit Sub
    With TextBox1
        v = .Value & Chr(KeyAscii)
        If Not IsDate(v & Mid(Mask, Len(v) + 1)) Then
            keyascci = 0: beep
        Else
            If Mid(v, 4, 2) > 12 Then v = Mid(v, 1, 3):beep
            .Value = v & IIf(Len(v) Like "[2,5]", "/", "")
        End If
    End With
    KeyAscii = 0
End Sub
 
Vote positif 0 Vote négatif
A

Astarelfe

XLDnaute Nouveau
patricktoulon à dit:
Bonjour
un peu plus pointu;) et dynamique
impossible de taper une date erroné et format français forcé
on peu pareil avec keydown aussi moyennat la conversion keycode/keyascii
VB: 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   'collection textbox formaté :patricktoulon
 Dim v, Mask$: Mask = "01/01/2000"
    If Chr(KeyAscii) Like "[!0-9]" Then KeyAscii = 0: Exit Sub
    With TextBox1
        v = .Value & Chr(KeyAscii)
        If Not IsDate(v & Mid(Mask, Len(v) + 1)) Then
            keyascci = 0: beep
        Else
            If Mid(v, 4, 2) > 12 Then v = Mid(v, 1, 3):beep
            .Value = v & IIf(Len(v) Like "[2,5]", "/", "")
        End If
    End With
    KeyAscii = 0
End Sub
Cliquez pour agrandir...

Bonjour,

Et merci pour ce code - Je ne peux pas saisir de date commençant par 31 (ex. 31/12/2022)
Avez-vous une suggestion ?
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2016 Insertion une date (JJ/MM/AAAA) et la time (HH:MM) dans une ListBox
Réponses
10
Affichages
325
MOEZ-TUN
M
C
  • Résolu(e)
XL 2021 Format date dans un en-tête
Réponses
13
Affichages
407
Constantin
C
halecs93
  • Résolu(e)
XL 2016 saisie date dans une textbox
Réponses
10
Affichages
552
p56
p56
T
  • Question
Microsoft 365 récupérer format date d'un textbox dans mon tableau
Réponses
5
Affichages
305
ChTi160
ChTi160
Ghassen
  • Question
XL 2019 Input.Box et format des dates mm/dd ou dd/mm
Réponses
6
Affichages
584
job75
job75
A
  • Résolu(e)
Microsoft 365 Empecher date de s'enregistrer au format américain
Réponses
2
Affichages
658
Arnnaud
A
A
  • Question
XL 2010 Tri sur Date
Réponses
4
Affichages
525
Aldonanou
A
P
  • Question
XL 2016 Convertir une date au format MM/JJ/AAAA en JJ/MM/AAAA
Réponses
10
Affichages
7 K
pomunho
P
N
  • Résolu(e)
XL 2019 copier 2 colonnes d'un classeur A et coller les données dans une seule colonne dans un classeur B
Réponses
14
Affichages
421
Dranreb
Dranreb
J
  • Résolu(e)
Microsoft 365 Textbox et format date
Réponses
3
Affichages
331
JBL07
J

Membres actuellement en ligne

4 membres et 63 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 106
Messages
2 085 352
Membres
102 871
dernier inscrit
Maïmanko