bonjour
voici mon problème, toutes les semaines je reçois un fichier excel avec des pourcentages d'avancement sur chaque ligne.
Je cherche une formule qui permettrait de comparer chaque céllule d'une feuille précise du fichier excel de la semaine avec la céllule correspondante dans la même feuille du fichier de la semaine d'avant et dans le cas d'une différence de pourcentage modifier la couleur de fond de la céllule. Les fichiers sont parfaitement identiques. quelqu'un aurait une solution. merci d'avance
Bonjour ,
Il y a une multitude solution.
Voici mes éléments de réponses:
Je crée un programme sur un fichier excel indépendant avec
un userform et 2 "Textbox".
Dans le 1er , je me connecte par le chemin d'acces au premier fichier et dans le 2ème l'autre fichier à comparer.
Ce qui permet d'ouvrir les 2 fichiers par la methode:
Workbooks.Open ()
Je fais une comparaison des cellules souhaitées:
Workbooks("fichier1").Worksheets("feuil1").Cells(i,j).Value=
Workbooks("fichier2").Worksheets("feuil1").Cells(i,j).Value
Je colorie les cellules avec: Interior.ColorIndex
Puis je ferme les 2 fichiers :
Workbooks("fichier1"). Close SaveChanges: =False
Workbooks("fichier2").Close SaveChanges:=False
Merci mais j'ai la solution suivante que j'aimerai modifier de façon à créer un 3ème fichier contenant seulement les lignes modifiés, merci d'avance
Sub Macro1()
'
' Macro1 Macro
Dim i As Long
Columns("p").Select
Selection.NumberFormat = "0%"
Selection.Font.Bold = True
For i = 1 To ActiveSheet.Range("h65536").End(xlUp).Row
If ActiveSheet.Range("h" & i).Value <> Workbooks("2008SEMAINE36.xls").Worksheets("feuille2").Range("h" & i).Value Then
ActiveSheet.Range("p" & i).Value = (ActiveSheet.Range("h" & i).Value - Workbooks("2008SEMAINE36.xls").Worksheets("feuille2").Range("h" & i).Value) '* 100
ActiveSheet.Range("b" & i & ":p" & i).Interior.ColorIndex = 46
End If
Next i
End Sub
