Function NbreCellulesCouleur(tableau As Range, equi As Range)
Couleur = equi.Interior.Color
For Each c In tableau
If c.Interior.Color = Couleur Then NbreCellulesCouleur = NbreCellulesCouleur + 1
Next c
End Function
Function PlageCouleur3(tableau As Range)
' rouge = 255, vert = 5287936, jaune = 65535, bleu = 15773696, violet = 10498160
For Each c In tableau
If c.Interior.Color = 255 Then rouge = True
If c.Interior.Color = 5287936 Then vert = True
If c.Interior.Color = 65535 Then jaune = True
If c.Interior.Color = 15773696 Then bleu = True
If c.Interior.Color = 10498160 Then violet = True
Next c
If rouge = True And vert = True And jaune = True Then PlageCouleur3 = 1
End Function
Function PlageCouleur4(tableau As Range)
' rouge = 255, vert = 5287936, jaune = 65535, bleu = 15773696, violet = 10498160
For Each c In tableau
If c.Interior.Color = 255 Then rouge = True
If c.Interior.Color = 5287936 Then vert = True
If c.Interior.Color = 65535 Then jaune = True
If c.Interior.Color = 15773696 Then bleu = True
If c.Interior.Color = 10498160 Then violet = True
Next c
If rouge = True And vert = True And jaune = True And bleu = True Then PlageCouleur4 = 1
End Function
Function PlageCouleur5(tableau As Range)
' rouge = 255, vert = 5287936, jaune = 65535, bleu = 15773696, violet = 10498160
For Each c In tableau
If c.Interior.Color = 255 Then rouge = True
If c.Interior.Color = 5287936 Then vert = True
If c.Interior.Color = 65535 Then jaune = True
If c.Interior.Color = 15773696 Then bleu = True
If c.Interior.Color = 10498160 Then violet = True
Next c
If rouge = True And vert = True And jaune = True _
And bleu = True And violet = True Then PlageCouleur5 = 1
End Function