Menu contextuel

Bonsoir,

Application.CommandBars("Cell").Reset

JB


On 14 jan, 18:52, "Infogroup" <Infogrou...@orange.fr> wrote:

Bonsoir à tout le groupe,

je suis avec Excel 2003 et je voudrais alléger le menu contextuel qui
apparait lors d'un clic droit sur une cellule.

il s'agit en fait de supprimer quelques entrées dont je ne me sert jama is.

Je pense qu'il faut intervenir dans la base de registre, mais je ne sais pas
à quel niveau.

Merci par avance de bien vouloir m'indiquer la manip.

Cordialement

Infogroup

Choisis les commandes de la barre de commande contextuelle de la cellule que tu veux
supprimer
'------------------------
Sub test()
Dim x As Integer, A As Integer
x = Application.CommandBars("Cell").Controls.Count
For a = x To 1 Step -1
With Application.CommandBars("Cell").Controls(a)
If MsgBox("L'item " & a & " du menu contextuel " & _
"de la cellule est : """ & .Caption & """." _
& vbCrLf & vbCrLf & "Désirez-vous l'enlever de la " & _
"barre de commande.", vbYesNo + vbCritical, "Attention") = vbYes Then
.Delete
End If
End With
Next
If Application.CommandBars("Cell").Controls.Count = 0 Then
Application.CommandBars("Cell").Enabled = False
End If

'----------------------------
End Sub
Sub Remettre_a_Niveau()
Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Cell").Reset
End Sub
'----------------------------

"Infogroup" <Infogroup70@orange.fr> a écrit dans le message de groupe de discussion :
#hSdvDndJHA.556@TK2MSFTNGP06.phx.gbl...
Bonsoir à tout le groupe,

je suis avec Excel 2003 et je voudrais alléger le menu contextuel qui
apparait lors d'un clic droit sur une cellule.

il s'agit en fait de supprimer quelques entrées dont je ne me sert jamais.

Je pense qu'il faut intervenir dans la base de registre, mais je ne sais pas
à quel niveau.

Merci par avance de bien vouloir m'indiquer la manip.

Cordialement

Infogroup