Trier date au format texte

Bonjour,

J'ai créé un formulaire grâce aux tutos qui se trouvent sur ce site.

Dans ce formulaire, je lui ai mis un "contôle calandar 11" qui m'affiche sur mon tableau la valeur au format texte :

Private Sub Calendar1_Click()

NouvelleSaisie.TextBox_Date.Value = Format(Calendar1.Value, "dddd dd mmmm yy")

Mais seulement, lors de la fin de saisie de mon formulaire, le trie se fait au format texte. Comment puis-je faire pour qu'il me trie au format date ?

Merci

Bonjour,

Je comprends que tu inscrits ta date dans une cellule quelconque, et que tu voudrais que cette cellule soit une date, et non du texte.

Si c'est cela, tu peux essayer avec ce code :

Private Sub CommandButton1_Click()
With Cells(Rows.Count, "A").End(xlUp)(2)
    .Value = CDate(Me.Calendar1)
    .NumberFormat = "dddd dd mmmm yy"
End With
Unload Me
End Sub

Par ce code, je mets dans la première cellule vide de la colonne A la date que tu as sélectionné sur le Calendar, et je mets le format de la cellule comme tu le désires.

Si pas ça, merci de joindre un fichier exemple

Bonne journée