Bonjour
Peut-on programer une liste d=E9roulante par vba
Voil=E0 j'ai une date de d=E9part plutot un mois et une ann=E9e
(date formatt=E9 en "mmmmyy") et je souhaite que ma liste=20
d=E9roulante contiennent les 12 mois suivant la date. Au=20
lieu de remplir 12 champs =E0 partir de ces dates je=20
souhaiterai mettre ces 12 valeurs dans une zone=20
d=E9roulante et de choisir le mois de fin par rapport =E0=20
cette liste
Est-il possible de le faire et si oui comment?
merci =E0 vous et meilleurs voeux pour cette nouvelle ann=E9e
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
si ta liste se nomme Liste69 par exemple, tu peux la remplir dans l'événement Form_load (ou tout autre événement) comme ceci: Dim I As Integer Dim Dt As Date Me.Liste69.RowSource = "" Dt = DateAdd("m", -1, Date) ' si on veut le mois en cours Dt = Date ' si on veut le mois suivant For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.RowSource = Me.Liste69.RowSource & Format(Dt, "mmmmyy") & ";" Next
si tu utilises la version 2002 mini d'access tu peux utiliser la fonction additem au lieu du rowsource direct.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" a écrit dans le message de news: 033f01c4ed9e$ba798bc0$ Bonjour Peut-on programer une liste déroulante par vba Voilà j'ai une date de départ plutot un mois et une année (date formatté en "mmmmyy") et je souhaite que ma liste déroulante contiennent les 12 mois suivant la date. Au lieu de remplir 12 champs à partir de ces dates je souhaiterai mettre ces 12 valeurs dans une zone déroulante et de choisir le mois de fin par rapport à cette liste Est-il possible de le faire et si oui comment? merci à vous et meilleurs voeux pour cette nouvelle année
Bonjour.
si ta liste se nomme Liste69 par exemple, tu peux la remplir dans
l'événement Form_load (ou tout autre événement) comme ceci:
Dim I As Integer
Dim Dt As Date
Me.Liste69.RowSource = ""
Dt = DateAdd("m", -1, Date) ' si on veut le mois en cours
Dt = Date ' si on veut le mois suivant
For I = 1 To 12
Dt = DateAdd("m", 1, Dt)
Me.Liste69.RowSource = Me.Liste69.RowSource & Format(Dt, "mmmmyy") & ";"
Next
si tu utilises la version 2002 mini d'access tu peux utiliser la fonction
additem au lieu du rowsource direct.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 033f01c4ed9e$ba798bc0$a401280a@phx.gbl...
Bonjour
Peut-on programer une liste déroulante par vba
Voilà j'ai une date de départ plutot un mois et une année
(date formatté en "mmmmyy") et je souhaite que ma liste
déroulante contiennent les 12 mois suivant la date. Au
lieu de remplir 12 champs à partir de ces dates je
souhaiterai mettre ces 12 valeurs dans une zone
déroulante et de choisir le mois de fin par rapport à
cette liste
Est-il possible de le faire et si oui comment?
merci à vous et meilleurs voeux pour cette nouvelle année
si ta liste se nomme Liste69 par exemple, tu peux la remplir dans l'événement Form_load (ou tout autre événement) comme ceci: Dim I As Integer Dim Dt As Date Me.Liste69.RowSource = "" Dt = DateAdd("m", -1, Date) ' si on veut le mois en cours Dt = Date ' si on veut le mois suivant For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.RowSource = Me.Liste69.RowSource & Format(Dt, "mmmmyy") & ";" Next
si tu utilises la version 2002 mini d'access tu peux utiliser la fonction additem au lieu du rowsource direct.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" a écrit dans le message de news: 033f01c4ed9e$ba798bc0$ Bonjour Peut-on programer une liste déroulante par vba Voilà j'ai une date de départ plutot un mois et une année (date formatté en "mmmmyy") et je souhaite que ma liste déroulante contiennent les 12 mois suivant la date. Au lieu de remplir 12 champs à partir de ces dates je souhaiterai mettre ces 12 valeurs dans une zone déroulante et de choisir le mois de fin par rapport à cette liste Est-il possible de le faire et si oui comment? merci à vous et meilleurs voeux pour cette nouvelle année
Didier
Bonjour
Trés fort access j'ai utilisé la fonction additem qui simplifie la fonction comme ceci Dim I As Integer Dim Dt As Date Dt = DateAdd("m", -1, Date) ' For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.AddItem (Format(Dt, "mmmmyy")) Next et cela à l'air de fonctionner, je pense pas avoir commis d'erreur Bonne fêtes de fin d'année à toi
-----Message d'origine----- Bonjour.
si ta liste se nomme Liste69 par exemple, tu peux la remplir dans
l'événement Form_load (ou tout autre événement) comme ceci:
Dim I As Integer Dim Dt As Date Me.Liste69.RowSource = "" Dt = DateAdd("m", -1, Date) ' si on veut le mois en cours
Dt = Date ' si on veut le mois suivant For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.RowSource = Me.Liste69.RowSource & Format (Dt, "mmmmyy") & ";"
Next
si tu utilises la version 2002 mini d'access tu peux utiliser la fonction
additem au lieu du rowsource direct.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" a écrit dans le message de
news: 033f01c4ed9e$ba798bc0$ Bonjour Peut-on programer une liste déroulante par vba Voilà j'ai une date de départ plutot un mois et une année (date formatté en "mmmmyy") et je souhaite que ma liste déroulante contiennent les 12 mois suivant la date. Au lieu de remplir 12 champs à partir de ces dates je souhaiterai mettre ces 12 valeurs dans une zone déroulante et de choisir le mois de fin par rapport à cette liste Est-il possible de le faire et si oui comment? merci à vous et meilleurs voeux pour cette nouvelle année
.
Bonjour
Trés fort access j'ai utilisé la fonction additem qui
simplifie la fonction comme ceci
Dim I As Integer
Dim Dt As Date
Dt = DateAdd("m", -1, Date) '
For I = 1 To 12
Dt = DateAdd("m", 1, Dt)
Me.Liste69.AddItem (Format(Dt, "mmmmyy"))
Next
et cela à l'air de fonctionner, je pense pas avoir commis
d'erreur
Bonne fêtes de fin d'année à toi
-----Message d'origine-----
Bonjour.
si ta liste se nomme Liste69 par exemple, tu peux la
remplir dans
l'événement Form_load (ou tout autre événement) comme
ceci:
Dim I As Integer
Dim Dt As Date
Me.Liste69.RowSource = ""
Dt = DateAdd("m", -1, Date) ' si on veut le mois en
cours
Dt = Date ' si on veut le mois suivant
For I = 1 To 12
Dt = DateAdd("m", 1, Dt)
Me.Liste69.RowSource = Me.Liste69.RowSource & Format
(Dt, "mmmmyy") & ";"
Next
si tu utilises la version 2002 mini d'access tu peux
utiliser la fonction
additem au lieu du rowsource direct.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 033f01c4ed9e$ba798bc0$a401280a@phx.gbl...
Bonjour
Peut-on programer une liste déroulante par vba
Voilà j'ai une date de départ plutot un mois et une année
(date formatté en "mmmmyy") et je souhaite que ma liste
déroulante contiennent les 12 mois suivant la date. Au
lieu de remplir 12 champs à partir de ces dates je
souhaiterai mettre ces 12 valeurs dans une zone
déroulante et de choisir le mois de fin par rapport à
cette liste
Est-il possible de le faire et si oui comment?
merci à vous et meilleurs voeux pour cette nouvelle
année
Trés fort access j'ai utilisé la fonction additem qui simplifie la fonction comme ceci Dim I As Integer Dim Dt As Date Dt = DateAdd("m", -1, Date) ' For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.AddItem (Format(Dt, "mmmmyy")) Next et cela à l'air de fonctionner, je pense pas avoir commis d'erreur Bonne fêtes de fin d'année à toi
-----Message d'origine----- Bonjour.
si ta liste se nomme Liste69 par exemple, tu peux la remplir dans
l'événement Form_load (ou tout autre événement) comme ceci:
Dim I As Integer Dim Dt As Date Me.Liste69.RowSource = "" Dt = DateAdd("m", -1, Date) ' si on veut le mois en cours
Dt = Date ' si on veut le mois suivant For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.RowSource = Me.Liste69.RowSource & Format (Dt, "mmmmyy") & ";"
Next
si tu utilises la version 2002 mini d'access tu peux utiliser la fonction
additem au lieu du rowsource direct.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" a écrit dans le message de
news: 033f01c4ed9e$ba798bc0$ Bonjour Peut-on programer une liste déroulante par vba Voilà j'ai une date de départ plutot un mois et une année (date formatté en "mmmmyy") et je souhaite que ma liste déroulante contiennent les 12 mois suivant la date. Au lieu de remplir 12 champs à partir de ces dates je souhaiterai mettre ces 12 valeurs dans une zone déroulante et de choisir le mois de fin par rapport à cette liste Est-il possible de le faire et si oui comment? merci à vous et meilleurs voeux pour cette nouvelle année
.
Raymond [mvp]
à première vue ça doit marcher; bonnes fêtes. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Didier" a écrit dans le message de news: 134a01c4edb5$9274fb20$ Bonjour
Trés fort access j'ai utilisé la fonction additem qui simplifie la fonction comme ceci Dim I As Integer Dim Dt As Date Dt = DateAdd("m", -1, Date) ' For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.AddItem (Format(Dt, "mmmmyy")) Next et cela à l'air de fonctionner, je pense pas avoir commis d'erreur Bonne fêtes de fin d'année à toi
à première vue ça doit marcher;
bonnes fêtes.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Didier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 134a01c4edb5$9274fb20$a301280a@phx.gbl...
Bonjour
Trés fort access j'ai utilisé la fonction additem qui
simplifie la fonction comme ceci
Dim I As Integer
Dim Dt As Date
Dt = DateAdd("m", -1, Date) '
For I = 1 To 12
Dt = DateAdd("m", 1, Dt)
Me.Liste69.AddItem (Format(Dt, "mmmmyy"))
Next
et cela à l'air de fonctionner, je pense pas avoir commis
d'erreur
Bonne fêtes de fin d'année à toi
à première vue ça doit marcher; bonnes fêtes. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Didier" a écrit dans le message de news: 134a01c4edb5$9274fb20$ Bonjour
Trés fort access j'ai utilisé la fonction additem qui simplifie la fonction comme ceci Dim I As Integer Dim Dt As Date Dt = DateAdd("m", -1, Date) ' For I = 1 To 12 Dt = DateAdd("m", 1, Dt) Me.Liste69.AddItem (Format(Dt, "mmmmyy")) Next et cela à l'air de fonctionner, je pense pas avoir commis d'erreur Bonne fêtes de fin d'année à toi
