programmer la souris

[tany]

Bonjour à tous,

J'aimerai dans les celluels F6 à F15 déposer un "oui" en cliquant sur la cellule.
J'ai écrit cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 And Target.Row < 16 And Target.Row > 5 Then
If Target.Value = "" Then Target.Value = "oui" Else Target.Value = ""
End If
End Sub

ça fonctionne mais si avec le clavier je passe dessus ça le fait aussi
et là ce n'est pas ce que j'aurais voulu.
Il faudrait que ce soit juste avec la souris, alors comment programmer ?
merci et bon week end.

 

[skoobi]

Re : programmer la souris

Bonjour,

je te propose l'évenement "double clique" à la place si ça te convient:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
bla bla bla
End Sub

 

[tany]

Re : programmer la souris

Bonjour,

Les deux solutions fonctionnent impec, merci bien
grâce à vous je progresse un peu...
bonne journée.