Discussion :

[nath-0-0]

Bonjour,

je souhaiterais masquer un groupe su trouvant sur un onglet que j'ai ajouté via custom ui Editor selon la feuille qui est activée.
J'ai lu les tutos mais rien trouvé afin de résoudre mon problème.

j'ai voulu adapter ce code pour mon groupe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<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"
/>

mais je peux pas ajouter getEnabled à un groupe, custom ui Editor ne me valide pas mon code xml si je tente de faire cela.

Merci

Nath

[nath-0-0]

au cas ou cela interresse qq :

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
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 :

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

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 :

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
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 :

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
 
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é....