textbox et date

[dhiouf]

Bonjour à toute et à tous
comment forcer un textbox de prendre une format date "mmmm/yyyy" lorsque en
tape une date dans textbox
ex: date dans textbox:01/10/2008
format dans textbox😱ctobre/2008
Merci d'avance

 

[Dull]

Re : textbox et date

Salut dhiouf, le Forum

Peut-être comme cela

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(TextBox1, "mmmm yyyy")
End Sub

Bonne Journée

 

[dhiouf]

Re : textbox et date

Merci dull, le code ça marche avec un autre classeur, mais avec mon classeur
la resultat dans ma cellule(moisannee) est 10/01/2008,mai j'ai taper dans le textBox 01/10/200?

 

[Dull]

Re : textbox et date

Re dhiouf, le Fil

Pas bien compris😕

tu tapes 01/01/2008 dans ta TextBox et tu veux obtenir Janvier 2008 en A1 par exemple c'est ça?

c'est ce que fait ce code. Pour plus de sureté essaye avec CDate

Range("A1") = Format(CDate(TextBox1), "mmmm yyyy")

A voir

PS: As-tu pu régler ton problème de DTPicker?

Bonne Journée

 

[BERRACHED said]

Re : textbox et date

Ré,

tu peux aussi lui affecter format pour forcer la saisie :

Private Sub Textbox1_Change()
If Len(Textbox1) = 2 Or Len(Textbox1) = 5 Then Textbox1 = Textbox1 & "/"
End Sub

Cordialement