Lier liste déroulante

Résolu/Fermé
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - 11 févr. 2017 à 12:09
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 - 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



4 réponses

Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 17 090
11 févr. 2017 à 14:56
Dans ta liste déroulante de cellule, qu'est-ce que tu as mis comme source ?
0
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2
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
0
Raymond PENTIER Messages postés 58389 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 18 avril 2024 17 090 > Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017
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 ?
0
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2
12 févr. 2017 à 09:10
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
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
Modifié par gbinforme le 12/02/2017 à 10:05
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
0
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2
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
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
12 févr. 2017 à 10:37
RE
Tu adaptes ceci à ton classeur
    Sheets("Config").ComboBox1 = Format(Date, "mmmm yyyy")
0
Titi32600 Messages postés 87 Date d'inscription samedi 5 décembre 2015 Statut Membre Dernière intervention 20 août 2017 2
12 févr. 2017 à 12:54
merci encore gbinforme

bonne journée
0