Comparer Deux fichier Excel
Bonjour
Y'a il une âme charitable qui pourrait m'aider ?
J'aimerai comparer deux fichiers Excel. Il s'agit d'un inventaire sur deux années. Le but est de voir les mouvements de consommable d'une année a l'autre.
En gros sur l'année X le produit Y en plus ou moins et de combien par rapport Z (l'année suivante).
La comparaison se fait uniquement sur les 3 premières colonnes
en VBA via un bouton sur une troisième feuille serai l'ideale
Merci d'avance.
En fouinant un peu j'ai réussi a adapter cette macro
Sub TEST()
Dim Lig1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim Lig2 As Long, FR1 As Worksheet, FR2 As Worksheet
Set FR1 = Sheets("Feuil1")
Set FR2 = Sheets("Feuil2")
Derlig1 = FR1.Range("B65535").End(xlUp).Row 'selection de toute la feuille excel sur classeur 1
Derlig2 = FR2.Range("B65535").End(xlUp).Row 'selection de toute la feuille excel sur classeur 2
For Lig1 = 2 To Derlig1
Cp = FR1.Cells(Lig1, "B") 'comparaison de la ligne 1 feuille 1
For Lig2 = 2 To Derlig2 'avec la feuille 2
If Cp = FR2.Cells(Lig2, "B") Then
If FR1.Cells(Lig1, "C") > FR2.Cells(Lig2, "C") Then
FR2.Cells(Lig2, "C").Interior.ColorIndex = 3 'couleur rouge indiquant cellule B feuil 1 & 2 différent
ElseIf FR1.Cells(Lig1, "C") < FR2.Cells(Lig2, "C") Then
FR2.Cells(Lig2, "C").Interior.ColorIndex = 4 'Couleur verte indiquant que les cellules B sont identiques est différence cellule C
Else
FR2.Cells(Lig2, "C").Interior.ColorIndex = xlNone 'si cellules identique couleur blanche
End If
Exit For
End If
Next Lig2
Next Lig1
End Sub
j'aimerai savoir si y'a possibilité de mettre la différence de quantité (en positif ou en négagtif) dans une autre colonne ?
et comment ?
Merci.
Bonjour et bienvenue sur le forum
Un essai à tester. Te convient-il ?
Bye !