Microsoft 365 ComboBox format date

juju91 · 9 Juillet 2023

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.

juju91 · 11 Juillet 2023

Merci beaucoup de votre aide

Dranreb · 9 Juillet 2023

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

VB:

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 · 11 Juillet 2023

Merci beaucoup de votre aide

Microsoft 365 ComboBox format date

juju91

XLDnaute Junior

Pièces jointes

juju91

Dranreb

XLDnaute Barbatruc

juju91

XLDnaute Junior

Discussions similaires