Lu76Fer
XLDnaute Occasionnel
Bonjour vous tous !
Je souhaite pouvoir distinguer si un évènement Worksheet_SelectionChange est déclenché plutôt par les touches fléchées que par un Click de souris pour amener un élément supplémentaire à mon petit Tuto pour développer un jeu : XLS : Evènements souris 'click' sur la grille & astuces.
Voici un petit bout de code simple pour démarrer :
Merci d'avance 😉
Je souhaite pouvoir distinguer si un évènement Worksheet_SelectionChange est déclenché plutôt par les touches fléchées que par un Click de souris pour amener un élément supplémentaire à mon petit Tuto pour développer un jeu : XLS : Evènements souris 'click' sur la grille & astuces.
Voici un petit bout de code simple pour démarrer :
VB:
Dim RightClic As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now, "S_Test1.MouseClic"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
RightClic = True
Cancel = True
End Sub
'Pseudo grid event : 'clic' on mouse
Sub MouseClic()
If RightClic Then
RightAction
RightClic = False
Else
LeftAction
End If
End Sub
Sub RightAction()
ActiveCell = "Droit"
End Sub
Sub LeftAction()
ActiveCell = "Gauche"
End Sub
Merci d'avance 😉