Supprimer doublons à partir de 2 colonnes

[mroma]

Bjr à tous,

Je suis nouveau sur ce forum et débutant en VBA,
Je me permet de vous solliciter pour le problème suivant :

Je souhaite supprimer pour chaque numéro dans ma colonne A les doublons en gardant la valeur la plus grande de la colonne C

J'ai mis en jaune les lignes à garder sur mon fichier présent en annexe

Merci bcp de votre aide

 

[mapomme]

Re : Supprimer doublons à partir de 2 colonnes

Bonsoir mroma et bienvenue sur XLD 🙂,

Un essai dans le fichier joint.

Sub LeMaxdesDoublons()
Dim i&, i1&
  Application.ScreenUpdating = False
  With Sheets("Document")
    ' tri selon colonne A puis C
    .Range("a1").CurrentRegion.Sort key1:=.Range("a1"), order1:=xlAscending, _
        key2:=.Range("c1"), order2:=xlAscending, Header:=xlYes
    ' numéro de l'avant-dernière ligne des données
    i1 = .Range("a1").CurrentRegion.Rows.Count - 1
    ' boucle de l'avant dernière ligne à la ligne 2
    For i = i1 To 2 Step -1
      ' si la référence de la ligne i est la même que la ligne i+1,
      ' alors on efface la ligne i
      If (.Cells(i, "a") = .Cells(i + 1, "a")) Then .Cells(i, "a").EntireRow.Delete
    Next i
  End With
  Application.ScreenUpdating = True
End Sub

 

[mroma]

Re : Supprimer doublons à partir de 2 colonnes

Bjr, Je vais tester le code,
Merci bcp !!!!😉

 

[djidji59430]

Re : Supprimer doublons à partir de 2 colonnes

Bonjour,
tu fais un tableau (insertion tableau)
tu filtres par N° de version (du plus grand) au plus petit
tu supprimes les doublons dans les titres (suppression doublon)
Il te reste les titres qui ont le plus grand N° de version.