suprimer les doublons en VBA

[bbobb]

Bonsoir à tous,
je cherche un commande VBA pour suprimer des doublons dans un colone de chiffres, il s'agit de l'inserer dans une macro existante

Merci d'avance
Bonne soirée à tous

 

[Staple1600]

Re : suprimer les doublons en VBA

Bonsoir



Une exemple basique utilisant le filtre élaboré

(ici traduit en VBA)

Sub suppr_doublons_par_enregistreur_macro()
Application.ScreenUpdating = False
Cells(1, 1).EntireRow.Insert
With Range("A1")
    .FormulaR1C1 = "XXXX"
    .CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Offset(0, 1), Unique:=True
    .Offset(, 1).Delete Shift:=xlUp
End With
Columns("A:A").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub

 

[soenda]

Re : suprimer les doublons en VBA

Bonsoir le fil, bbobb, Stapple1600

Autre solution, toujours à l'aide de l'enregistreur de macro (mais pour 2007 ?)

Sub b()
    [A:A].RemoveDuplicates Columns:=1
End Sub

A plus