Lier liste déroulante Résolu/Fermé

Question

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 
Configuration: Windows / Firefox 51.0

Raymond PENTIER · Answer

Dans ta liste déroulante de cellule, qu'est-ce que tu as mis comme source ?

Titi32600 · Answer

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 · Answer

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 · Answer

merci encore gbinforme
bonne journée

Lier liste déroulante

4 réponses

Discussions similaires