Comparer des cellules

Bonjour,

J'ai un tout petit code à faire mais je crois que ma syntaxe est mauvaise.

Je m'explque, j'ai 2 tableaux, l'un est colorié et l'autre non.

Je dois colorier l'autre en fonction des cases que j'ai dans le premier

Dans une ligne, Du moment que j'ai le même contenue dans la cellule C, H et L dans une ligne de l'autre tableau, il faut que la ligne qui est dans l'autre tableau prenne la même couleur.

Je met en piece joint le fichier mais j'ai enlevé beaucoup, j'ai laissé le plus simple pour que vous compreniez, et j'insere le bout de code que j'ai la. Si vous pouvez m'aider ca sera très gentil. Merci

Function coloriage()

Dim cpt As Double

Dim cpt1 As Double

cpt = 1 // Debut du premier tableau

cpt1 = 148 // Debut du second tableau

While cpt < 146 // Fin du premier tableau

While cpt1 > 2491 // Fin du second tableau

If Cells(c, cpt).Value = Cells(c, cpt1).Value Then // Comparaison des cellules

If Cells(H, cpt).Value = Cells(H, cpt1).Value Then

If Cells(L, cpt).Value = Cells(L, cpt1).Value Then

Rows(cpt1).Interior.ColorIndex = Rows(cpt).Interior.ColorIndex

End If

End If

End If

cpt=cpt+1

cpt1 = cpt1 + 1

Wend

Wend

End Function

Bonjour

Tes explications sont ambigües. Tu devrais donner 2 ou 3 exemples de ce que tu attends en expliquant pouquoi, dans chaque cas tu as colorié ou pas...

Bye !