Microsoft 365 Empêcher l'affichage de la boite de dialogue copier/coller

Usine à gaz · 13 Mars 2023

Bonjour à toutes et à tous

J'ai un petit souci sur un code 'petit souci" mais souci qui m'énerve Grrr !!! lol
le but de mon code en feuil1

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("J6:J10000")) Is Nothing Then
'    If Cells(ActiveCell.Row, 11) <> "" Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
'        Pass_admin.Show 'neutralisé pour le test
        [a1].Select
        Application.EnableEvents = True
        CreateObject("wscript.shell").SendKeys "{Escape}"
        Application.ScreenUpdating = True
        Exit Sub
'    End If
End If
End Sub

est, outre l'affichage d'un UF "Pass_admin.Show neutralisé pour le test",
d'empêcher l'affichage de la boite de dialogue :

J'ai réussi à la refermer avec : CreateObject("wscript.shell").SendKeys "{Escape}"
Mais, Malgré Application.ScreenUpdating = false je la vois encore,
Furtivement c'est vrai, mais je la vois Et ça m'énerve lol

Est-il possible de ne pas la voir du tout ?
En cas, je joins le petit fichier test...

Merci à toutes et à tous,

job75 · 13 Mars 2023

Bonjour Lionel,

Ceci devrait convenir :

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("J6:J10000")) Is Nothing Then Cancel = True
End Sub

A+

fanch55 · 13 Mars 2023

Salut Lionel,
Et le cancel inhérent, tu l'as oublié ?

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("J6:J19")) Is Nothing Then
        Cancel = True
    End If
End Sub

Usine à gaz · 13 Mars 2023

job75 à dit:
Bonjour Lionel,

Ceci devrait convenir :

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("J6:J10000")) Is Nothing Then Cancel = True End Sub

A+

Bonjour Gérard,

C'est bien ça
Je t'en remercie

Usine à gaz · 13 Mars 2023

fanch55 à dit:
Salut Lionel,
Et le cancel inhérent, tu l'as oublié ?

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("J6:J19")) Is Nothing Then Cancel = True End If End Sub

Bonjour fanch55

OUI, je ne pensais plus au "cancel" lol
Je te remercie, c'est également tout bon,

fanch55 · 13 Mars 2023

Salut @job75 , je viens juste d'avoir le refresh de ma page, tu m'as grillé ...

patricktoulon · 13 Mars 2023

Microsoft 365 Empêcher l'affichage de la boite de dialogue copier/coller

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires