XL 2016 supprimer les doublons

[reda01]

Bonjour a tous,
Je cherche une solution pour supprimer les doublons ( mais a condition de supprimer les grandes valeurs).

Merci d'avance

 

[sylvanu]

Bonjour Reda,

En manuel ?
Si oui, Selectionnez le tableau.
Faites Données/Tier.
1er niveau : name de A à Z, 2eme niveau val du plus petit au plus grand.
Puis Données supprimer les doublons, décocher Val, et OK
Il ne vous reste que des singletons avec leur valeur minimale.

En triant par ordre décroissant, la suppression de doublons ne laisse que la première occurence c'est à dire la valeur la plus petite.

 

[reda01]

Merci Beaucoup Sylvanu

 

[_Thierry]

Bonjour @sylvanu, @reda01

Et en VBA ce devrait donner un truc comme ceci (Si les données sont en A1:B9...of course !)

Sub SupressDoublonGrangesValeur()
Dim WS As Worksheet
Dim Ligne As Integer, x As Integer


Set WS = ThisWorkbook.Worksheets("Sheet1")

Ligne = WS.Range("A1000").End(xlUp).Row

With WS
        With .Cells(1, "A").CurrentRegion
            .Cells.Sort Key1:=.Range("A1"), Order1:=xlAscending, _
                        Key2:=.Range("B1"), Order2:=xlDescending, _
                        Orientation:=xlTopToBottom, Header:=xlYes
        End With
End With


With WS
    For x = 1 To Ligne
        If .Cells(x + 1, 1) = Cells(x, 1) Then
            WS.Rows(x).EntireRow.Delete
        End If
    Next x
End With

End Sub

Bonne soirée
@+Thierry