Usine à gaz
XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche
Mes petites élucubrations du dimanche (lol ça me détend )
Dans le fichier test joint, je bloque les double clic et clic droit.
Jusque là pas de souci :
J'ai une interrogation que je n'arrive pas à résoudre.
Souci d'affichage ou pour faire avancer le Schmilblick (1976)
Quand je fais un clic droit, après avoir validé le MsgBox, la fenêtre apparaît :
Très furtivement, c'est- vrai : mais je voudrais ne pas la voir du tout lol
Auriez-vous la solution ?
Avec mes remerciements,
Amicalement,
lionel,
Je vous souhaite un beau dimanche
Mes petites élucubrations du dimanche (lol ça me détend )
Dans le fichier test joint, je bloque les double clic et clic droit.
Jusque là pas de souci :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("a1:z10000")) Is Nothing Then
Application.ScreenUpdating = False
MsgBox ("C'est un seul clic !" & nbcel)
CreateObject("wscript.shell").SendKeys "{ESC}" 'Gérard
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("a1:z10000")) Is Nothing Then
Application.ScreenUpdating = False
MsgBox ("C'est un clic gauche !" & nbcel)
CreateObject("wscript.shell").SendKeys "{ESC}" 'Gérard
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
Souci d'affichage ou pour faire avancer le Schmilblick (1976)
Quand je fais un clic droit, après avoir validé le MsgBox, la fenêtre apparaît :
Très furtivement, c'est- vrai : mais je voudrais ne pas la voir du tout lol
Auriez-vous la solution ?
Avec mes remerciements,
Amicalement,
lionel,