V
vincent203
Guest
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
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