Discussion :

[locus]

Bonjour,

j'essaie de faire une évolution d'un fichier excel existant.
J'ai créé un ruban personnalisé avec un menu contenant des boutons.
Ces boutons sont basés sur des boutons de CommandBar déjà présent.
j'ai pu les rajouter à un menu dans un onglet créé.
Mais là, je voudrais juste pouvoir n'afficher que quelques boutons spécifiques selon la feuille où je me trouve. lorsque je quitte cette feuille pour une autre, les boutons dispaissent pour laisser place à d'autres.
J'imagine que dans customUI.xml, je dois rajouter aux boutons un getvisible.

Je voudrais juste modifier le code suivant pour faire marcher la même chose avec les boutons du ruban. un comme comme convertir du code pour Commandbar à du code pour ruban.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim cbar As CommandBar, btn As CommandBarButton
 
For Each btn In cbar.Controls
action = Split(btn.OnAction, "!")(1)
            Select Case action
                Case "sauver", "sauvegarder sous ", "annuler"
                    btn.visible = True
                Case "lecture"
                    btn.visible = True
                Case "modifier", "annuler"
                    btn.visible = True
                Case Else
                    btn.visible = False
            End Select
 Next btn

des codes assez similaire sont déjà présents dans mon code ailleurs.

J'aimerai savoir si il était possible de remplacer cbar.Controls par quelque chose de similaire comme Office.IRibbonControl.

Si je dois utiliser getvisible, j'imagine que je vais devoir créer une subroutine spécifique.

Auriez-vous des idées car là je sèche?

Merci

[Philippe PONS]

Salut,

attention à ne pas tout mélanger!

Le ruban peut se programmer de 2 façons différentes:
1 soit en utilisant les objets Commandbar, présents depuis les toutes premières version d'Office
2- soit en utilisant la programmation par fichier de descripton xml, apparu avec la version 2007.

Ton code utilise les objets Commandbar

Mais quand tu parles de customUI.xml et de gerVisible, làa tu parles de la 2ième technique
Il faut choisir!
C'est soit Commandbar, soit xml.

Si c'est xml, oui il faut que le tab(ou les boutons) aient l'attribut getVisible
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<button id="btnMaintenance" label="Maintenance" getVisible="btnMaintenance_GetVisible">

et tu gères tes boutons dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub btnMaintenance_GetVisible(control As IRibbonControl, ByRef visible)

Si c'est par code avec Commandbar, il faut que tu parcours la collection des contrôles jusqu'à tomber
sur le bouton que tu veux masquer.

Cordialement,

[locus]

Bonjour,

je vous rassure, je ne mélange pas tout.

je fais une évolution d'un projet réalisé sous Excel par un tiers démarré il y a bien longtemps.
Une partie a été réalisé par lui avec CommandBar avant l'apparition de la nouvelle méthode avec XML. On m'a demandé de compléter l'interface en créant un ruban personnalisé (menu contenant des boutons) réemployant les macros que lance les boutons utilisant l'approche commandBar.

Donc, j'ai retravailler les macros et le reste mais la seule chose qui me pose problème c'est que certains boutons (du ruban XML) doivent disparaitre sur certaines pages pour laisser place à d'autres.

J'aimerai bien savoir comment spécifier dés le chargement ou au moindre changement de feuille quels sont les boutons qui apparaissent ou disparaissent en lot. Cela existe déjà avec la méthode sous Commandbar mais j'ai besoin de mettre en place la version plus récente.
La méthode getVisible est peut être efficace mais j'ai dû mal à m'en servir. Est-ce que je dois créer une fonction (pour getvisible) pour chaque bouton pour savoir si ils s'affichent ou pas.
j'ai une quinzaine de boutons.

En simplifiant:

sur une feuille 1, j'ai les boutons btn1 et btn2 qui s'affichent. (pas le btn3)
sur une feuille 2, j'ai les boutons btn2 et btn3 qui s'affichent. (pas le btn1)
sur une feuille 3, j'ai les boutons btn1 et btn3 qui s'affichent. (pas le btn2)

voilà.

[Philippe PONS]

Ok, j'ai compris.
Voici un fichier avec la mécanique de base pour contrôler
la visibilité des boutons en fonction de la feuille sélectionnée.
Cordialement,

[locus]

Bonjour,

je vous remercie très sincèrement pour le document. votre approche est similaire à celle que j'envisageais dans mes réflexions. Je vais tester sur mon code.

encore une fois merci
Cordialement

[locus]

Bonjour,

je vous confirme que cela marche.

Une fois encore, merci.