couleur cellule fonction ligne active

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

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