Utilisation de dates

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:

---

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!

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 :)

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

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