couleur cellule select

[nat]

bonsoir

je cherche par vba
quand je selectionne la cellule E6 D6 ce met en couleur
si E6 nest pas cellectionné D6 PAS de couleur

merci pour votre aide

 

[Eric C]

Bonjour le forum
Bonjour nat

Essaies ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6')) Is Nothing Then
Range('D6').Interior.ColorIndex = 4
End If
End Sub

Bonne fin de ouikand à toutes & à tous

 

[justine]

bonsoir le forum, nat

code a mettre dans la feuille concernee:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = '$E$6' Then
Range('d6').Interior.ColorIndex = 3
Else
Range('d6').Interior.ColorIndex = none
End If

End Sub

 

[justine]

bonsoir eric c
desolee mais j'ai pas vu ton post, j'ecrivais le mien.
par contre, je ne connaissais pas ton code, j'en prends note.
justine

 

[justine]

bonsoir eric c
desolee mais j'ai pas vu ton post, j'ecrivais le mien.
par contre, je ne connaissais pas ton code, j'en prends note.
justine

 

[Eric C]

Re le forum
re bonjoir nat, bonjoir Justine

Mais je te prie et te souhaite une bonne soirée. Grosses bises.

 

[nat]

merci pour votre réponse

encore merci
bis