Bonjour tous le monde
Apres recherche sur le forum ,je n'arrive pas à mettre en format date francais le contenu de la Textbox
j'ai tout essayer ,CDate,Isdate, format(TextBoxDate.value, dd,mm,yyyy) sans succes
je voudrait l'appliquer sur textBoxDate mais la date s'affiche en format anglais
merci d'avance
Apres recherche sur le forum ,je n'arrive pas à mettre en format date francais le contenu de la Textbox
j'ai tout essayer ,CDate,Isdate, format(TextBoxDate.value, dd,mm,yyyy) sans succes
je voudrait l'appliquer sur textBoxDate mais la date s'affiche en format anglais
Code:
Private Sub Ajouter_Click()
Dim I As Integer
If UserForm1.TextBoxNom = "" Or UserForm1.TextBoxDate = "" Then
MsgBox "Merci de remplir tous les champs", vbExclamation, "Attention"
Else
I = 1
Do While Cells(I, 1) <> ""
Cells(I, 1).Offset(1, 0).Select
I = I + 1
Loop
ActiveCell.Value = UserForm1.TextBoxNom.Value
ActiveCell.Offset(0, 1).Value = UserForm1.TextBoxDate.Value
End If
End Sub
merci d'avance