retirer une croix d'une colonne quand j'en insère dans une autre

[michigan]

En faite sur mon tableau je souhaite insérer une croix en double click (colonne C,D,E) mais si j'en insère une en A puis je double click en D je souhaite que la croix en C s'efface automatiquement et pareil en E. En faite je souhaite faire ceci sur les 3 colonnes en question.

Je l'avais déjà effectué auparavant mais je n'arrive plus à le refaire.

Actuellement j'ai:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "x" Then
Target.Value = ""
Cancel = True
Else
Target.Value = "x"
Cancel = True
End If
End Sub

 

[youky(BJ)]

Re : retirer une croix d'une colonne quand j'en insère dans une autre

Bonsoir,
Une solution parmi d'autres.
Bruno

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("C" & Target.Row & ":E" & Target.Row).ClearContents
Target = "x"
End Sub

 

[michigan]

Re : retirer une croix d'une colonne quand j'en insère dans une autre

Impéccable...
Merci

 

[michigan]

Re : retirer une croix d'une colonne quand j'en insère dans une autre

Je souhaiterais que le double click fonctionne uniquement sur mes 3 colonnes en questions et non sur toute la feuille..
Merci

 

[youky(BJ)]

Re : retirer une croix d'une colonne quand j'en insère dans une autre

Bonjour et désolé du retard,
ajoute la 1ere ligne et le End If

If target.column>1 and target.column<6 then
Range("C" & Target.Row & ":E" & Target.Row).ClearContents
Target = "x"
End if

Bruno