Bonjour,
Avec un double click, ce code met un "X" si on est dans la plage B2:B10 ou D2:D10
Si on double clique dans une cellule de la plage qui contient un "X" il sera effacé
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("X", "")
If Not Application.Intersect(Target, Range("B2:B10, D2:D10")) Is Nothing Then
With Target
p = Application.Match(Target, temp, 0)
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
p = 0
End If
Target = temp(p)
Cancel = True
End With
End If
End Sub
Amicalement
Nad