OVH Cloud OVH Cloud

Problème d'affichage

5 réponses
Avatar
Daniel
Bonjour.
J'ai un userform comportant, entre autres, une ComboBox. Celle-ci affiche
une plage de dates. Les dates s'affichent correctement. Lorsque j'en choisis
une, la date apparaît sous le format nombre standard.
Que faire ? (comme disait Lénine...)
Merci d'avance au gourou qui me dépannera.
Daniel

5 réponses

Avatar
Patrick Fredin
Bonjour,

A quel moment cela se produit-il ? Dans la ComboBox ? Dans la feuille de
calcul où tu aurais mis la valeur ?

--
Patrick

"Daniel" wrote in message
news:41dd313d$0$15685$
Bonjour.
J'ai un userform comportant, entre autres, une ComboBox. Celle-ci affiche
une plage de dates. Les dates s'affichent correctement. Lorsque j'en
choisis une, la date apparaît sous le format nombre standard.
Que faire ? (comme disait Lénine...)
Merci d'avance au gourou qui me dépannera.
Daniel



Avatar
Daniel
C'est OK à l'affichage dans la feuille (là où je prends les valeurs, c'est
OK dans la liste "dropdown" de la combobox. C'est NOK quand je choisis une
date. La date choisie s'affiche dans la combobox en nombre standard. Ca ne
gêne pas pour la suite du traitement, mais ça fait causer les
utilisateurs...
Daniel
"Patrick Fredin" a écrit dans le
message de news: %23U3q3f$
Bonjour,

A quel moment cela se produit-il ? Dans la ComboBox ? Dans la feuille de
calcul où tu aurais mis la valeur ?

--
Patrick

"Daniel" wrote in message
news:41dd313d$0$15685$
Bonjour.
J'ai un userform comportant, entre autres, une ComboBox. Celle-ci affiche
une plage de dates. Les dates s'affichent correctement. Lorsque j'en
choisis une, la date apparaît sous le format nombre standard.
Que faire ? (comme disait Lénine...)
Merci d'avance au gourou qui me dépannera.
Daniel







Avatar
Patrick Fredin
Alors il faut afficher la date au format Date dans la ComboBox.

Quand tu génères la liste dans la ComboBox, tu le transformes en Texte comme
cela :

MaComboBox.AddItem Format(LaDate, "dd/mm/yyyy")

Ensuite, quand tu récupères la valeur, tu la retransformes en Date comme
cela :

LaDate = CDate(MaComboBox.Text)

--
Patrick

"Daniel" wrote in message
news:41dd5456$0$15708$
C'est OK à l'affichage dans la feuille (là où je prends les valeurs, c'est
OK dans la liste "dropdown" de la combobox. C'est NOK quand je choisis une
date. La date choisie s'affiche dans la combobox en nombre standard. Ca ne
gêne pas pour la suite du traitement, mais ça fait causer les
utilisateurs...
Daniel
"Patrick Fredin" a écrit dans le
message de news: %23U3q3f$
Bonjour,

A quel moment cela se produit-il ? Dans la ComboBox ? Dans la feuille de
calcul où tu aurais mis la valeur ?

--
Patrick

"Daniel" wrote in message
news:41dd313d$0$15685$
Bonjour.
J'ai un userform comportant, entre autres, une ComboBox. Celle-ci
affiche une plage de dates. Les dates s'affichent correctement. Lorsque
j'en choisis une, la date apparaît sous le format nombre standard.
Que faire ? (comme disait Lénine...)
Merci d'avance au gourou qui me dépannera.
Daniel











Avatar
Gaenonius
Utilise l'événement Change de ta combobox pour forcer le format de date usuel :

Private Sub ComboBox1_Change()
ComboBox1.Value = CDate(ComboBox1.Value)
End Sub

--
Gaenonius

C'est OK à l'affichage dans la feuille (là où je prends les valeurs, c'est
OK dans la liste "dropdown" de la combobox. C'est NOK quand je choisis une
date. La date choisie s'affiche dans la combobox en nombre standard. Ca ne
gêne pas pour la suite du traitement, mais ça fait causer les
utilisateurs...
Daniel
"Patrick Fredin" a écrit dans le
message de news: %23U3q3f$

Bonjour,

A quel moment cela se produit-il ? Dans la ComboBox ? Dans la feuille de
calcul où tu aurais mis la valeur ?

--
Patrick

"Daniel" wrote in message
news:41dd313d$0$15685$

Bonjour.
J'ai un userform comportant, entre autres, une ComboBox. Celle-ci affiche
une plage de dates. Les dates s'affichent correctement. Lorsque j'en
choisis une, la date apparaît sous le format nombre standard.
Que faire ? (comme disait Lénine...)
Merci d'avance au gourou qui me dépannera.
Daniel











Avatar
Daniel
Bingo !
Merci beaucoup.
Daniel
"Gaenonius" a écrit dans le message de news:

Utilise l'événement Change de ta combobox pour forcer le format de date
usuel :

Private Sub ComboBox1_Change()
ComboBox1.Value = CDate(ComboBox1.Value)
End Sub

--
Gaenonius

C'est OK à l'affichage dans la feuille (là où je prends les valeurs,
c'est OK dans la liste "dropdown" de la combobox. C'est NOK quand je
choisis une date. La date choisie s'affiche dans la combobox en nombre
standard. Ca ne gêne pas pour la suite du traitement, mais ça fait causer
les utilisateurs...
Daniel
"Patrick Fredin" a écrit dans le
message de news: %23U3q3f$

Bonjour,

A quel moment cela se produit-il ? Dans la ComboBox ? Dans la feuille de
calcul où tu aurais mis la valeur ?

--
Patrick

"Daniel" wrote in message
news:41dd313d$0$15685$

Bonjour.
J'ai un userform comportant, entre autres, une ComboBox. Celle-ci
affiche une plage de dates. Les dates s'affichent correctement. Lorsque
j'en choisis une, la date apparaît sous le format nombre standard.
Que faire ? (comme disait Lénine...)
Merci d'avance au gourou qui me dépannera.
Daniel