Mettre ou retirer une croix par double clique sur une cellule fusionnée

Bonjour,

Je souhaiterai mettre des croix dans mon tableau excel sur simple double clique avec possibilité de retirer cette croix par simple double clique également.

J'ai trouvé cette formule :

Cependant, cette macro fonctionne uniquement pour les cellules simples et non fusionnées (ce qui n'est pas mon cas) et on ne peut pas retirer la croix par double clique en retour.

Pourriez-vous m'aider svp ? Merci :)

Bonjour,

Si les cellules fusionées sont par exemple en colonne B et C

Un test

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("B:C")) Is Nothing Then
  If UCase(ActiveCell) = "X" Then ActiveCell = "" Else ActiveCell = "X"
  Cancel = True
  End If
End Sub

Ce sont les lignes qui sont fusionnées :

Je voudrai trouver une formule pour que lorsque je double clique sur les cases roses, une croix apparaît. Cependant, il n'y a pas toujours le même nb de ligne fusionnée...

Re,

Avec ma dernière macro en changeant les colonnes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("I:P")) Is Nothing Then
  If UCase(ActiveCell) = "X" Then ActiveCell = "" Else ActiveCell = "X"
  Cancel = True
  End If
End Sub