XL 2013 VBA - Liste déroulante Ruban personnalisé

[lemath87]

Bonjour à tous,

Voici mon problème... Je viens d'utiliser le logiciel Custom UI Editor afin de personnaliser le ruban d'un fichier. Dans ce ruban, je souhaite intégrer une liste déroulante reprenant les 12 mois de l'année. Jusque là pas de problème, je me suis débrouillé pour le faire avec le logiciel précité.

Seulement, je souhaite qu'en fonction du mois sélectionné, il m'ouvre un onglet précis (par exemple, je sélectionne "Janvier" dans ma liste déroulante du ruban, je veux qu'il m'ouvre l'onglet "Janvier").

J'encode le code VBA suivant :

Sub LISTE_MOIS(control As IRibbonControl, text As String)
If LISTE_MOIS.Value = "Janvier" Then
Sheets("Janvier").Select
End If

Mais il ne fonctionne pas... Débutant en VBA, je ne sais que faire, hormis me tourner vers vous...

 

[13GIBE59]

Re : VBA - Liste déroulante Ruban personnalisé

Bonjour lemath87,

Essaie plutôt ça :

Sub Changechoixonglets(control As IRibbonControl, text As String)
Sheets(text).Visible = True
Sheets(text).Select
End Sub

 

[lemath87]

Re : VBA - Liste déroulante Ruban personnalisé

Mon héros !

Je ne comprends pas trop la composition de la formule (si tu as le temps de l'expliquer, ce serait génial) mais ça fonctionne en tout cas...

 

[lemath87]

Re : VBA - Liste déroulante Ruban personnalisé

Et encore merci !!!!

 

[13GIBE59]

Re : VBA - Liste déroulante Ruban personnalisé

Je pars du principe que ta feuille (ton onglet) est masquée. Comme la liste de ta combobox comporte les noms des onglets, je compose :
Sheets(le nom de ton onglet) , = le texte qui apparaît dans ta combo.
Visible = true : pour la "démasquer"
Select : pour la sélectionner.

CQFD

 

[lemath87]

Re : VBA - Liste déroulante Ruban personnalisé

Merci pour l'explication et pour l'aide précieuse !!!!