ligne2=0
Do While f2.cells(j,1).value<> Nothing
ligne2=ligne2+1
'je calcul le nombre de ligne du fichier
j=j+1
Loop
For i=2 To ligne2
If f2.cells(i,1).value=f3.cells(i,1).value Then
For j=2 To 5
comparaison=f2.cells(i,j).value-f3.cells(i,j).value
'je fait la différence entre les deux valeurs
If comparaison>0 Then
'si la comparaison entre deux cellule est négative/positive je met une couleur
f3.Cells(i,j).Interior.Color = RGB(255, 255, 153)
Else
f3.Cells(i,j).Interior.Color = RGB(204, 255, 187)
End If
Next
End If
Next
Partager