If Target.Column = 3 And Target.Row >= 5 Then
Dim coul As Long
With ActiveSheet
derlig = .Range("C" & Rows.Count).End(xlUp).Row
Select Case Target.Text
Case "0Y4E": coul = 65535
Case "0D4A": coul = 255
' etc ....
Case Else: coul = RGB(255, 255, 255)
End Select
.Range("C" & Target.Row & ":" & "J" & Target.Row).Interior.Color = coul
End With
End If
Sub color() Dim tcodes() As String, tcouleurs() As String codes = "_0Y4E_0D4A_0M4A_0L4E_0K4I_0B4S_0ED4A_0E4EA_0L4Y_0NK4M_0F4B1" couleurs = "_65535_255_5296274_225214_15478_23155_65435_65635_55635_37535_24535" tcodes = Split(codes, "_") tcouleurs = Split(couleurs, "_") zone = "CX:JX" 'Zone générique à colorier debut = ??? fin = ??? For i = debut To fin code = Cells(i, ???) k = 0 While Trim(code) <> tcodes(k) k = k + 1 Wend couleur = tcouleurs(k) zonei = Replace(zone, "X", Format(i)) Range(zonei).Interior.color = couleur Next i End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
24 juin 2016 à 23:10
c'est un canevas de programme à remodeler en fonction de la feuille de travail !
Bien à vous et bon week-end !
25 juin 2016 à 12:39
Je vous sais gré pour vos conseils et assistance ! J'ai pris en compte toutes vos instructions et mon problème est complètement résolut
Bien à vous, TSAF16
25 juin 2016 à 20:55
hbouia