Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel remplir mes combos

remplir mes combos

10 réponses
Avatar
Gerard
Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais avoir
les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
anonymousA
Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+


Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais avoir
les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)




Avatar
Gerard
bonsoir
et bien quand j'utilise Right(VarAnnee, 4), ce n'est pas un nombre, c'est
toujours une date ?
merci

"anonymousA" a écrit dans le message de news:
438f6518$0$18303$
Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+


Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais
avoir les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)




Avatar
anonymousA
Qu'est varAnnee ? que contient cette variable ? De quelle source prend
t-elle sa valeur ( déclaration de programme, valeur de cellule..) ?

A+


bonsoir
et bien quand j'utilise Right(VarAnnee, 4), ce n'est pas un nombre, c'est
toujours une date ?
merci

"anonymousA" a écrit dans le message de news:
438f6518$0$18303$

Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+



Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais
avoir les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)









Avatar
JLuc
*Bonjour Gerard*,
Pourquoi ne pas utiliser :

VarAnnee.AddItem "2005"
VarAnnee.AddItem "2004"
VarAnnee.AddItem "2003"
VarAnnee.AddItem "2002"
VarAnnee.ListIndex = 0

CmbMois.AddItem "Janvier"
CmbMois.AddItem "Fevrier"
CmbMois.AddItem "Mars"
CmbMois.AddItem "Avril"
CmbMois.AddItem "Mai"
CmbMois.AddItem "Juin"
CmbMois.AddItem "Juillet"
CmbMois.AddItem "Aout"
CmbMois.AddItem "Septembre"
CmbMois.AddItem "Octobre"
CmbMois.AddItem "Novembre"
CmbMois.AddItem "Decembre"
CmbMois.ListIndex = Month(Now) - 1

Ca me parait bien :')

bonsoir
et bien quand j'utilise Right(VarAnnee, 4), ce n'est pas un nombre, c'est
toujours une date ?
merci

"anonymousA" a écrit dans le message de news:
438f6518$0$18303$
Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+


Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais avoir
les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)





--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS



Avatar
Gerard
salut
varannee prend sa source dans Date, ce qui donne la date d'aujourdhui
merci a Jluc, si je veux que les combox s remplissent seuls avec seulement
les cinq derniere annee, je ne veux pas tous les ans reprendre mon code, des
2006, je devrai avoir 2006,2005,2004,2003,2002
merci

"anonymousA" a écrit dans le message de news:
438f6660$0$18303$
Qu'est varAnnee ? que contient cette variable ? De quelle source prend
t-elle sa valeur ( déclaration de programme, valeur de cellule..) ?

A+


bonsoir
et bien quand j'utilise Right(VarAnnee, 4), ce n'est pas un nombre, c'est
toujours une date ?
merci

"anonymousA" a écrit dans le message de news:
438f6518$0$18303$

Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+



Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais
avoir les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)










Avatar
michdenis
Bonjour Gérard,

Quelque chose comme ceci :

J'ai supposé que tes combobox était dans un formulaire(userform)

With Me.ComboBox1
For a = 0 To 5
.AddItem Year(Date) - a
Next
End With

With Me.ComboBox2
For a = 1 To 12
.AddItem Format(DateSerial(2005, a, 1), "mmmm")
Next
End With


Salutations!





"Gerard" a écrit dans le message de news: 438f6273$0$19711$
Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais avoir
les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)
Avatar
anonymousA
Décidément, je ne comprends pas tout à ton problème. Peux tu mettre un
fichier à dispo sur cjoint p.e avec un peu d'explication ?.
Franchement, je ne vois pas du tout où est le problème .

A+

salut
varannee prend sa source dans Date, ce qui donne la date d'aujourdhui
merci a Jluc, si je veux que les combox s remplissent seuls avec seulement
les cinq derniere annee, je ne veux pas tous les ans reprendre mon code, des
2006, je devrai avoir 2006,2005,2004,2003,2002
merci

"anonymousA" a écrit dans le message de news:
438f6660$0$18303$

Qu'est varAnnee ? que contient cette variable ? De quelle source prend
t-elle sa valeur ( déclaration de programme, valeur de cellule..) ?

A+



