|
|
|
|
Salut,
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
If Intersect(Range("cocher"), target) Is Nothing Then Exit Sub
If IsEmpty(target) Then
target = "x"
cancel = True
Else
If target = "x" Then
target = ""
cancel = True
End If
End If
End Sub
Voici un exemple que je t'ai fait http://www.cijoint.fr/cjlink.php?file=cj200911/cij9oLCLY0.xls À noter que la plage A2:A10 porte le nom de "cocher"
|