Discussion :

[Rinat]

Bonjour,
Après avoir consulté les FAQ, j'ai testé le code ci_dessous sur deux ordinateurs différents sous excel 2010.

Code :

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

1
2
3
4
5
6
Public Sub test()
MsgBox Application.CommandBars("Ply").Controls(2).Caption 'Renvoie  "&Supprimer"
Application.CommandBars("Ply").Controls(2).Enabled = False
'Vérification
MsgBox Application.CommandBars("Ply").Controls(2).Enabled 'Renvoie False
End Sub

Clic droit sur le nom de la feuille:
- sur l'un le contrôle "Supprimer" est grisé.C'est ce que je souhaite.
- sur l'autre, le contrôle "Supprimer" reste actif.

Quelqu'un a t il une idée?

Je précise que sur l'ordinateur où l'inactivation du bouton "Supprimer" échoue, le code suivant fonctionne.

Code :

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

Application.CommandBars("Cell").Controls(2).Enabled = False

[kiki29]

Salut, Personnalisation des menus contextuels dans toutes les versions de Microsoft Excel

[patricktoulon]

bonjour

chez moi cela fontionne mais en effet il y a 3 boutons identiques avec le meme ID dans l'application ca viens peut etre de la
alors

Code :

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

1
2
3
4
5
6
7
Sub test2()
 Dim myControls As CommandBarControls
Set myControls = CommandBars.FindControls(Type:=msoControlButton, ID:=847)
For Each ctrl In myControls
ctrl.Enabled = IIf(ctrl.Parent.Name = "Ply", False, True)
Next
End Sub

[Rinat]

Merci à Patrick Toulon d'avoir cherché. Je profite de ce message pour te remercier pour ton partage au sujet du redimensionnement de l'UserForm. Je viens de m'en inspirer fortement avec succès.
J'ai lu le lien de Kiki29. L'article est très interessant mais la partie sur le Ribbon est trop ardue pour moi pour l'instant.
Suite à cet article, je me suis concentré sur l'ID. J'ai récupéré comme Patrick l'ID 847 grace à la moulinette suivante qui me donne tous les ID:

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
Public Sub Listing()
Dim CBar As CommandBar
Dim CBarControl As CommandBarControl
Dim intCompt As Integer
intCompt = 2
ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Clear
For Each CBar In Application.CommandBars
'    On Error Resume Next
'    CBar.Reset'Réinitialisation du menu à son état initial
    ActiveSheet.Cells(intCompt, 1) = CBar.Name
    For Each CBarControl In CBar.Controls
        With CBarControl
            Cells(intCompt, 2) = .Caption
            Cells(intCompt, 3) = .Visible
            Cells(intCompt, 4) = .Enabled
            Cells(intCompt, 5) = .Index
            Cells(intCompt, 6) = .ID
            Cells(intCompt, 7) = .Type
            Cells(intCompt, 8) = .BuiltIn
        End With
    intCompt = intCompt + 1
    Next CBarControl
Next CBar
End Sub

J'ai ensuite essayé le code:

Code :

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

Application.CommandBars("Ply").FindControl(ID:=847).Enabled = False

La propriété passe bien à False (Vérifié avec la moulinette) mais le bouton reste actif!

Pour info, le code suivant désactive bien le menu "Ply", le clic droit reste ainsi sans effet.

Code :

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

Application.CommandBars("Ply").Enabled = False

Demain, je travaillerai sur la notion de IDmso. Il y'a un article qui semble très interessant dans Access. Peut-être trouverais je mon bonheur.

[Invité]

Hello,

Test ceci en mode pas à pas pour mieux comprendre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
    Dim CellMenu As CommandBarControl
    Set CellMenu = Excel.CommandBars("Cell").FindControl(ID:=292)
    CellMenu.Enabled = True
    Debug.Print CellMenu.Enabled
    Excel.CommandBars("Cell").ShowPopup
    CellMenu.Enabled = False
    Debug.Print CellMenu.Enabled
    Excel.CommandBars("Cell").ShowPopup
End Sub

@+

[Rinat]

Merci à Nouveau2 pour le code.
Je l'ai mis à jour par rapport à mon problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
    Dim CellMenu As CommandBarControl
    Set CellMenu = Excel.CommandBars("Ply").FindControl(ID:=847)
    CellMenu.Enabled = True
    Debug.Print CellMenu.Enabled
    Excel.CommandBars("Ply").ShowPopup
    CellMenu.Enabled = False
    Debug.Print CellMenu.Enabled
    Excel.CommandBars("Ply").ShowPopup
End Sub

J'ai fait une vue ecran des résultats obtenus:

Le menu affiché lors du pas à pas correspond à ce que je veux faire:

Code :

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

Excel.CommandBars("Ply").ShowPopup .

