textbox

[chinel]

Salut tout le monde !

j'ai une userform avec une textbox et un commandbutton pour valider, quand je mets la date dans une textbox la date se met bien comme 09/08/2009 et comment la mettre en dimanche 9 août 2009 puis comment en validant avec commandbutton celle-ci puisse se mettre dans une feuille de mon classeur en dimanche 9 août 2009 ?

Private Sub TextBox1_Change()
TextBox1.value = Range("F7").Value car en F7 il y la date avec la fonction aujourd'hui
End Sub

puis dans le bouton pour valider il y a:

Private Sub CommandButton1_Click()
Dim Valeur As String
Valeur = TextBox1.Value

With Sheets("Encoder")
If .Range("A4") = "" Then
.Range("A4").Value = Valeur
Else
.Range("A65536").End(xlUp).Offset(1, 0).Value = Valeur

End If
End With

merci de votre aide !

 

[Pierrot93]

Re : textbox

Bonjour Chinel

essaye les codes ci-dessous, à utiliser dans le module de ton usf :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1.Value) Then TextBox1.Value = _
    Format(TextBox1.Value, "dddd d mmmm yyyy")
End Sub

Private Sub CommandButton1_Click()
Range("A1").Value = TextBox1.Value
End Sub

bonne journée
@+

 

[Pierrot93]

Re : textbox

Re

pour cette ligne :

TextBox1.value = Range("F7").Value

car en F7 il y la date avec la fonction aujourd'hui

modifie ainsi :

TextBox1.value = Range("F7").Text

@+

 

[chinel]

Re : textbox

Merci Pierrot93 mais rien ne marche !

 

[chinel]

Re : textbox

Ok j'ai trouvé !
si je mets comme ceci cela fonctionne

Dim Valeur As String
Valeur = Format(textbox1.value,"dd mmmm yyyy")
With Sheets("Encoder")
If .Range("A4") = "" Then
.Range("A4").Value = Valeur
Else

dans ma feuille "encoder" la date se met en A4 et au format 10 août 2009

Merci à tous !