Remplir celulle avec Texbox en format date francais

yakin78 · 5 Octobre 2013

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

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

Guest · 5 Octobre 2013

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 · 5 Octobre 2013

Re : Remplir celulle avec Texbox en format date francais

Bonjour à tous, Hasco

sans la boucle

Code:

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 · 5 Octobre 2013

Re : Remplir celulle avec Texbox en format date francais

Merci Hasco et Staple1600

ca marche Nickel!!

Remplir celulle avec Texbox en format date francais

yakin78

XLDnaute Junior

Guest

Guest

Staple1600

XLDnaute Barbatruc

yakin78

XLDnaute Junior

Discussions similaires