Format Date dans un comboBox Format anglais avant 12 et Fr après Résolu/Fermé

Question

Bonjour à tous,

Nouvelle question pour les pro de VBA.

Dans un userform j'ai inclu un comboBox dans lequel s'inscrit en automatique la valeur d'une case prédéfit et dans le menu déroulant la date du jour.

Cette date du jour est dans une case et résulte de la fonction =TODAY()d'Excel
le format de ma case est conforme à mon besoin jj.mm.aaaa (c'est le format date en Suisse. J'ai pris le format sans l'astérisque)

dans ma comboBox voici mon code:

Private Sub ComboBox1()
With ComboBox1
    .AddItem Range("C4").Value
End With
ComboBox1 = format(ComboBox1, "dd.mm.yyyy")
End Sub

Voilà mon problème:

ma macro fonction parfaitement, mais après 12h00. Avant midi je suis en format anglais "mm/dd/yyyy".

Quand je regarde le texte de la case "today" en rajoutant les heures et les minutes j'ai bien "datedujour 00:00".

J'ai fait des tests en copiant la valeur de la cellule "today" dans une autre cellule, puis je la récupère avec ma comboBox,  mais j'ai le même résultat.

Mais que ce passe t-il? Help!

jordane45 · Answer

Bonjour,

Peux tu tester ceci :

With Me.ComboBox1
    .AddItem Format(Range("C4").Value, "dd.mm.yyyy")
End With

Format Date dans un comboBox Format anglais avant 12 et Fr après

1 réponse

Discussions similaires