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 !