Malheureusement, le menu réellement affiché lors du clic_droit est différent . Le bouton "Supprimer" est précédé d'une FaceID et reste actif.
Et cependant le code suvant fonctionne:

Code :

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

Application.CommandBars("Ply").Enabled = False

On croirait donc qu'il y'a deux menus Ply.
Et pourtant, lorsque j'affiche tous les menus (Moulinette), il n'y a qu'un menu Ply à la différence de Row, Cell et column (Explication des deux menus dans le lien de Kiki29)
Je continue à chercher.

[patricktoulon]

Bonjour

pour moi il y a un soucis ailleurs
ton fichier n'aurait il pas un mot de passe ??? par azard si c'est le cas il faut unprotect !!!! d'abords

parce que chez moi ca fonctionne tres bien

manipuler le bouton supprimer dans la commandbars ply (onglet)

Code :

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

1
2
3
Sub bloquefeuille()    'bloquage du bouton supprimer dans le menu tabs (feuille,onglets feuilles)
    btn_supp_dans "ply", false
End Sub

manipuler le bouton supprimer dans le menu contextuel des cellules

Code :

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

1
2
3
Sub bloquecell()    'bloquage du bouton supprimer dans le menu contextuel des cellules
    btn_supp_dans "cell", false
End Sub

et la fonction commune

Code :

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

1
2
3
4
5
6
7
8
9
10
Function btn_supp_dans(barre, etat)
    Select Case barre
    Case "ply"
        Set supp_dans_ply = Excel.CommandBars("ply").FindControl(ID:=847)
        supp_dans_ply.Enabled = etat
    Case "cell"
        Set supp_dans_menucell = Excel.CommandBars("cell").FindControl(ID:=292)
        supp_dans_menucell.Enabled = etat
    End Select
End Function

remplace false par true pour les remettre

[Rinat]

Je viens d'appliquer le programme de Patrick, complété par celui de Nouveau2 pour afficher les CommandBars().Popup.

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
Sub bloquefeuille()    'bloquage du bouton supprimer dans le menu tabs (feuille,onglets feuilles)
    btn_supp_dans "ply", False
End Sub
Sub bloquecell()    'bloquage du bouton supprimer dans le menu contextuel des cellules
    btn_supp_dans "cell", False
End Sub
Function btn_supp_dans(barre, etat)
Dim Supp_dans_ply As CommandBarControl
Dim Supp_dans_menucell As CommandBarControl
 
    Select Case barre
    Case "ply"
        Set Supp_dans_ply = Excel.CommandBars("ply").FindControl(ID:=847)
        Supp_dans_ply.Enabled = etat
        Excel.CommandBars("ply").ShowPopup
    Case "cell"
        Set Supp_dans_menucell = Excel.CommandBars("cell").FindControl(ID:=292)
        Supp_dans_menucell.Enabled = etat
        Excel.CommandBars("Cell").ShowPopup
    End Select
End Function

J'obtiens toujours le même résultat, comme si j'avais deux Menus Ply: celui affiché en showPopup qui est correct et celui affiché sur la feuille qui n'est pas modifié

[patricktoulon]

bonsoir

moi il y a un truc qui me perturbe

a quoi sert ton show popup???????????

tu bloque le bouton et le click droit sur un onglet fait apparaitre le menu sans le bouton bien évidement

je comprends pas bien ton besoins de le faire apparaitre par commande popup vba

[Rinat]

Bonsoir Patrick,
Désolé, j'ai loupé ton message.
Je passais par le show popup pour afficher en mode pas à pas l'état de mon menu clic droit "Ply".
Ce menu affiché répond à ma commande de enabled= false, mais ce n'est pas le même menu qui est réellement affiché.
J'ai testé sur un autre ordi au travail qui a été installé à partir de la même version excel: même problème alors que sur mon ordi perso cela fonctionne comme sur le tien.
Autrement, je n'ai pas avancé. Pour l'instant je désactive "Ply" entièrement.
Bonne soirée.

[patricktoulon]

bonsoir
bon je n'est pas été suffisamment clair la dernière fois

si tu fait command bars("ply").showpopup c'est le ply original que tu aura en d'autre terme toute les modifs que tu aurais pu éventuellement faire avant sont annulées car cette barre est une barre buildin(fait partie de l'application)

si tu fait une modif
et que tu clique droite sur les onglets ton menu s'affichera modifié

seules les command bars perso apparaissent comme elles ont été faites par un showpopup

heu!.... est ce que c'est plus clair la

[Rinat]

Bonjour Patrick,
Pour info, je n'ai pas eu de notification de ton message. Je viens donc de ne prendre connaissance qu'aujourd'hui.
Pour ShowPopup, je comprends. Il n'a donc en effet pas d'intérêt dans mon cas pour comprendre mon problème.
Je n'ai pas progressé depuis.