Excel : cherche formule si doublon Fermé

Question

Bonjour, 

Je n'ai pas réussi à trouver la formule pour un traitement de tableau lourd (67 000 lignes) avec un tri suivant:
dans la colonne A j'ai identifié les doublons,
pour faire le choix d'une seule ligne à garder, j'ai besoin de me référer à la colonne B de la même ligne, et ne retenir que la ligne où le chiffre de la colonne B est le plus élevé.

Illustration : 
Colonne A                         Colonne B
Marie                                  23
Marie                                  12
Alexandre                            10
Marie                                  17

Pour arriver à :
Colonne A                         Colonne B
Marie                                  23
Alexandre                            10

Quel serait la formule à utiliser dans la colonne C ?
=nb.si ? ou autre chose ?

Merci d'avance!

Configuration: Windows 7 / Firefox 44.0

Theo.R · Answer

Bjr,

A mettre en C2 en formule matricielle (Ctrl+Shift+Entée au lieu de Entrée pour valider) puis à dérouler vers le bas:

=SI(MAX(SI(A:A=A2;B:B))=B2;"On garde";"On supprime")

michel_m · Answer

Bonjour
Une formule matricielle sur 70000 lignes: je demande à voir la durée si du moins Excel ne plante pas
Bien qu'il faille penser Excel avant de penser VBA, tes 70000 lignes impliquent une solution par VBA

je suis parti de la ligne 2 (ent^te en ligne 1)et restitue en cellule F2 pour la démo. durée pour 4300 lignes: 5 à 6/100 de secondes
Option Explicit'---------------Sub unique_si_maxi()Dim Derlig As Long, T_inDim Dico As ObjectDim Cptr As Long, Ref As String, Valeur As DoubleDim Start As Single    Application.ScreenUpdating = False    Start = Timer    Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row    T_in = Range("A2:B" & Derlig)    Set Dico = CreateObject("scripting.dictionary")        For Cptr = 1 To UBound(T_in)        Ref = T_in(Cptr, 1)        Valeur = T_in(Cptr, 2)        If Not Dico.exists(Ref) Then            Dico.Add Ref, Valeur        Else            If Dico.Item(Ref) < Valeur Then Dico.Item(Ref) = Valeur        End If    Next        Range("E2").Resize(Dico.Count) = Application.Transpose(Dico.keys)    Range("F2").Resize(Dico.Count) = Application.Transpose(Dico.items)        Application.ScreenUpdating = True    MsgBox UBound(T_in) & " lignes traitées en  " & Timer - Start & " secondes"End Sub

si ca convient, on mettra le tableau ou tu veux le mettre et je commenterai le code
 
La maquette de W
https://www.cjoint.com/c/FBykzzB8aQD
 
 Michel