Microsoft 365 ComboBox format date

[juju91]

Bonjour à tous
Voici mon problème.
J'ai un comboBox dans une feuille qui est alimenté par des données au format dates.
Jai ''réussis'' à mettre le format que je souhaitais dan le ComboBox "JJJJ JJ MMMM AAAA''
Mais j'ai besoin que la cellule lié, qui reçoit la date sélection soit elle en format date ''classique'', cas j'ai des forme qui s'effectue par rapport à la valeur mise dans la cellule lié .
Je ne sais pas si je suis trés clair dans je mets un exemple de ce que je souhaiterais.
Si une personne pouvez m'aiguiller ....

Par avance merci.

 

[Dranreb]

Bonsoir.
Comme ça on dirait ça va à peu près :

Option Explicit
Private ExecInduite As Boolean
Private Sub ComboBox1_Change(): If ExecInduite Then Exit Sub
   Dim Dt As Date
   Dt = CDate(Mid$(ComboBox1.Text, InStr(ComboBox1.Text, " ") + 1))
   ComboBox1.LinkedCell = ""
   With [C2]: .NumberFormat = "dddd dd mmm yyyy": .Value = Dt: End With
   ExecInduite = True
   ComboBox1.Value = Format(Dt, "dddd dd mmm yyyy")
   ExecInduite = False
   End Sub

 

[juju91]

Merci beaucoup de votre aide