Voulez vous jeter un coup d'oeil a mon code ?

[Julie75]

Bonjour,
J'ai mis au point un code qui ne marche pas vraiment et je n'arrive pas a trouver la soluce.
mon code est censer comparer deux listes de produits. Chaque elements des deux listes sont uniques. je souhaiterais isoler les elements uniques et mettre une couleur jaune et des '|' dans la ligne de l'autre liste.
mon code fonctionne jusqua la ligne 41. Apres, les lignes 42, 44, 46 et 48 non pas lieu d'etre et mysterieusement le code s'arrete en ligne 49 pour une raison que j'ignore totalement.

pour lancer le code, lancer la macro1. elle copie les colonnes de AC1 et AC2 et les copient dans une nouvelle feuille excel.

Avis au specialiste et au curieux...please help!

Un grand merci d'avance. [file name=Julie75.zip size=21038]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Julie75.zip[/file]

 

[Papaye]

Bonjour Julie et allez l'OM,

Alors, ta macro ne vas pas jusqu'au bout car lorsque tu as la boucle :

For i = 3 To Range('F3').End(xlDown).Row

Set val1 = Range('a' & i)
Set val3 = Range('b' & i)
Set Val5 = Range('c' & i)
Set Val7 = Range('d' & i)
Set Val9 = Range('e' & i)

....

cette boucle rajoute des lignes (celles en jaune). Donc la fin de ta liste (dans ton exemple l'AC2) se décale d'autant. Les données se terminent à la ligne 47, puis 48, puis 49 ... et ainsi de suite jusqu'à 70.
Or la boucle ne vas fonctionner que pour les lignes 3 à 47 (=Range('F3').End(xlDown).Row).

Je manque de temps pour te répondre plus longuement, mais essaye plutôt de passer par un if cellule suivante est non vide je continue la boucle sinon je m'arrête ...

Papaye

 

[pierrejean]

bonjour Julie Papaye le forum

bises aux dames

@Julie

tu trouveras en module2 mon interpretation

j'ais detaillé en plusieurs macros pour te faciliter la comprehension (tu pourras les tester l'une apres l'autre)
pour la totale macro tout [file name=Julie75_20060613103907.zip size=26409]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Julie75_20060613103907.zip[/file]