Soustraction d'une grande liste

[Annie4242]

Bonjour à tous,

Désireuse de faire une soustraction de 2 listes.
Une liste dans la colonne A ( 3292 cellules) et l'autre dans la colonne B ( 159 cellules) avec un résultat dans la colonne C
Les données sont de type texte : Nom de villes
Dans la colonne C doivent apparaitre les villes figurante dans A moins celles de B
J'utilise excel 2003 🙂

Voilà le message d'erreur


Pour

Sub extrait()
x = 1
For Each Cel In Range("A2:A3292")
Set Cherch = Range("B2:B159").Find(Cel)
If Cherch Is Nothing Then
Range("C" & x) = Cel
x = x + 1
End If
Next
End Sub

Et il me demande de débugger :



Il me sort quand même un résultat, mais incomplet puisque dans la colonne C, il s'arrête la ligne 2635 !!
Je sais que c'est incomplet car les villes sont triées par ordre alphabétique avant en A et on les retrouve en ordre alphabétique en C... et il s’arrête donc à la lettre R.

Quelqu'un a une solution ?

Merci

 

[JJ1]

Re : Soustraction d'une grande liste

Bonjour

J'utilise une macro "passe-partout" pour faire ce genre de chose, valable avec des nombres et/ou des noms, faisant A dans B et A non dans B (saisie en A et B)

Cette macro utilise Match, et est un véritable couteau suisse pour la manipulation de données dans des colonnes.

Bonne journée

 

[Annie4242]

Re : Soustraction d'une grande liste

Un ange est arrivé, il s'appelle JJ1.
Un grand merci, cela fonctionne parfaitement.