OVH Cloud OVH Cloud

Dédoublonner ?

2 réponses
Avatar
v.f.giraud
Bonjour,

J'ai 2 listes de 300 clients qui ne comportent pas forcément la meme
identité pour chaque entreprise ( marqué Ets ou sarl ou rien) donc difficile
de les comparer par ordre alphabétique .
Je vousdrais faire la comparaison par n° de telephone, mais c'est la où tout
ce complique. comment peut-on comparer 2 listes pour reperer les doublons ?

Grand merci à celui qui me donnera une direction.

Oscar

2 réponses

Avatar
isabelle
bonjour Oscar,

voici un exemple à adapter,
2 listes :
Sheets("Feuil1").Range("A1:A10")
Sheets("Feuil2").Range("A1:A10")
une correspondance numérique sera ajoutées sur la colonne "B" de chache
feuille, par les commandes :
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x

Sub Macro1()
For Each a In Sheets("Feuil1").Range("A1:A10")
For Each b In Sheets("Feuil2").Range("A1:A10")
If a = b Then
x = x + 1
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x
End If
Next b
Next a
End Sub

isabelle


Bonjour,

J'ai 2 listes de 300 clients qui ne comportent pas forcément la meme
identité pour chaque entreprise ( marqué Ets ou sarl ou rien) donc difficile
de les comparer par ordre alphabétique .
Je vousdrais faire la comparaison par n° de telephone, mais c'est la où tout
ce complique. comment peut-on comparer 2 listes pour reperer les doublons ?

Grand merci à celui qui me donnera une direction.

Oscar


Avatar
guy
Hello,
A comparer par N° TVA
"isabelle" a écrit dans le message de
news:
bonjour Oscar,

voici un exemple à adapter,
2 listes :
Sheets("Feuil1").Range("A1:A10")
Sheets("Feuil2").Range("A1:A10")
une correspondance numérique sera ajoutées sur la colonne "B" de chache
feuille, par les commandes :
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x

Sub Macro1()
For Each a In Sheets("Feuil1").Range("A1:A10")
For Each b In Sheets("Feuil2").Range("A1:A10")
If a = b Then
x = x + 1
Sheets("Feuil1").Range("B" & a.Row) = x
Sheets("Feuil2").Range("B" & b.Row) = x
End If
Next b
Next a
End Sub

isabelle


Bonjour,

J'ai 2 listes de 300 clients qui ne comportent pas forcément la meme
identité pour chaque entreprise ( marqué Ets ou sarl ou rien) donc
difficile


de les comparer par ordre alphabétique .
Je vousdrais faire la comparaison par n° de telephone, mais c'est la
où tout


ce complique. comment peut-on comparer 2 listes pour reperer les
doublons ?



Grand merci à celui qui me donnera une direction.

Oscar