Discussion :

[cagodue]

Bonjour,

Je suis à créer un formulaire dans Excel et je n'arrive pas à sauvegarder mes dates comme il faut. J'ai quelques champs (TextBox) de date dans mon formulaire.

Au début, cela enregistrait bien dans mon tableau mais lorsque je sortais d'Excel et revenais, les dates étaient devenu en nombre. (J'ai vérifié mon format de cellule et la fonction afficher les formules ne sont pas coché).

J'ai essayé divers code tel que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UserForm1.TextBox2.Tag = Date
UserForm1.TextBox2.Value = Format(CDate(UserForm1.TextBox1.Tag), "yyyy-mm-dd")

Maintenant, les dates apparaissent bien dans mon tableau Excel mais lorsque je fais le tri automatique, c'est considéré comme du texte et non une date. Je suis allé sur le format de la cellule et c'est bien format "date 2019-04-02".

Pouvez-vous m'aider ? Je ne sais plus quoi faire. J'ai beau lire et faire pleins de recherche sur le blog, je ne trouve rien. Et il est important que l'affichage soit yyyy-mm-dd pour l'enregistrement et lorsque je vais chercher la donnée dans mon tableau pour l'afficher dans mon formulaire.

[Igloobel]

Bonjour,

Il y a un tuto à lire et c'est celui-ci :

https://didier-gonard.developpez.com...-excel-et-vba/

ce tuto est relativement complet et m'a sorti d'ennui bien des fois sur la gestion des dates

si ce n'est pas suffisant reviens nous voir et fais nous des captures écrans de tes soucis

A+

[patricktoulon]

je vois pas trop a quoi te sert le transfert tag/value mais bon

pour le transfert sur cellule utilise dateserial tu sera jaùmais trompé et ta cellule va se formaté toute seul en date si elle est formaté autrement


un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    Set t = Me.TextBox2
    t.Tag = CStr(Date)
    t.Value = t.Tag
    Range("A1") = DateSerial(Right(t.Tag, 4), Mid(t.Tag, 4, 2), Left(t.Tag, 2))
End Sub

[Invité]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").NumberFormat = "General"
Range("A1").value=format(LaDate,"yyyy-mm-dd")

[cagodue]

Merci, mon problème est résolu