Discussion :

[MKTF1]

Bonjour

j'ai le code suivant

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
Public Sub CreationMenuDynamique(ctl As IRibbonControl, ByRef content)
    'ouverture de la balise menu
 
    content = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"
 
 
 
 
    'liste les feuilles de calcul du classeur actif
 
    content = content & ListeFeuilles(ActiveWorkbook)
 
 
    'liste les feuilles graphiques du classeur actif
    content = content & ListeCharts(ActiveWorkbook)
 
    'fermeture de la balise
    content = content & "</menu>"
End Sub

Ce code sert à lister les feuilles de mon classeur dans un menu du ruban créé avec Custom UI Editor.

J'ai une feuille masquée qui contient des données et que je ne souhaite voir dans cette liste, comment faire ?

Ma feuille est masquée et donc inaccessible même en étant listé dans le menu, mais pour faire plus propre je souhaite qu'elle ne soit pas listé.

Merci

[Menhir]

Il serait sans doute plus facile de faire ce filtre au niveau de la fonction ListeFeuilles.
Peux-tu afficher son code ?

[MKTF1]

bonjour

voici le code de création de mon menu

Code XML :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="false">
 
    <tabs>
        <tab id="Ongletperso" label="Tournois">
 
            <group id="GR01" label="Menu">
 
 
	      <!-- crée le bouton sauvegarde--> 
		<button id="BtPerso01" onAction="Sauvegarde"
		label="Sauvegarde" keytip="DVP" 
		supertip="Ce bouton possède
un raccourci clavier : DVP"
		size="normal"/>
 
            <!-- crée un bouton coipe horaire --> 
		<button id="BtPerso02" onAction="Copie"
		label="Faire une copie horaire" keytip="DVP" 
		supertip="Ce bouton possède
un raccourci clavier : DVP"
		size="normal"/>
 
 
		<!-- crée un bouton effacement --> 
		<button id="BtPerso03" onAction="Effacement"
		label="Effacement des données" keytip="DVP" 
		supertip="Ce bouton possède
un raccourci clavier : DVP"
		size="normal"/>
 
            <!-- crée un bouton quitte --> 
		<button id="BtPerso04" onAction="Quitter"
		label="Quitter" keytip="DVP" 
		supertip="Ce bouton possède
un raccourci clavier : DVP"
		size="normal"/>
 
            <!-- crée un séparateur vertical --> 
		<separator id="Sep01"/>
 
		<!-- crée la liste des feuilles --> 
 
		<dynamicMenu id="ListeDynamique"
            label="Liste feuilles"
            getContent="CreationMenuDynamique"
            invalidateContentOnDrop="true"
            size="normal"
            imageMso="PrintTitles"/>
 
            </group>
 
        </tab> 
 
    </tabs>
 
 
 
 
 
</ribbon>
</customUI>

La partie spécifique à la liste des feuilles

Code XML :

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

1
2
3
4
5
6
7
8
<!-- crée la liste des feuilles --> 
 
		<dynamicMenu id="ListeDynamique"
            label="Liste feuilles"
            getContent="CreationMenuDynamique"
            invalidateContentOnDrop="true"
            size="normal"
            imageMso="PrintTitles"/>

[Menhir]

Je voulais parler de la fonction ListeFeuille, celle qui est appelée en ligne 11 de ton code.

[MKTF1]

OUPS désolé

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
Private Function ListeFeuilles(Wb As Workbook) As String
    Dim strTemp As String
    Dim Ws As Worksheet
 
    ' Insertion d'un titre de menu
    strTemp = "<menuSeparator id=""Feuilles"" title=""Feuilles""/>"
 
    ' ajoute un bouton dans le menu pour chaque feuille du classeur
    For Each Ws In Wb.Worksheets
        strTemp = strTemp & _
            "<button " & _
            CreationAttribut("id", "Bt" & Ws.Name) & " " & _
            CreationAttribut("label", Ws.Name) & " " & _
            CreationAttribut("tag", Ws.Name) & " " & _
            CreationAttribut("onAction", "ActivationFeuille") & "/>"
    Next
 
    ListeFeuilles = strTemp
End Function

[Menhir]

Remplace

Code :

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

1
2
3
4
5
For Each Ws In Wb.Worksheets
 
    [...]
 
Next

Par

Code :

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

1
2
3
4
5
6
7
For Each Ws In Wb.Worksheets
    If Ws.Visible = xlSheetVisible Then
 
        [...]
 
    End If
Next Ws

Lire ça : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

[MKTF1]

Merci