Comparaison liste

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

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

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