Format DATE d'un TextBox

Stéphanie82 · 22 Février 2008

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()

Code:

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

Code:

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

Merci de votre aide.
^^

roro69 · 22 Février 2008

Re : Format DATE d'un TextBox

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

Pierrot93 · 22 Février 2008

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 :

Code:

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

bon après midi
@+

Stéphanie82 · 22 Février 2008

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 :

Code:

Private Sub TextBox1_Change()
Dim ValeurTextBox

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

koukou40 · 22 Février 2008

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

Format DATE d'un TextBox

Stéphanie82

Guest

roro69

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Stéphanie82

Guest

koukou40

XLDnaute Occasionnel

Discussions similaires

Format DATE d'un TextBox

Stéphanie82

Guest

roro69

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Stéphanie82

Guest

koukou40

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency