croix dans une cellule

[elo6]

Bonjour le forum!
Après avoir été aidée pour avoir une croix dans une cellule quand on clique dessus et qu'elle s'efface si on clique dans une autre cellule de la même ligne, j'aimerai faire la même chose mais sur une même colonne. Je m'explique, j'aimerai que la croix disparaisse si on clique dans une autre cellule appartenant à la même colonne.
J'ai essayé de modifier le code en remplaçant Row par Column mais sans résultat...
Merci pour l'aide que vous m'apporterez!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 2 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then
        Range(Cells(Target.Column, 4), Cells(Target.Column, 8)) = ''
        Target = IIf(Target.Text = 'X', '', 'X')
End If
End Sub

 

[Hervé]

Bonjour elo

en pièce jointe une adaptation :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Interior.ColorIndex = 2 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then

Range(Cells(4, Target.Column), Cells(8, Target.Column)) = ''

Target = IIf(Target.Text = 'X', '', 'X')

End If

End Sub


pour t'aider : cells(4,target.column)=>cellule(ligne,colonne)

ainsi : cellule(ligne=4, colonne=la colonne de la cellule sélectionner).

salut

 

[elo6]

Mille fois merci du fond du coeur!
Si seulement je pouvais être aussi douée que vous (la passion je pense l'avoir déjà)...
A plus sur le forum!