Format date dans cellule avec userform

Bonjour,

Voici mon fichier en PJ il fonctionne

Mais lorsque je créer la date avec userform le format date dans la cellule C5 reste toujours en format 15/02/2023, j'aimerai l'avoir en format mercredi 15 février 2023 directement sans a avoir re cliquer sur la cellule.

si quelqu'un peux m'aider ça fait deux je jour je suis dessus je n'y arrive pas

merci pour votre aide

bonne journée

Bonjour

Votre ligne comme ceci dans le code CommandButton Click

Sheets("Clients").Range("c5") = Format(BoxDateD2, "d mmmm yyyy")

Sinon c'est tout le code qui est à revoir car vous êtes en tableau structuré.. voyez ici par exemple --> Ajout dans tableau structuré

Crdlt

Bonjour DAN

merci pour votre réponse je viens de tester mais cela ne marche pas grrr

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
'Inserer la ligne
   Rows("9:9").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Cut
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
     Range("b5").Select

    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("b5").Select

        Sheets("Clients").Range("E5") = TextBox1.Value
     Sheets("Clients").Range("F5") = TextBox2.Value
     Sheets("Clients").Range("D5") = ComboBox1.Value
     Sheets("Clients").Range("l5") = ComboBox2.Value
     Sheets("Clients").Range("g5") = TextBox5.Value
     Sheets("Clients").Range("h5") = TextBox6.Value
     Sheets("Clients").Range("q5") = ComboBox4.Value
     Sheets("Clients").Range("m5") = ComboBox3.Value
      Sheets("Clients").Range("i5") = TextBox9.Value
          Sheets("Clients").Range("o5") = TextBox13.Value
           Sheets("Clients").Range("n5") = TextBox14.Value
           Sheets("Clients").Range("p5") = TextBox15.Value
             Sheets("Clients").Range("a5") = ComboBox5.Value
              Sheets("Clients").Range("k5") = ComboBox7.Value
               Sheets("Clients").Range("j5") = ComboBox6.Value
               Sheets("Clients").Range("c5") = Format(BoxDateD2, "d mmmm yyyy")
     Range("b5").Select
     Range("b5") = Range("f1")
If (Range("b5") = Range("f1")) Then
Range("f1") = Range("b5") + 1
End If
     Unload Me

End Sub

je viens de tester mais cela ne marche pas grrr

Qu'est ce qui ne marche pas ?
Si vous voulez le nom du jour en entier -->

Format(BoxDateD2, "dddd mmmm yyyy")

--- Après revoir votre code pour les tableaux structurés

super merci je vais regarder votre lien pour restructuré merci pour votre aide :)

Bah voici pour le code valider

Private Sub CommandButton1_Click()
Dim lig As Integer, num As Integer

With Worksheets("clients").ListObjects(1)
    If .ListRows.Count = 0 Then
        .ListRows.Add: lig = 1
    Else: .ListRows.Add Position:=1: lig = 1 'insérer a la 1igne 1
    End If
     num = WorksheetFunction.Max(.ListColumns(2).DataBodyRange)
     If num = 0 Then num = 1
    With .DataBodyRange
        .Item(lig, 1) = ComboBox5.Value
        .Item(lig, 2) = num + 1
        .Item(lig, 3) = Format(BoxDateD2, "dddd mmmm yyyy")
        .Item(lig, 4) = ComboBox1.Value
        .Item(lig, 5) = TextBox1.Value
        .Item(lig, 6) = TextBox2.Value
        .Item(lig, 7) = TextBox5.Value
        .Item(lig, 8) = TextBox6.Value
        .Item(lig, 9) = TextBox9.Value
        .Item(lig, 10) = ComboBox6.Value
        .Item(lig, 11) = ComboBox7.Value
        .Item(lig, 12) = ComboBox2.Value
        .Item(lig, 13) = ComboBox3.Value
        .Item(lig, 14) = TextBox14.Value
        .Item(lig, 15) = TextBox13.Value
        .Item(lig, 16) = TextBox15.Value
        .Item(lig, 17) = ComboBox4.Value
    End With
End With
Unload Me
End Sub

Vous n'aurez plus besoin de mentionner votre numéro de facture en F1

Pensez à numéroter vos objets textbox et combo de manière progressive. Cela aide souvent à éviter trop de lignes de code

Reste d'autres choses à voir....notamment les Roswsources .... à éviter ! privilégiez les méthodes List ou Additel

Oh merci beaucoup pour votre code

je vais essayer de faire des listes come vous dites si cela peux m'aider