Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Réactiver le clic droit

Réactiver le clic droit

2 réponses
Avatar
Sunburn
Bonjour,
comment puis-je activer le clic droit ?
pour désactiver :
----
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
-----
Merci
YANN
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Sunburn,

Sub désactiveCommandBar()
Application.CommandBars("Cell").Enabled = False
End Sub

Sub activeCommandBar()
Application.CommandBars("Cell").Enabled = True
End Sub

isabelle

Sunburn a écrit :
Bonjour,
comment puis-je activer le clic droit ?
pour désactiver :
----
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
-----
Merci
YANN


Avatar
Sunburn
Merci Isabelle, ça fonctionne très bien.
Yann

"isabelle" a écrit :

bonjour Sunburn,

Sub désactiveCommandBar()
Application.CommandBars("Cell").Enabled = False
End Sub

Sub activeCommandBar()
Application.CommandBars("Cell").Enabled = True
End Sub

isabelle

Sunburn a écrit :
> Bonjour,
> comment puis-je activer le clic droit ?
> pour désactiver :
> ----
> Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
> ByVal Target As Range, Cancel As Boolean)
> Cancel = True
> End Sub
> -----
> Merci
> YANN