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