chinel
XLDnaute Impliqué
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 !
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 !