comparaison, et mise en couleur des diff

bignou77 · 18 Avril 2008

Bonjour a tous,
Pour mon travail j'ai fait un classeur qui contient des references, et autre info (un objet par ligne, avec numero designation, qantite, etc...)
la base de donnée evolue dans le temps, mais comme je ne peu que exporter en PDF, je suis obliger de le faire convertir en excel, d'ou la mise en page qui n'est pas bonne (cela c'est pas grave)
ce que je voudrais c'est en clair, j'ai 2 fichier, un de base et un nouveau, c'est que dans le nouveau fichier j'ai les lignes ou les references ne sont pas dans le fichier de base soit colorer (en rouge en jaune je m'en fiche), les references sont en colonne A dans les 2 fichiers.

J'espere avoir etait suffisamment clair.

Merci d'avance a tous.
bignou77

PS : si il faut que je copie l'onglet de nouveau dans le classeur base pas de probleme.

BOISGONTIER · 18 Avril 2008

Re : comparaison, et mise en couleur des diff

Bonsoir,

-Ouvrir les 2 fichiers
-Se placer dans Nouveau.xls
-Insertion/Nom/Définir

base =[base.xls]Feuil1!$A$1:$A$500

-Sélectionner A1:A500
-Format/MFC/La formule est:
=ESTNA(EQUIV(A1;base;0))

JB

jp14 · 18 Avril 2008

Re : comparaison, et mise en couleur des diff

Bonsoir

Une solution par macro

A tester

JP

cbea · 18 Avril 2008

Re : comparaison, et mise en couleur des diff

Bonsoir à tous,

Voici une autre solution.

bignou77 · 19 Avril 2008

Re : comparaison, et mise en couleur des diff

Hello,
Un big merci a tous les 3.

Helas pour la solution de BOISGONTIER, j'ai du mal faire un truc, car j'ai pas réussit.

Donc je passe par macro et cela ne me pose pas de souci.

Donc ne me reste plus qu'a faire mon choix. merci a vous Trois, Hyper rapide, et hyper efficace, comme toujours sur le forum.

BOISGONTIER · 19 Avril 2008

Re : comparaison, et mise en couleur des diff

Bonjour,

Voir PJ

JB

BOISGONTIER · 19 Avril 2008

Re : comparaison, et mise en couleur des diff

En VBA

Code:

Sub doublons()
  For Each c In Range("A1", [A65000].End(xlUp))
   If IsError(Application.Match(c, Workbooks("base.xls").Sheets(1).[A:A], 0)) Then c.Interior.ColorIndex = 36
  Next c
End Sub

JB

bignou77 · 19 Avril 2008

Re : comparaison, et mise en couleur des diff

Re,
Merci BOISGONTIER, comme ca, ca marche effectivement je ne sais pas trop ou j'ai louper le truc, mais c'est pas grave.
et en plus j'avoue que j'aime bien ton code VBA pour faire la meme chose.
Maintenant a moi de voir ce que je vais choisir.
Mais merci a tous.

bignou77

comparaison, et mise en couleur des diff

bignou77

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

Pièces jointes

cbea

XLDnaute Impliqué

Pièces jointes

bignou77

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

bignou77

XLDnaute Occasionnel

Discussions similaires