Macro trier et supprimer doublon

Bonjour,

Comment faire pour qu'une macro (trier + supprimer les doublons) créée sur une plage de cellule fonctionne sur d'autres plages de cellules ? parceque même en actionnant les références relatives, cela ne marche pas.

Merci de votre aide

Sarah

bonjour,

une proposition

Sub aargh()
'selectionner les données avant de lancer la macro
If Selection.CountLarge < 3 Then MsgBox "pas de données sélectionnées": Exit Sub
    With Selection
    .Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
    .RemoveDuplicates Columns:=1, Header:=xlYes
    End With
End Sub

Tu es un génie !!!

Merci beaucoup

Sarah

Oups !

ta macro qui fonctionnait très bien me pose maintenant un gros problème puisque dès que je la ance Excel ferme le fichier et me dit qu'il est corrompu !

Que dois je faire ?

Sarah

Bonjour,

Une autre proposition à étudier.

Les données sont sous forme de tableau (structuré).

Cdlt.

Public Sub SortAndRemoveDuplicates()
Dim lo As ListObject
    If ActiveCell.ListObject Is Nothing Then Exit Sub
    If MsgBox("Le tableau va être trié et les doublons supprimés.", _
              vbOKCancel + vbQuestion, "Procédure") = vbCancel Then Exit Sub
    Set lo = ActiveCell.ListObject
    With lo
        If .DataBodyRange Is Nothing Then Exit Sub
        .Sort.SortFields.Add .ListColumns(1).DataBodyRange, xlSortOnValues, xlAscending
        .Sort.Apply
        .Sort.SortFields.Clear
        .Range.RemoveDuplicates 1
    End With
End Sub

Merci Jean-Eric,

Super job

Sarah

Re,

Merci de ce retour.

Bonne fêtes de fin d'année.