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
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
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
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
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
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
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
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