EXCEL - comparer deux listes...

Salut à tous!

j'ai une petite question :

j'ai deux listes de références produit sous excel très longue.

Comment les comparer rapidement?

Le but serait de repérer dans ma premiere liste les références qui figurent la deuxieme (liste de references qui doivent être retirées.

J'espere que c'est clair...

En tous cas merci à vous!!

Ophélie
Configuration: Windows XP
Internet Explorer 7.0

8 réponses

  1. si elle trouve c'ets donc apres le if....then
    tu met

    cells(i,1).interior.colorindex = 24 (je connais pas le code couleur du rouge dsl)
    1
    1. Bonjour,

      Ou bien :

      cells(i,1).interior.color = VbRed

      ;o)
      0
  2. salut,
    tes références sont en format caractère ou numérique ?
    0
    1. par exemple une référence :

      MO-ZE1.170.214/JPR

      Merci!
      0
  3. Selon moi le plus rapide est un find
    j'ai eu le meme probleme 2 liste de 20000 entrees environ et ca va relativement vite.
    en totu cas c'ets le plus rapide que j'ai trouvé
    0
    1. MErci steefif,

      mais si je dois le faire 250 fois c'est pas de la tarte!!

      Ophélie
      0
  4. Je te dis tu fasi une macro
    j'avais 20000 valeur la comparaison se fait en gros en 1-2 minutes
    avec 250 ca va prendre 20 secondes meme pas
    0
    1. Merci je crois que j'avais saisi qu'il fallait faire un macro ou un truc dans le genre...

      Seulement si je m'adresse au forum comment ca marche c'est bien que je ne sais pas le faire!

      Ophélie
      0
  5. ok, désolé, j'avais pas compris ta réponse alors!
    voila ma macro:

    il faut toucher deux-trois trucs (voir italiques)

    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row i = 2 car j'ai une ligne d'entete
    Sheets("Feuil1").Activate les données que je veux trouver sont sur la feuille 1
    Cells(i, 1).Select
    Set check_data = Sheets("Feuil2").Columns(2).Find(What:=Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
    les données de ma liste de référence sont sur la feuil2, dans la colonne2. De plus je parcours a partir du bas de ma liste afin d'avoir la version al plus récente. enfin, je prend en compte la totalité du contenu de la cellule et pas une partie seulement
    If Not check_data Is Nothing Then
    ..... si al référence est trouvée alors.....
    Else
    ..... sinon .....
    End If
    Next i

    si tu as encore besoin de précision n'hésite pas
    0
    1. waou!

      et bien je suis impressionée!!

      je crois comprendre ta macro, seulement la faire fonctionner?

      La copier dans une cellule? désolé de mon ignorance!!!

      MErci!!

      Ophelie
      0
  6. non il faut la creer comem une macro
    pour ce faire
    outil/macro/nouvelel macro
    tu demarres l'enregistrement puis tu l'arretes
    outil/macro/macro 1 tu clique sur modifier
    tu colles le résultats entre les deux bannieres [sub] et [end sub]
    et voila le travail
    apres je te dis, il faut la retoucher un peu
    si tu veux, envoie moi le fichier en question sur
    http://www.cijoint.fr/

    n'oublie d'envoyer le lien dans la réponse
    0
    1. Merci bcp bcp bcp

      j'essaie de la faire toute seule comme ca je n'aurais plus à demander!!!

      ///

      Je pense avoir réussi à modifier les valeurs dans la macro. Seulement il manque bien ce que la macro doit faire si elle trouve...

      Comment faire que mes références se colorient en rouge si elle figure dans la "feuil1"?

      et si elle ne ltrouve rien ne rine faire...

      Merci bcp encore

      Ophelie
      0
  7. code couleur du rouge = 3
    0
    1. je savais pas qu'on pouvais mette .color = vbred!
      meric pour l'info
      et merci pour l'info du code couleur!
      0