Comparaison de feuil Excel

[-= Sen6R =-]

Salut à tous,

je voudrais savoir s'il est possible de comparer 2 feuil (ou fichiers) excel et qu'il m'en ressorte les modifications dans une nouvelle feuil (ou un autre fichier excel).

Il y a tjrs un nombre de 28 colonnes, par contre le nombres de ligne peut varier.

Le fichier excel sert à tenir à jour l'inventaire de nos PC dans différent lieu. Lorsque l'on envoi ce fichier à un responsable d'un batiment, il le contrôle et apporte ces modifications. Ensuite je dois tout comparer et faire les modifications dans la base de donnée (le fichier excel d'origine est générer depuis celle-ci). Ca me simplifierais considérablement le travail, donc si quelqu'un pourrait "m'aiguiller" sur la façon de faire cela, et si cela est réalisable avec très peu de connaissance en prog. Car je pense qu'il faut dévelloper une macro en VB non?

Merci d'avance pour votre aide.

 

[andré]

Salut -=...-=,

Petite solution simple : mettre la deuxième feuille en format conditionnel :
sélectionne la deuxième feuille, puis "la formule est" : =Feuil1!A1<>Feuil2!A1 / Format (ce que tu veux).

Ândré.

 

[Michel_M]

bonjour, sen6R, André et le forum,

pour passer avec des mises en formes conditionnelles, il faut nommer ta zone de travail d'une des feuilles( par ex: source);

Ensuite, en sélectionnant la zone de travail dans l'autre feuille tu peux y écrire la mfc

la formule est:
=INDEX(source;LIGNE();COLONNE())<>A1 et tu choisis ton format.

Solution valable si ces zones de travail ne sont pas trop étendues (bonjour les kilooctets).

sinon, il faut passer par une macro.

A+
Michel (au boulot)

 

[Michel_M]

Re,


Ci dessous la version par macro

Sub reperer()

Dim lig, col As Long
Dim cell

Application.ScreenUpdating = False

'feuille ou sont portées les modifs
Sheets(1).Activate
'zone de travail
lig = ActiveCell.SpecialCells(xlLastCell).Row
col = ActiveCell.SpecialCells(xlLastCell).Column
'feuille où apparaissent les modifs
Sheets(2).Activate

For Each cell In Range(Cells(1, 1), Cells(lig, col))
' adresse cellule testée
lig = cell.Row
col = cell.Column
'comparaison
If cell.Value <> Sheets(1).Cells(lig, col).Value Then
cell.Interior.ColorIndex = 19
End If
Next

End Sub


A+
Michel (at home)

 

[-= Sen6R =-]

eh bein merci a tous. En plus les réponses sont rapides! que demander de plus. J'vais tester la macro, on verra ce que j'arrive à faire..

Bonne fin de journée...

 

[Dugenou]

sen6R

J'ai eu ce probleme aujourd'hui et j'ai rouvé une solution rapide et simplette mais elle n'est pas dans Excel !!

Les tableaux peuvent avoir des lignes ajoutées et/ou supprimées et là ça devient limite pour comparer avec un =.

J'ai copié chaque tableau dans une feuille Word (pardonnez moi Seigneur !)
J'ai enregistré séparément les deux document obtenus puis j'ai ai rouvert 1 et j'ai cliqué sur Outils/suivi des modifications/comparer deux documents. J'ai alors ouvert le deuxième et, sous mes yeux ébahis, les ajouts sont en rouge et les retraits en rouge barré (attention à l'ordre dans lequel on ouvre les documents), pour une utilisation en frappe dans excel, c'est bien agréable on voit bien toutes les modifs.

Pardon encore aux excellents contributeurs