Format DATE d'un TextBox

[Stéphanie82]

Bonjour

Je sollicite encore votre aide,
j'ai un UserForm contenant un TextBox.

j'ai un bouton qui récupère une date et le trasfère dans le TextBox.

le problème est que cette date et formaté en nombre
Exemple : 02/01/2008 ==> 39449

J'aimerai dire au TextBox de changer le format de son contenu à chaque qu'il reçoit une nouvelle donnée.

Après quelque recherche dans l'aide et dans le forum.
J'ai trouvée deux formule, mais ça ne marche pas dans mon
Private Sub TextBox1_Change()

Private Sub TextBox1_Change()
Me.TextBox1.NumberFormat = ("m/d/yyyy")
End Sub

Private Sub TextBox1_Change()
Format(TextBox1.Value, "dd/mm/yyyy")
End Sub

Merci de votre aide.
^^

 

[roro69]

Re : Format DATE d'un TextBox

Bonjour essaye ceci:
Range("?")= CDate(TextBox1.Value)
A++

 

[Pierrot93]

Re : Format DATE d'un TextBox

Bonjour Stephanie

si ta date est dans une cellule, essaye le code ci dessous, a utiliser lorsque tu alimentes ta textbox :

TextBox1.Value = Format(Range("A1").Value, "dd/mm/yyyy")

bon après midi
@+

 

[Stéphanie82]

Re : Format DATE d'un TextBox

roro69 et Pierrot93
merci pour vos réponses

roro69: j'ai pas réussi à adapter ton code à mon problème.
Pierrot93 : Je vais garder ton code sous dans le cas ou je dois d'abord modifier le format avant de le mettre dans un TextBox.

Sinon bonne nouvelle, j'ai réussi trouver le code, un peu long mais ça marche.
en fait je passe par une variable. (vive les variables)

et voici le résultat final :

Private Sub TextBox1_Change()
Dim ValeurTextBox

ValeurTextBox = Me.TextBox1.Value
TextBox1.Value = Format(ValeurTextBox, "dd/mm/yyyy")
End Sub

 

[koukou40]

Re : Format DATE d'un TextBox

Salut !

Une autre solution peut-être :

Private Sub TextBox1_Change()
Dim ValeurTextBox

ValeurTextBox = Me.TextBox1.Value
TextBox1.Value = Format(ValeurTextBox, "Long Date")
End Sub


A+
koukou40