Bonjour,

mon écran comprend plusieurs dates importantes pour la gestion d'une transaction.

Je voudrais que l'utilisateur puisse saisir la date selon le format dd-mm-yyyy
Le mois et le jour sont inversés dès que je change de champs.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub tb_ent_rappel_AfterUpdate()
    Dim Message As String
    Dim Réponse As Integer
    If Not IsDate(Me.tb_ent_rappel.Value) Then
        Message = "Veuillez entrer une date valide !"
        Réponse = MsgBox(Message, vbOKOnly, "Controle de saisie")
        Me.tb_ent_rappel.SetFocus
    Else
        Me.tb_ent_rappel.Value = Format(Me.tb_ent_rappel.Value, "dd-mm-yyyy")
    End If
    Call MAJ_actif
End Sub
Dans la feuille Excel, je voudrais le format yyyy-mm-dd alors j'enregistre ainssi :
Range("AH" & L).Value = Format(tb_ent_rappel, "YYYY-MM-DD")

Dans ma feuille, la date est enregistrée correctement.

Lorsque je réaffiche, le mois et jour est inversé.


J'aimerais savoir comment traiter une date correctement pour obtenir le résultat escompté.


Merci!