capture de touche ctrl+ double clic

Salut,
J'ai actuellement une macro qui me modifie une cellule si je double clic dessus en fonction de sa valeur actuelle. Pour ça j'utilise la procédure 'beforedoubleclic'. Maintenant j'aimerai sécuriser cette action en contrôlant qu'une touche soit appuyée lors du double clic, par exemple 'ctrl'. En cherchant sur le net j'ai trouvé des solutions pour capturer une touche, mais je n'arrive pas à les associer au double clic (soit c'est aussi des procédures, soit ça s'applique à des forms).

Merci par avance de votre aide/idée/piste/encouragement.

Bonjour,

Avec "CTRL", je ne sais pas faire. C'est cependant possible avec "ESC"; dans le module ThisWorkbook :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "{ESC}" End Sub   Private Sub Workbook_Open() Application.OnKey "{ESC}", "essai" Application.EnableEvents = False End Sub

---

Dans le module de la feuille :

Code:

---

1 2 3 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "toto" 'à remplacer par ton code Application.EnableEvents = False End Sub

---

Dans un module standard :

Code:

---

1 2 3

Sub essai() Application.EnableEvents = True End Sub

---

Bonjour, bonjour,

les touches Ctrl, Alt, Shift et Tab étant déjà interceptées par Excel, le double clic combiné
avec l'une d'entre elles n'est pas détecté par l'évènement spécifique au double clic !

Code:

---

1 2 3 4 5 6 7 8 9

Private Declare Function GetAsyncKeyState% Lib "User32" (ByVal vKey%)   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True   If GetAsyncKeyState(27) < 0 Then ' code ici quand ECHAP + double clic détecté End If End Sub

---

Au lieu de combiner avec la touche ECHAP, possible de l'effectuer avec la touche de verrouillage majuscule
en remplaçant dans la ligne n°6 le nombre 27 par 20 …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

:bravo: marc !

En complément : http://support.microsoft.com/kb/465098/fr

Merci à vous trois.
J'ai testé la solution de Marc-L et ça marche très bien. Il ne me reste plus qu'à comprendre pourquoi... ^^ (:zoubi: jijie)