Problème de date dans userform

Bien le bonsoir à tous.

Mon problème ce soir est le suivant,

voilà lorsque je clique sur une date dans le calendrier au départ de l'userform, la date inscrite dans le tableau et dans la cellule appropriée "colonne A", c'est la date du jour qui s'inscrit et non la date de mon choix.

Où est l'erreur?

Merci d'avance à tous de prendre un peu de votre temps.

Erreur de fichier , le problème se trouve dans userform_calendar.DSL

Bonjour,

Où est l'erreur?

Vous n'avez pas joint votre fichier

Bonsoir

voila une rectife a faire dans ton calandar

Private Sub UserForm_Initialize()
Me.Caption = "Nouveau plein " & "*** " & StrConv(Format(Now, "dddd dd mmmm yyyy hh:mm:ss"), vbProperCase)  '*** Afficher la date today dans le Calenderie
    Calendar1.Value = Now
End Sub

Private Sub Calendar1_Click()
UserForm_nouveau_plein.TextBox_Date_Entrée = Calendar1
    Unload Me
End Sub

A+

Maurice

Bonjour à tous.

Merci Maurice "Archer" cela fonctionne bien c'est super.

Bonne journée, a+ Roland

Re bonsoir à tous.

La rectification fonctionne super; mais la date dans le formulaire et qui s'inscrit dans la cellule est

sous le format " 28/03/2018 "

et j'aurais aimé l'avoir

sous le format " 28-mars-18 ".

Que dois-je changer ou ajouter?

Merci d'avance et bonne soirée à tous.

Bonsoir,

A essayer:

Private Sub UserForm_Initialize()
Me.Caption = "Nouveau plein " & "*** " & StrConv(Format(Now, "dd-mmmm-yy "), vbProperCase)  '*** Afficher la date today dans le Calenderie
    Calendar1.Value = Now
End Sub

Private Sub Calendar1_Click()
UserForm_nouveau_plein.TextBox_Date_Entrée = Calendar1
    Unload Me
End Sub

Bonjour à tous.

Merci Florian 53; mais ce n'est pas à cet endroit qu'il faut agir, dsl cela ne change rien.

D'autres idées peut-être?

Merci d'avance et bonne journée.

Bonjour

on ne formate pas la textbox car on per le format dans cellule

donc on format la cellule ex:

        'Insertion des valeurs sur la feuille
        Cells(no_Ligne, 1) = CDate(TextBox_Date_Entrée.Value)
        Cells(no_Ligne, 1).NumberFormat = "[$-40C]dd-mmm-yy;@"

A+

Maurice

Bonsoir, et merci à toi archer, cela fonctionne mm sans la 2ème ligne.

Bonne soirée à tous.