Colorer les lignes en fonction de ce qui est écrit

Bonjour à tous,

J'ai un tableau d'une centaine de ligne et la dernière colonne de mon tableau correspond ç un code couleur (Orange, Jaune, ...)

J'aimerais pouvoir ecrire un code qui, par exemple colorerais ma ligne en Orange lorsque "Orange" est marqué dans la dernière colonne

J'ai tenté :

If Rows("T7:T122") = "Orange" Then

Rows("T7:T122").Interior.Color = 45

End If

T7:T122 correspondant à la dernière colonne ou est renseignée la couleur

Merci par avance de votre aide !

Clément

Bonjour

A tester

Sub Test()
Dim J As Long

  For J = 7 To 122
    Select Case UCase(Range("T" & J))
      Case "ORANGE"
        Range("A" & J & ":T" & J).Interior.Color = 49407
      Case "JAUNE"
        Range("A" & J & ":T" & J).Interior.Color = 65535
    End Select
  Next J
End Sub

Cela fonctionne !

Merci beaucoup!

Par contre, comment trouver les codes couleurs ? Y a t il un glossaire avec "Orange = 49407" ?

Merci

Bonjour

Pas à ma connaissance

Il faut que tu enregistres une macro en changeant la couleur d'une cellule et qu'ensuite tu récupères les couleurs

Ok, je vais regarder

Merci de ton aide !