Remplir celulle avec Texbox en format date francais

  • Initiateur de la discussion Initiateur de la discussion yakin78
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
2 K
Retour