Discussion :

[jjcol]

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 :

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

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 :

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

<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

[ouskel'n'or]

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.

[jjcol]

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

[fred65200]

pour un bouton on place le code dans Workbook_SheetActivate

Code :

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

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 :

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

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 :

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

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

[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

[jjcol]

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