Avec un macro c'est possible ?

[AJV1962]

Bonjour
Je me demande s’il existe un moyen avec une macro d’obtenir mon résultat souhaité.
Dans la colonne A j’ai des vendeurs, dans la colonne B des valeurs. Je souhaite supprimer dans la colonne B tout les valeurs sauf le valeur Max et sans doublons.

Ci-joint le fichier pour illustrer mon souhait.

Merci d'avance de votre aide si vous pensez que cela sera possible.

 

[tototiti2008]

Re : Avec un macro c'est possible ?

Bonjour AJV1962,

peut être comme ça, sans macro :

 

[AJV1962]

Re : Avec un macro c'est possible ?

Merci
le problème est que en réalité j'ai également de données dans 21 autres colonnes qui ne faut pas supprimer. Donc un petit macro sera de bienvenu

 

[mromain]

Re : Avec un macro c'est possible ?

Bonjour AJV1962, tototiti2008,

voici une solution en macro :

Sub test()
Dim i As Long, nbLignes As Long, iMax As Long, iNb As Long

    With ThisWorkbook.Sheets("Départ")
        nbLignes = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = nbLignes To 2 Step -1
            iMax = Evaluate("=LARGE((A2:A" & nbLignes & "=""" & .Range("A" & i).Text & """)*B2:B" & nbLignes & ",1)")
            iNb = Evaluate("=SUMPRODUCT((A2:A" & nbLignes & "=""" & .Range("A" & i).Text & """)*(B2:B" & nbLignes & "=" & .Range("B" & i).Text & ")*1)")
            If .Range("B" & i) <> iMax Or iNb <> 1 Then .Range("B" & i).Clear
        Next i
    End With
End Sub

a+

 

[AJV1962]

Re : Avec un macro c'est possible ?

C'est génial!
Ca fonctionne sur le fichier test, je vais essayer de l'utilser sur mon fichier final.

Merci beaucoup