croix dans une cellule

elo6 · 14 Décembre 2005

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!

Code:

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é · 14 Décembre 2005

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 · 14 Décembre 2005

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!

croix dans une cellule

elo6

Guest

Hervé

XLDnaute Barbatruc

elo6

Guest

Discussions similaires