Remplir celulle avec Texbox en format date francais

[yakin78]

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

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

 

[Guest]

Re : Remplir celulle avec Texbox en format date francais

Bonjour,

ActiveCell.Offset(0, 1).Value2 = cdate(UserForm1.TextBoxDate.Value)

Vérifier éventuellement le format d'affichage de la cellule "jj/mm/aaaa"

A+

 

[Staple1600]

Re : Remplir celulle avec Texbox en format date francais

Bonjour à tous, Hasco

sans la boucle

Private Sub Ajouter_Click()
If UserForm1.TextBoxNom = "" Or UserForm1.TextBoxDate = "" Then
MsgBox "Merci de remplir tous les champs", vbExclamation, "Attention"
Else
With Cells(Rows.Count, 1).End(xlUp)(2)
    .Value = UserForm1.TextBoxNom.Value
    .Offset(0, 1).Value = CLng(CDate(UserForm1.TextBoxDate))
    .Offset(0, 1).NumberFormatLocal = "jj/mm/aaaa"
End With
End If
End Sub

 

[yakin78]

Re : Remplir celulle avec Texbox en format date francais

Merci Hasco et Staple1600

ca marche Nickel!!