Re : cocher une cellule = décocher une autre ?
Bonjour
Pourquoi ne pas utiliser un vrai formulaire et des boutons d'options ?
Sinon
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D2:E8")) Is Nothing Then
Cancel = True
If Target.Column = 4 Then y = 1 Else y = -1
Target.Value = IIf(Target.Value = "", "x", "")
Target.Offset(0, y).Value = IIf(Target.Value = "x", "", "x")
End If
End Sub