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
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
-
je savais pas qu'on pouvais mette .color = vbred!
meric pour l'info
et merci pour l'info du code couleur! -
code couleur du rouge = 3
-
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) -
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-
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
-
-
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 -
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 -
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é -
salut,
tes références sont en format caractère ou numérique ?
