Code de compaison arrête avant la fin

[Jean]

Bonjour le forum,

Avec le code suivant (Excelabo) je compare une cellule qui se trouve sur une feuille avec une autre cellule d’une autre feuille.

Mon problème est que le code s’arrête à la ligne 32 de ma feuille À_produire. Pourtant la donnée équivalente sur l’autre est là. Pourquoi le code cesse de faire la comparaison ?

Quelqu’un pourrait m’aider ?

Worksheets('À_produire').Activate
Range('a2').Select
For Each Cellule1 In Range('a2:a200')
Collection1.Add Cellule1
Next Cellule1

Worksheets('Données').Activate
For Each Cellule2 In Range('a1:a200')
collection2.Add Cellule2
Next Cellule2

For Each Element1 In Collection1
For Each Element2 In collection2
If Element1 = Element2 Then
Element1.Offset(0, 2) = Element2.Offset(0, 2)
Exit For
End If
Next Element2
Next Element1

Voici le lien pour le fichier pour une meilleure compréhension : http://cjoint.com/?fdrkNdr1hb

Merci

 

[Jean]

Bonjour JMPS, le forum,

Oups, la feuille est masquée. Il faut l'afficher ou démarre le code.

Désolé pour l'inconvénient.

Merci

 

[Gael]

Bonjour Jean, Bonjour José,

Pour moi, le code marche bien, il s'arrête à la ligne 32 parce qu'il ne trouve pas les autres équivalences puisque la collection 2 ne va que jusqu'à la ligne 200 du tableau de données.

Si tu mets la collection 1 de A2:A88 et la collection 2 de A2:A1230, tout à l'air de marcher.

@+

Gael

 

[Jean]

Bonsoir le fil,

Gael tu as trouvé. C'était ça le problème.

Merci