1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Sub MarqueCouleurs()
Dim NBH As Integer
Dim TH As Variant
Dim c As Range
' Mise en mémoire dans un tableau des valeurs à tester
' uniquement pour accélérer la boucle de recherche
' Attention c'est un tableau à deux dimensions (67,1)
TH = Range("U1:U67")
NBH = 67
' on explore toutes les cellules de la plage A6:S16
For Each c In Range("A6:S16")
' on se limite aux cellules non vides
If c.Value <> "" Then
'Recherche de la valeur dans le tableau TH
For i = 3 To NBH
If TH(i, 1) = c.Value Then
' on a trouvé la valeur de la cellule c
' on reporte la couleur de fond
c.Interior.ColorIndex = Cells(i, 21).Interior.ColorIndex
Exit For
End If
Next
End If
Next
End Sub |