Format date export depuis un userform

Bonjour à tous,

Je suis assez débutante en vba et rencontre donc pas mal de problèmes. J'ai créé un userform où l'utilisateur entre plusieurs données dont une date. Pour définir la case date j'ai ce code :

Private Sub TextBoxDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBoxDate = CDate(Me.TextBoxDate)
End Sub

Ces valeurs sont reportées dans un onglet où un graphique se trace automatiquement.

Le problème c'est qu'une fois exportée dans l'onglet, la date est considérée comme du texte. Elle s'affiche bien en tant que xx/xx/xxxx (j'ai défini la case comme "date") mais le graphique ne comprend pas et affiche 1, 2, 3, etc...

Voici le code de l'exportation :

Private Sub CommandButton1_Click()
LigneSuivante = Application.WorksheetFunction.CountA(Range("A:A")) + 11
Cells(LigneSuivante, 1) = TextBoxDate 
End Sub

Comment faire ? Merci pour votre aide !

Bonjour,

essaie

Cells(LigneSuivante, 1) = CDate(TextBoxDate)

Je hais les userform, et voilà encore une raison de les limiter au strict nécessaire, c'est-à-dire pas grand chose pour moi.

Et du coup, tous les formats, toutes les valeurs, toutes les dates sont bien prises en compte, tous les calculs sont faite naturellement sans avoir à les coder en VBA (dans un userform tout est en texte, pfttt).

Bonjour Célia ,

Bonjour Steelson

J'avais presque la même :

Cells(LigneSuivante, 1) = Format(CDate(TextBoxDate), "mm/dd/yyyy")

Vos deux solutions fonctionnent. Merci beaucoup

Rechercher des sujets similaires à "format date export userform"