Faire un tri sur des valeurs identiques d'une colonne

10ref.xlsx (39.71 Ko)

Bonjour ,

Je suis débutante en vb et j'aurais besoin de votre aide sur un sujet.

Mise en situation :

J'ai un fichier avec deux colonnes , une colonne A contenant des vides ou bien des nombres ( Ref des fichiers ) qui peuvent être identiques et une deuxième B contenant la date de création de ces fichiers .

Besoin :

J'aimerai créer une macro qui supprime les doublons tout en gardant le fichier avec la date de création la plus récentes.

par exemple sur une plage de fichiers qui ont la valeur 100 dans la colonne A on supprime tout et en garde le plus récent .

Je vous remercie par avance

bonjour,

solution via une macro, à tester sur une copie du fichier

Sub aargh()
    With ActiveSheet.ListObjects(1)
    dl = .DataBodyRange.Rows.Count
        .Sort.SortFields.Clear
        .Sort.SortFields.Add _
                Key:=.Range.Cells(1, 1), SortOn:=xlSortOnValues, Order:=xlAscending, _
                DataOption:=xlSortTextAsNumbers
        .Sort.SortFields.Add _
                Key:=.Range.Cells(1, 2), SortOn:=xlSortOnValues, Order:= _
                xlAscending, DataOption:=xlSortNormal
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
        For i = dl - 1 To 1 Step -1
            If .ListRows(i).Range.Cells(1, 1) = .ListRows(i + 1).Range.Cells(1, 1) Then .ListRows(i).Delete
        Next i
    End With
End Sub

bonjour

une contribution sans VBA

55zineb0007.xlsx (42.81 Ko)

cordialement

Rechercher des sujets similaires à "tri valeurs identiques colonne"