Bonjour à tous,
Je déclenche un code en utilisant un double-clic et je voudrais l'enrichir en offrant la possibilité de combiner avec une touche de commandes.
Par ex : si double-click + Shift gauche pressé = résultat 1 ; si Shift droit pressé = résultat 2, etc.
Je n'ai pas beaucoup d'autres possibilités, CTRL bloque le double-click... Utiliser Shift et Alt serait très bien mais je n'arrive pas à trouver d'exemples simples sur le net.
Mon code actuel :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Application.Intersect(Target, Application.Range("Niv1Crit1Val")) Is Nothing Then
CreaBddNiv1
end if
End Sub
Merci d'avance.
Je déclenche un code en utilisant un double-clic et je voudrais l'enrichir en offrant la possibilité de combiner avec une touche de commandes.
Par ex : si double-click + Shift gauche pressé = résultat 1 ; si Shift droit pressé = résultat 2, etc.
Je n'ai pas beaucoup d'autres possibilités, CTRL bloque le double-click... Utiliser Shift et Alt serait très bien mais je n'arrive pas à trouver d'exemples simples sur le net.
Mon code actuel :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Application.Intersect(Target, Application.Range("Niv1Crit1Val")) Is Nothing Then
CreaBddNiv1
end if
End Sub
Merci d'avance.