couleur cellule fonction ligne active

[vincent203]

Bonjour à tous,

Je voudrais modifier la couleur des cellules actives en fonction de la ligne active mais je n'arrive pas a récupérer la valeur retournée par la ligne active.

Voilà où j'en suis:

Sub couleurs()

Dim DUDULE As range

DUDULE= ????????Rows.Value?????????

toto = nom_employe(Sheets(1).Columns(DUDULE).Rows(15))


End Sub

Function nom_employe(emp)

Select Case emp

Case Is = 1
Selection.Interior.ColorIndex = 6

Case Is = 2
Selection.Interior.ColorIndex = 4

Case Is = 3
Selection.Interior.ColorIndex = 8

Case Else
Selection.Interior.ColorIndex = 26

End Select


End Function

 

[STéphane]

bonjour


msgbox activecell.row
msgbox activecell.column


attention la cellule active sur une selection multiple ou étendue n'est pas forcément la première et "plus ahute" cellule.

des exemples qui t'aideront ici :
<http://www.polykromy.com>
<http://xlbysteph.free.fr/aideinformatique/actionformat.htm>


bye
Stéphane