Comparaison liste

[olitri90]

Bonsoir le forum,

Je suis à la recherche d'une solution à mon probleme .

J'ai une liste d'adresse email qui grandit de jour en jour ( listing mailing publicitaire ) et quand j'ai de nouvelles adresses , je doit comparer si je ne les ai pas deja encoder dans mon programme de mailing .

Pouvez vous svp m'aider a trouver une solution valable ?

Je pensait faire une liste avec 3 colonnes , dans la A metre ma liste existante , dans la B ma nouvelles liste et que dans la C il me sorte la liste total sans les doubles eventuels .

Pensez vous que cela est possible en sachant que j'ai plus de 500 adresses mail .

Si cela pouvait fonctionner comme ça , se serait super facile pour moi ( copier/coller de la colonne C vers mon soft mailing )

Un grand merci pour votre aide .

Olitri90

 

[XCo]

Re : Comparaison liste

Bonsoir olitri90,

pour savoir si tu as des doublons tu compares 2 formules ;

Nb valeurs sans doublon =Sommeproduct(1/nb.si(a1:a10000;a1:a10000))
Nbre Valeurs : nbval(A1:AA1000)

si les 2 formules ne sont pas identiques tu as des doublons

Pour identifier le doublon, tu mets ds col B la formule :
nb.si(a$1$:a$10000$,a1) et la tu fais glisser sur chaque ligne de la col B

Les doublons donneront le chiffre 2 et les valeurs uniques auront 1


Si pas clair, colle un file


autre soltion, fais une recherche sur le site "doublon" => il y a pleins de macros possibles


bonne nuit
XCo

 

[mjo]

Re : Comparaison liste

Bonjour,

Tu colles la nouvelle liste sous l'ancienne et tu appliques une Mise en forme conditionnelle (menu Format) sur la colonne avec "la formule est" : =NB.SI(A$1:A1;A1)>1 et un format au choix, par exemple motif rouge.

Il se suffira de supprimer les lignes avec motif rouge.

mjo

 

[bqtr]

Re : Comparaison liste

bonjour tous le monde,

Une autre solution par marco.
code à coller dans la feuille, click droit sur l'onglet/code.

A chaque saisie d'une adresse dans la colonne A, cela vérifie la présence
d'un doublon. Si un doublon est détecté une msgbox t'avertira et ensuite le doublon sera effacé.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As String
rech = 0
ActiveCell.Offset(-1, 0).Range("A1").Select
c = ActiveCell.Value
nbr = WorksheetFunction.CountIf(Range("A:A"), c)
If nbr > 1 Then
MsgBox "L'adresse " & c & " existe déjà !", , "Attention :"
rech = 1
ligne = ActiveCell.Row
colonne = ActiveCell.Column
Selection.Clear
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If rech = 1 Then
Cells(ligne, colonne).Select
End If
End Sub

bonne journée

P.O