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

michigan · 14 Février 2014

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) · 14 Février 2014

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

Bonsoir,
Une solution parmi d'autres.
Bruno

Code:

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

michigan · 14 Février 2014

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

Impéccable...
Merci

michigan · 11 Mars 2014

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) · 17 Mars 2014

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

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

michigan

XLDnaute Nouveau

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

michigan

XLDnaute Nouveau

michigan

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Discussions similaires