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