OVH Cloud OVH Cloud

question de débutant

8 réponses
Avatar
Delac
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de données
les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne bien, la date
apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui s'affiche ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup

8 réponses

Avatar
papou
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de données
les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne bien, la
date

apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui s'affiche
ex

: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup




Avatar
Delac
Merci,

"Il" me balance un message d'erreur : impossible de définir la propriété
Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de
données


les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne bien, la
date

apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup








Avatar
Delac
AH je comprends mieux mon erreur ....
Voilà : en fait dans mon combobox je n'affiche "que" les valeurs de la
troisiéme colonne de la BDD (propriété widh =0pt;0pt;70pt;0;0)
Donc le combo renvoie bien la valeur de la 1ère colonne (numérique de 1 à
30) et comme elle n'a rien à voir avec celle de la colonne date il me
balance un message d'erreur .. lorsqu'on lui demande de formater ce résultat
en date. Est ce que c'est ça ???
Une solution en vue ???
Merci
Delac

"Delac" a écrit dans le message de
news:u4$
Merci,

"Il" me balance un message d'erreur : impossible de définir la propriété
Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de
données


les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne bien, la
date

apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup












Avatar
Joel
Bonsoir,

Peut-être aussi qu'à la place de .Value, il fallait lire .Text ???

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Delac" a écrit dans le message de
news:
AH je comprends mieux mon erreur ....
Voilà : en fait dans mon combobox je n'affiche "que" les valeurs de la
troisiéme colonne de la BDD (propriété widh =0pt;0pt;70pt;0;0)
Donc le combo renvoie bien la valeur de la 1ère colonne (numérique de 1 à
30) et comme elle n'a rien à voir avec celle de la colonne date il me
balance un message d'erreur .. lorsqu'on lui demande de formater ce
résultat

en date. Est ce que c'est ça ???
Une solution en vue ???
Merci
Delac

"Delac" a écrit dans le message de
news:u4$
Merci,

"Il" me balance un message d'erreur : impossible de définir la propriété
Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de
données


les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne bien,
la




date
apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup
















Avatar
Delac
et non ca ne fonctionne pas non plus
J'ai tenté cela :
Private Sub ComboBox1_Change()
Dim L As Integer
L = ComboBox1.ListIndex
// récupère la valeur de la colonne 1 (c'est bien celle que je visualise) et
affiche là dans le combo au format date
ComboBox1.Value = ComboBox1.List(L, 1)
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")

End Sub

Mais échec également ...
"Joel" a écrit dans le message de
news:cirv1m$h7n$
Bonsoir,

Peut-être aussi qu'à la place de .Value, il fallait lire .Text ???

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Delac" a écrit dans le message de
news:
AH je comprends mieux mon erreur ....
Voilà : en fait dans mon combobox je n'affiche "que" les valeurs de la
troisiéme colonne de la BDD (propriété widh =0pt;0pt;70pt;0;0)
Donc le combo renvoie bien la valeur de la 1ère colonne (numérique de 1
à


30) et comme elle n'a rien à voir avec celle de la colonne date il me
balance un message d'erreur .. lorsqu'on lui demande de formater ce
résultat

en date. Est ce que c'est ça ???
Une solution en vue ???
Merci
Delac

"Delac" a écrit dans le message de
news:u4$
Merci,

"Il" me balance un message d'erreur : impossible de définir la
propriété



Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de
données


les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne
bien,





la
date
apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup




















Avatar
Joel
Re ;-)

De mémoire, sans vérifier, le Combo.Value détermine le numéro d'ordre à
afficher...
Le combo.Text détermine le texte à afficher
ComboBox1.Text= Format(cLng(ComboBox1.Text), "dd/mm/yyyy")

Mais je n'ai peut-être pas tout compris ;-)

Bon courage
--


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Delac" a écrit dans le message de
news:OfD%
et non ca ne fonctionne pas non plus
J'ai tenté cela :
Private Sub ComboBox1_Change()
Dim L As Integer
L = ComboBox1.ListIndex
// récupère la valeur de la colonne 1 (c'est bien celle que je visualise)
et

affiche là dans le combo au format date
ComboBox1.Value = ComboBox1.List(L, 1)
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")

