XL 2016 supprimer les doublons

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

reda01

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

Merci d'avance
 

Pièces jointes

  • Capture.JPG
    Capture.JPG
    18.5 KB · Affichages: 24
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.
 
Bonjour @sylvanu, @reda01

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

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
411
  • Question Question
XL 2021 Doublons
Réponses
7
Affichages
135
  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
100
Réponses
2
Affichages
384
Réponses
1
Affichages
308
Réponses
40
Affichages
1 K
Réponses
9
Affichages
386
Retour