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

Résolu

anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention - 18 mars 2015 à 11:00

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!

A voir également:

Format Date dans un comboBox Format anglais avant 12 et Fr après
Format epub - Guide
Format factory - Télécharger - Conversion & Codecs
Hp usb disk storage format tool - Télécharger - Stockage
Format apfs - Guide
Format dat - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

Peux tu tester ceci :

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

anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention

Merci ça fonctionne !!!

Je souhaiterai comprendre pour ma culture. Mon code me parassait conforme.
Qu'est ce qui provoquait le problème?
Merci

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752 > anakin_74 Messages postés 42 Date d'inscription Statut Membre Dernière intervention

Tu dois faire le formatage au moment de l'alimentation du combo ....
Tu ne peux pas le faire après

'le code ci-dessous ne marchera pas :
ComboBox1 = format(ComboBox1, "dd.mm.yyyy")

Discussions similaires

Valedwaz : Colis Shein, l'enfer est-il fini ?

Voxbone ? qui est-ce ?

shein colis bloqué valedwaz

Votre réponse

Discussions similaires