End Sub

Mais échec également ...
"Joel" a écrit dans le message de
news:cirv1m$h7n$
Bonsoir,

Peut-être aussi qu'à la place de .Value, il fallait lire .Text ???

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Delac" a écrit dans le message de
news:
AH je comprends mieux mon erreur ....
Voilà : en fait dans mon combobox je n'affiche "que" les valeurs de la
troisiéme colonne de la BDD (propriété widh =0pt;0pt;70pt;0;0)
Donc le combo renvoie bien la valeur de la 1ère colonne (numérique de
1



à
30) et comme elle n'a rien à voir avec celle de la colonne date il me
balance un message d'erreur .. lorsqu'on lui demande de formater ce
résultat

en date. Est ce que c'est ça ???
Une solution en vue ???
Merci
Delac

"Delac" a écrit dans le message de
news:u4$
Merci,

"Il" me balance un message d'erreur : impossible de définir la
propriété



Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base
de






données
les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne
bien,





la
date
apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu
??






merci beaucoup
























Avatar
papou
Re
Quelle version d'Excel utilises-tu et à partir d'où as-tu créé ton contrôle
?
Cordialement
Pascal


"Delac" a écrit dans le message de
news:
AH je comprends mieux mon erreur ....
Voilà : en fait dans mon combobox je n'affiche "que" les valeurs de la
troisiéme colonne de la BDD (propriété widh =0pt;0pt;70pt;0;0)
Donc le combo renvoie bien la valeur de la 1ère colonne (numérique de 1 à
30) et comme elle n'a rien à voir avec celle de la colonne date il me
balance un message d'erreur .. lorsqu'on lui demande de formater ce
résultat

en date. Est ce que c'est ça ???
Une solution en vue ???
Merci
Delac

"Delac" a écrit dans le message de
news:u4$
Merci,

"Il" me balance un message d'erreur : impossible de définir la propriété
Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de
données


les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne bien,
la




date
apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup
















Avatar
Delac
Ma version : Excel 2002
création à partir de la barre d'outils ...
J'ai "contourné" le problème en affichant la valeur de la colonne Combo dans
une cellule de la feuille en cours avec ce bout de code :
Dim L As Integer
L = ComboBox1.ListIndex
Range("J13").Value = ComboBox1.List(L, 1)
comme cela je formate la cellule J13 en Date et j'y place la valeur de la
colonne (N° 2 d'où L=1) choisie dans ma combo et cela roule ....
Ce n'est pas bien joli mais ca marche.
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Re
Quelle version d'Excel utilises-tu et à partir d'où as-tu créé ton
contrôle

?
Cordialement
Pascal


"Delac" a écrit dans le message de
news:
AH je comprends mieux mon erreur ....
Voilà : en fait dans mon combobox je n'affiche "que" les valeurs de la
troisiéme colonne de la BDD (propriété widh =0pt;0pt;70pt;0;0)
Donc le combo renvoie bien la valeur de la 1ère colonne (numérique de 1
à


30) et comme elle n'a rien à voir avec celle de la colonne date il me
balance un message d'erreur .. lorsqu'on lui demande de formater ce
résultat

en date. Est ce que c'est ça ???
Une solution en vue ???
Merci
Delac

"Delac" a écrit dans le message de
news:u4$
Merci,

"Il" me balance un message d'erreur : impossible de définir la
propriété



Value.Valeur de propriété non valide.

C'est du chinois pour moi ....
Delac

"papou" <cestpasbonpapou@çanonplus44.fr> a écrit dans le message de
news:
Bonjour
Private Sub ComboBox1_Change()
If Combobox1.value = "" then exit sub
ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")
End Sub
Cordialement
Pascal

"Delac" a écrit dans le message de
news:%
Bonjour,

J'ai une Combobox qui me liste une série de dates. Dans ma base de
données


les dates sont calculées donc au format date normal.
Mon problème : à l'affichage dans le Combobox cela fonctionne
bien,





la
date
apparait au format ... date ex : 1/07/2003
mais lorsque je valide le choix, c'est la valeur de la date qui
s'affiche


ex
: 33645.
Comment faire pour que le choix s'affiche au format date voulu ??
merci beaucoup