Comparaison de tableau et points communs

Sub mise_en_couleurs()

' Programme créer par ODESTA

' Parametre du tableau
colonne_deb = 2
ligne_deb = 3
nb_col = 4
nb_ligne = 10
nb_feuille = 3
Dim tableau(1 To 4, 1 To 10, 0 To 3)
' remplir le tableau suivant les nombres de colonnes, lignes et nombre de feuilles


'remplir un tableau avec les données, par feuille. Il servira à colorer les feuilles
For Each feuille_obs In Sheets
    For i = 1 To nb_col
        For j = 1 To nb_ligne
        toto = feuille_obs.Index
            tableau(i, j, feuille_obs.Index) = feuille_obs.Cells(ligne_deb + j - 1, colonne_deb + i - 1).Value
        Next
    Next

Next


'créer les sommes du tableau en tableau(x,x,0)
For i = 1 To nb_col
    For j = 1 To nb_ligne
        For k = 1 To nb_feuille
            tableau(i, j, 0) = tableau(i, j, 0) + tableau(i, j, k)
        Next
    Next
Next

'colorisation par feuille
'si deux fois : .Interior.ColorIndex = 6 JAUNE
'si trois fois : .Interior.ColorIndex = 44 ORANGE
For Each feuille_obs In Sheets
    For i = 1 To nb_col
        For j = 1 To nb_ligne
        'colorier en fonction du resultat et du contenu de la cellule
            If tableau(i, j, feuille_obs.Index) = 1 And tableau(i, j, 0) = 2 Then feuille_obs.Cells(ligne_deb + j - 1, colonne_deb + i - 1).Interior.ColorIndex = 6
            If tableau(i, j, feuille_obs.Index) = 1 And tableau(i, j, 0) = 3 Then feuille_obs.Cells(ligne_deb + j - 1, colonne_deb + i - 1).Interior.ColorIndex = 44
        
        Next
    Next

Next




End Sub