Discussion :

[gunthard]

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.

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai()
    Application.EnableEvents = True
End Sub

[Marc-L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[jijie]

marc !

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

[gunthard]

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... ^^ ( jijie)