Création de menu contextuel perso

Bonjour EliotNaiss,

Essaie ceci dans le module feuille où l'action doit se dérouler ...

'----------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim Rg As Range
Set Rg = Intersect(Target, Range("A1:C25"))
If Not Rg Is Nothing Then
Cancel = True
'Appel Barre personnalisée
Else
'barre standard
End If

End Sub
'----------------------


Salutations!



"EliotNaiss" <eliotn@laposteraie.net> a écrit dans le message de news:e1up903OEHA.1348@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et tous.
Sous XL2000, je désire que l'utilisateur d'un classeur, sur une feuille ne
puisse plus utiliser le clic droit, ormis sur une zone définie et avec un
menu contextuel personnalisé. Ki peut m'aider dans ma démarche ?
Grand merci par avance.

Merci cela marche bien. Mais comment savoir les noms des
autres barres de menus contextuels pour les hinniber ?
Salutations. Eliot

-----Message d'origine-----
Bonjour EliotNaiss,

Essaie ceci dans le module feuille où l'action doit se
dérouler ...

'----------------------
Private Sub Worksheet_BeforeRightClick(ByVal Target As
Range, Cancel As Boolean)

Dim Rg As Range
Set Rg = Intersect(Target, Range("A1:C25"))
If Not Rg Is Nothing Then
Cancel = True
'Appel Barre personnalisée
Else
'barre standard
End If

End Sub
'----------------------


Salutations!



"EliotNaiss" <eliotn@laposteraie.net> a écrit dans le
message de news:e1up903OEHA.1348@TK2MSFTNGP12.phx.gbl...

Bonjour à toutes et tous.
Sous XL2000, je désire que l'utilisateur d'un classeur,
sur une feuille ne

puisse plus utiliser le clic droit, ormis sur une zone
définie et avec un

menu contextuel personnalisé. Ki peut m'aider dans ma
démarche ?

Grand merci par avance.



.