couleur cellule select

Eric C

XLDnaute Barbatruc

• 28 Janvier 2006

• #2

Bonjour le forum
Bonjour nat

Essaies ceci :

Code:

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

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 28 Janvier 2006

• #3

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

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 28 Janvier 2006

• #4

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

 

Vote positif 0 Vote négatif

justine

XLDnaute Occasionnel

• 28 Janvier 2006

• #5

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 28 Janvier 2006

• #6

Re le forum
re bonjoir nat, bonjoir Justine

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

 

Vote positif 0 Vote négatif

N

nat

Guest

• 28 Janvier 2006

• #7

merci pour votre réponse

encore merci
bis

 

Vote positif 0 Vote négatif