Format de date dans un UserForm

**FCL31** · 15/04/2009, 14h40

Dans un UserForm, j'ai une TextBox dans laquelle je saisie une date avec le code suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox3_Change()
    TextBox3.MaxLength = 10
    Valeur = Len(TextBox3)
    If Valeur = 2 Or Valeur = 5 Then TextBox3 = TextBox3 & "/"
    If Len(TextBox3) = 10 And Not IsDate(TextBox3) Then TextBox3 = ""
    Range("B13").Value = TextBox3
End Sub

Comme vous pouvez le voir, je recupere la date saisie pour la copier dans une cellule de la feuille Excel

La date est saisie au format jj/mm/aa

Et je voudrais qu'elle soit affiché au format au format jj/mm/aaaa dans la cellule où elle est copiée

J'ai regardé un peu partout dans le forum, plein de post parle du sujet mais j'y ai pas trouvé de solution

Au passage petite question autre pour le format date, je vooudrais un peu la même chose avec un format nombre (simplement un espace entre les milliés et les centaines

Peut un petit code au niveau des cellules et sufisant

**casefayere** · 15/04/2009, 15h07

Bonjour le forum, FCL

essaies ce code

Code :

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

Range("B13").Value = format(TextBox3,"dd/mm/yyyy")

**LeForestier** · 15/04/2009, 15h52

Bonjour,
Je ne sais pas s'il y a le contrôle Microsoft MaskEdBox d'origine dans excel (j'ai aussi VB6), si oui, pour entrer une date c'est l'idéal avec un masque.
Tu teste dans l'événement change mais tu pourrais le faire dans KeyDown avec KeyCode=13
Pour formater un nombre comme tu demande...
Cells(Y,X) = format(Cells(Y,X),"### ### ###.000") par exemple.
A+