Comment masquer un groupe du ruban?

au cas ou cela interresse qq :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RubanCharge">
<ribbon startFromScratch="false">
    <tabs>
        <!-- Masque l'onglet prédéfini Révision -->
        
        <tab idMso="TabReview" visible="true"/>
	  <tab idMso="TabFormulas" visible="true"/>
	  <tab idMso="TabFormulas" visible="true"/>
	  <tab idMso="TabData" visible="true"/>

        <!-- Ajoute un nouvel onglet nommé OngletPerso -->  
        <tab id="Facturation" label="Facturation" visible="true">
        <group id="SuiviAnalytique" label="Suivis analytiques"> 

        	<button id="SuiviAnaRecopier" label="Recopier dans les suivis analytiques"
         		onAction="RecopierDansLesSuivisAnalytiques" 
                   imageMso="ProposeNewTime"
         		size="normal"/>

        	<button id="SuiviAnaImprimer" label="Imprimer les suivis analytiques"
         		onAction="ImprimerLesSuivisAnalytiques" 
                  imageMso="FilePrint"
         		size="normal"/>

        	<button id="AfficherFeuilleCadir" label="Afficher la feuille CA Dir"
         		onAction="OuvrirCADir" 
                  imageMso="SlideNew"
         		size="normal"/>

        </group>
        <group id="Insertion" label="Insertion" getVisible="get_Visible_Insertion"> 
		<button id="InsererLigne" label="Insérer une ligne"
         		onAction="InsereLigne" 
                   imageMso="TableRowsInsertBelowExcel"
         		size="normal"/>

        	<button id="SupprimerLigne" label="Supprimer une ligne"
         		onAction="SupprimeLigne" 
                  imageMso="TableRowsDeleteExcel"
         		size="normal"/>

dans thisworkbook

Code:

1
2
3
4
5
6
7
8
 
Private Sub Workbook_Open()
    InitializeApp
 End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Not objRuban Is Nothing Then objRuban.InvalidateControl "Insertion"
end sub

dans un module quelconque :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim X As New EventClassModule
Public objRuban As IRibbonUI

'Callback for customUI.onLoad
'Est dclench lors du chargement du ruban personnalis.
Sub RubanCharge(ribbon As IRibbonUI)
    Set objRuban = ribbon
End Sub
 
 'Pour gestion du ruban
Sub InitializeApp()
    Set X.App = Application
End Sub
 

Sub get_Visible_Insertion(control As IRibbonControl, ByRef returnedVal)
    If ActiveSheet.Name = WsVentilation.Name Then
        returnedVal = True
    Else
        returnedVal = False
    End If
End Sub

dans un module de classe nommé EventClassModule:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Option Explicit
 
Public WithEvents App As Application
 
 
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
 'Rafraichit le bouton personnalisé
    If Not objRuban Is Nothing Then objRuban.Invalidate
End Sub
 
 
Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
 'Rafraichit le bouton personnalisé
    If Not objRuban Is Nothing Then objRuban.Invalidate
 End Sub

j'espère que je n'ai rien oublié....