EFFACER et pas supprimer les doublons
d
Bonjour,
Je n'arrive pas à trouver comment dans la colonne A quand on a plusieurs valeurs identiques on peut les supprimer en gardant que la première valeur à chaque fois
Par exemple dans la colonne A on a
A
1 test
2 test2
3 test2
4 test2
5 test3
et je voudrais avoir à l'aide d'une macro
A
1 test
2 test2
3
4
5 test3
Ci-joint un fichier exemple
Merci d'avance pour votre aide
Salut,
Dans le fichier ci-joint j'ai placé un bouton sur ta feuille qui déclenche la macro désirée.
Bonnes salutations.
Bonjour,
en respectant la règle TBTO, une autre voie :
Sub Demo()
Dim Rg As Range
Set Rg = Feuil1.Cells(4, 1)
Application.ScreenUpdating = False
Do Until Rg.Row = Rows.Count
Rg.CurrentRegion.Columns(1).Offset(1).Clear
Set Rg = Rg.End(xlDown)
Loop
Set Rg = Nothing
End Sub