Suppression du ' devant une date dans un cellule issue d'une Texbox

Bonjour à tous,

Je vous sollicite sur un sujet.

Je possède un Userform avec une TextBox. Cette textbox est une date.

Lorsque je rentre les informations dans la textbox et que je valider l'ensemble, la date (Valeur) de la textbox se retrouve dans une Cellule de la feuille Excel avec ' devant la date.

Comment je pourrais faire pour enlever le ' devant la date sur ma feuille Excel.

Désolé mais, je ne peux pas envoyer le fichier Excel car, confidentiel.

Merci de votre aide par avance,

Bonjour,

Je fais remonté mon poste.

Merci de votre aide

bonjour,

Désolé mais, je ne peux pas envoyer le fichier Excel car, confidentiel.

et bien dans ce cas, tu mets un fichier exemple représentatif sans données confidentielles.

Bonjour, voici mon fichier test :

Merci de votre aide

bonjour,

proposition de correction

Private Sub CommandButton20_Click()
    Application.ScreenUpdating = False
    Sheets("Histo").Select
    Range("A1").Select
    If MsgBox("Etes-vous certain de vouloir sauvegarder?", vbYesNo, "Demande de confirmation") = vbYes Then
        If TextBox1 = "" Then
            MsgBox "Vous devez impérativement renseigner les champs", vbInformation

            Exit Sub
        Else
        End If
    End If

    With Sheets("Temp")
        dlf = .Range("a" & Rows.Count).End(xlUp).Row
        dlf2 = Sheets("Histo").Range("a" & Rows.Count).End(xlUp).Row + 1
        If dlf > 1 Then
            For i = 2 To dlf
                .Range("a" & dlf) = DateValue(TextBox6)
                .Range("b" & dlf) = TextBox5
                .Range("c" & dlf) = TextBox1

            Next i
            .Range("a2:c" & dlf).Copy Destination:=Sheets("Histo").Range("a" & dlf2)
            '.Range("a2:c" & dlf).ClearContents
        End If
    End With
    TextBox1 = ""
    TextBox5 = ""
    TextBox6 = ""

    'Sheets("Histo").Select
    'Range("H3").Select
    'ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

    Application.ScreenUpdating = True
    Unload UserForm1
End Sub

Merci beaucoup @h2so4

Je clos le sujet .