Salut,
En supposant que la cellule à tester soit B7, tu pourrais essayer ceci :
Code :
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Address = "$B$7" Then
- If Target.Value = 1 Then
- Target.Value = 0
- Else
- Target.Value = 1
- End If
- End If
- End Sub
|
Note que l'évènement SelectionChange réagit bien au Click mais aussi à l'activation de la cellule par le clavier.
---------------
A+