Excel 2007 VBA manipulation du ruban

Bonjour à tous,
J'ai crée un ruban personnalisé avec 3 onglets.

Lors du chargement du ruban je crée une instance de ce ruban à l'aide du code VBA :

Code:

---

1 2 3 4

Public oMonruban As IRibbonUI Sub getMonRuban(Ribbon As IRibbonUI) Set oMonruban = Ribbon End Sub

---

Le code XLM du premier onglet est :

Code:

---

<tab id = "X_1" label="Menu principal" insertAfterMso="TabView" visible="true">

---

Ma question :
en cours de traitement je souhaite rendre l'onglet "X_1" alternativement invisible ou visible : comment écrire le code VBA permettant de manipuler l'attribut visible de l'onglet ?

D'avance merci pour votre aide
JD

Je ne sais pas si ce lien va te conduire au bon endroit, sinon, fais une recherche dans la FAQ VBA Excel sur le mot RUBAN.

Merci pour ces liens que j'avais déjà exploré sans succès.

C'est le tuto "Création de rubans personnalisés sous Microsoft Access 2007" de Christophe WARIN qui m'a permis d'avancer sur le ruban d'Excel.

Mais mon problème reste sans solution
JD

pour un bouton on place le code dans Workbook_SheetActivate

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Not (Monruban Is Nothing) Then Monruban.InvalidateControl "Bouton0"   End If End Sub

---

et dans un module standard

Code:

---

1 2 3 4 5

Sub getBouton0_enabled(control As IRibbonControl, ByRef enabled)   If ActiveSheet.Name = "Devis" Then enabled = True Else enabled = False End Sub

---

et pour le xml

Code:

---

1 2 3 4 5 6 7 8 9 10 11

<button id="Bouton0" screentip = "ARRONDI.SUP(formule;2)" supertip = "Change les formules ou valeurs sélectionnées en ARRONDI.SUP(formule;2)" imageMso="PlusSign" onAction = "Arrondi_SupOnAction" tag = "Arrondi_Sup" keytip="+" size="large" getEnabled = "getBouton0_enabled" <!-- ICI --> label = "ARRONDI.SUP" />

---

je pense que tu peux essayer pour un onglet si getenabled ne fonctionne pas essaie getvisible

fred65200

Il semble que ce soit GetVisible

http://www.accessribbon.de/en/index....cks:getVisible

tu trouveras sur ce site de très bonnes explications (en anglais ou en allemand)
sur le ruban Access mais applicables bien souvent à Excel

Merci Fred65200 j'ai effectivement trouvé la solution grâce à ce lien
Avec GetVisible on peut à volonter changer l'aspect du ruban au cours du travail