bonsoir
et bien quand j'utilise Right(VarAnnee, 4), ce n'est pas un nombre, c'est
toujours une date ?
merci

"anonymousA" a écrit dans le message de news:
438f6518$0$18303$


Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+




Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais
avoir les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)













Avatar
Gerard
bonsoir
merci beaucoup de t'etre penche sur mon explication qui effectivement n'a
pas ete toujour tres claire.
cependant Michdenis ma donné la solution
merci a tous
a++
"anonymousA" a écrit dans le message de news:
438f6ac8$0$18303$
Décidément, je ne comprends pas tout à ton problème. Peux tu mettre un
fichier à dispo sur cjoint p.e avec un peu d'explication ?.
Franchement, je ne vois pas du tout où est le problème .

A+

salut
varannee prend sa source dans Date, ce qui donne la date d'aujourdhui
merci a Jluc, si je veux que les combox s remplissent seuls avec
seulement les cinq derniere annee, je ne veux pas tous les ans reprendre
mon code, des 2006, je devrai avoir 2006,2005,2004,2003,2002
merci

"anonymousA" a écrit dans le message de news:
438f6660$0$18303$

Qu'est varAnnee ? que contient cette variable ? De quelle source prend
t-elle sa valeur ( déclaration de programme, valeur de cellule..) ?

A+



bonsoir
et bien quand j'utilise Right(VarAnnee, 4), ce n'est pas un nombre,
c'est toujours une date ?
merci

"anonymousA" a écrit dans le message de news:
438f6518$0$18303$


Bonjour,

les résultats de quoi veux-tu avoir en nombre ?

A+




Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais
avoir les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)















Avatar
Gerard
bonsoir
c'est ce que je cherchais et je t'en remerci
peut on en plus dans les mois prevoir le listindex positionné sur le mois en
cours.....
merci encore
"michdenis" a écrit dans le message de news:
%
Bonjour Gérard,

Quelque chose comme ceci :

J'ai supposé que tes combobox était dans un formulaire(userform)

With Me.ComboBox1
For a = 0 To 5
.AddItem Year(Date) - a
Next
End With

With Me.ComboBox2
For a = 1 To 12
.AddItem Format(DateSerial(2005, a, 1), "mmmm")
Next
End With


Salutations!





"Gerard" a écrit dans le message de news:
438f6273$0$19711$
Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais avoir
les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)





Avatar
michdenis
Bonjour Gérard,

Tu modifies cette section de la procédure comme ceci :

'-----------------------
With Me.ComboBox2
For a = 1 To 12
.AddItem Format(DateSerial(2005, a, 1), "mmmm")
Next
.ListIndex = Month(Date) - 1
End With
'-----------------------


Salutations!



"Gerard" a écrit dans le message de news: 438f6e69$0$21292$
bonsoir
c'est ce que je cherchais et je t'en remerci
peut on en plus dans les mois prevoir le listindex positionné sur le mois en
cours.....
merci encore
"michdenis" a écrit dans le message de news:
%
Bonjour Gérard,

Quelque chose comme ceci :

J'ai supposé que tes combobox était dans un formulaire(userform)

With Me.ComboBox1
For a = 0 To 5
.AddItem Year(Date) - a
Next
End With

With Me.ComboBox2
For a = 1 To 12
.AddItem Format(DateSerial(2005, a, 1), "mmmm")
Next
End With


Salutations!





"Gerard" a écrit dans le message de news:
438f6273$0$19711$
Bonsoir
je voudrais remplir deux combobox
un CmbAnnee avec l'annee actuelle, et les quatre année precedente
le cmbannee.text etant sur l'année actuelle

je voudrais faire la memechose avec les mois
dans un CmbMois

le principe que j'ai fait ci-dessous ne vas pas bien car je voudrais avoir
les resultats en Nombre
Merci de votre aide, j'espere avoir ete assez explicit

VarAnnee = Date
VarMois = Date
CmBAnnee.AddItem Right(VarAnnee, 4)
CmBAnnee.AddItem Right(VarAnnee, 4) - 1
CmBAnnee.AddItem Right(VarAnnee, 4) - 2
CmBAnnee.AddItem Right(VarAnnee, 4) - 3
CmBAnnee.Text = Right(VarAnnee, 4)