Menu

Lier liste déroulante [Résolu/Fermé]

Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention - 11 févr. 2017 à 12:09 - Dernière réponse : Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention
- 12 févr. 2017 à 12:54
Bonjour, à tous

Dans mon classeur, j'ai 12 onglets intitulés "Janvier 2017"; "Février 2017"...."Décembre 2017"

J'ai réalisé aussi dans une feuille, mon menu général, qui me servira à naviguer dans mon classeur.

Dans la cellule $Q$9 j'affiche le jour actuel, et dans ma cellule $Q$12 le mois et l'année
$Q$9=JOUR(MAINTENANT())
$Q$10=NOMPROPRE(TEXTE(MAINTENANT();"mmmm"))&" "&ANNEE(MAINTENANT())

ce qui me donne: en $Q$9 => 11, et $Q$10 => Février 2017.

J'ai aussi, une liste déroulante, qui me liste tous les mois de l'année, de Janvier 2017 à Décembre 2017.

Je n’arrive pas à ce cette liste déroulante, m'indique à l'ouverture du classeur, le mois en cours, c'est à dire actuellement "Février 2017"
pour faire simple, que cette liste soit liée à $Q$10.
Cela me permettrai, avec un bouton de contrôle de formulaire, de me rendre directement dans l'onglet du mois affiché.

merci encore de votre réponse

Titi32600



Afficher la suite 

8 réponses

Raymond PENTIER 45557 Messages postés lundi 13 août 2007Date d'inscriptionContributeurStatut 21 avril 2018 Dernière intervention - 11 févr. 2017 à 14:56
0
Utile
2
Dans ta liste déroulante de cellule, qu'est-ce que tu as mis comme source ?
Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention - 11 févr. 2017 à 15:28
Salut Raymond

j'ai mis une plage d'entrée

Config!$C$6:$C$17 'qui est la liste des mois pour cette année
Raymond PENTIER 45557 Messages postés lundi 13 août 2007Date d'inscriptionContributeurStatut 21 avril 2018 Dernière intervention > Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention - 12 févr. 2017 à 01:53
Salut.
Je ne comprends pas ta logique :
à l'ouverture de ton classeur, Q10 affiche déjà "février 2017" ...
alors pourquoi une liste déroulante ?
Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention - 12 févr. 2017 à 09:10
0
Utile
Salut Raymond

En fait, mon classeur me permet de noter toutes mes heures de travail de l'année.
J'ai réalisé, un onglet par mois de travail.
"Janvier 2017"; "Février 2017"...."Décembre 2017"

Quand mon classeur s'ouvre, la feuille "Menu General" est affichée.

et sur ce menu, j'ai une liste déroulante, qui me permettra d'afficher l'onglet du mois choisi.

C'est pour cela, que je souhaiterais, que cette liste m'affiche par défaut le mois en cours, avec la possibilité de choisir un autre mois de l'année.
le bouton de commande m'affichera l'onglet correspondant au mois déterminé.

C'est certainement lourd comme procédé, je te le concède.

titi32600
gbinforme 14793 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 21 avril 2018 Dernière intervention - Modifié par gbinforme le 12/02/2017 à 10:05
0
Utile
2
Bonjour,

le bouton de commande m'affichera l'onglet correspondant au mois déterminé.

Cela veut sans doute dire que tu utilises du code VBA ?

Si c'est le cas, en supposant que ta liste déroulante est en A1, tu mets ce code dans ThisWorkbook :
Private Sub Workbook_Open()
    Range("A1").Value = Format(Date, "mmmm yyyy")
End Sub

Ou bien tu rajoutes cette ligne si tu as déjà un positionnement sur ta feuille "Menu General"
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer.  Antoine de Saint-Exupéry
Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention - 12 févr. 2017 à 10:15
Salut gbinforme

effectivement ce sera certainement en VBA, par contre ma liste déroulante est de type Contrôle ActiveX
gbinforme 14793 Messages postés lundi 18 octobre 2004Date d'inscriptionContributeurStatut 21 avril 2018 Dernière intervention - 12 févr. 2017 à 10:37
RE
Tu adaptes ceci à ton classeur
    Sheets("Config").ComboBox1 = Format(Date, "mmmm yyyy")
Titi32600 88 Messages postés samedi 5 décembre 2015Date d'inscription 20 août 2017 Dernière intervention - 12 févr. 2017 à 12:54
0
Utile
merci encore gbinforme

bonne journée