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.