Discussion :

[fourniey]

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!

[Jean-Philippe André]

Bonjour,

la date est en fait une valeur numerique. L'affichage que tu en fais depend des parametres regionaux de ton poste (19/01/1984, 01/19/1984,19.01.1984).

Un peu de lecture a ce sujet : jpcheck.developpez.com/tutoriels/excel/excel-parametres-regionaux-application-international/

Ici, en passant par la fonction Format, tu transformes en fait ta date en chaine de caracteres.

Le plus efficace serait simplement de stocker la valeur dans la cellule et de seulement en changer le numberformat

[kiki29]

Salut, de la lecture : Comprendre et gérer les dates sous Excel et en VBA

[fourniey]

J'ai finalement décider de laisser la date au format américain.