Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplir celulle avec Texbox en format date francais

yakin78

XLDnaute Junior
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
 
G

Guest

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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
3
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…