Bonjour,

Lorsque je saisis une date à partir d'un formulaire au format, jj/mm/aaaa, celle-ci se met au format mm/jj/aaaa. Je suis donc allé dans format cellule d'Excel, je l'ai mis au même format que celui du formulaire, mais sans résultat.
Comment puis-je régler ce soucis ?
Voici le code que j'utilise :
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
21
22
 
Private Sub TxtDEVIS_Change()
Dim Valeur As Byte
 
    Me.TxtDevis.MaxLength = 10
    Valeur = Len(Me.TxtDevis)
 
    If Valeur = 2 And Mid(Me.TxtDevis, 1, 2) > 31 Then
        Me.TxtDevis.MaxLength = 2 ' interdit d'aller plus loin
        MsgBox "Jour non valide"
        Exit Sub
    End If
 
    If Valeur = 5 And Mid(Me.TxtDevis, 4, 5) > 12 Then
        Me.TxtDevis.MaxLength = 5 ' interdit d'aller plus loin
        MsgBox "Mois non valide"
        Exit Sub
    End If
    If Valeur = 2 Or Valeur = 5 Then Me.TxtDevis = Me.TxtDevis & "/"
 
    If Valeur = 10 And Not IsDate(Me.TxtDevis) Then Me.TxtDevis = "/"
End Sub
Merci par avance