Le plus bref macros pour supprimer les doublons

[nakatami]

Bonjour,

Après recherche sur net sur un macros pour supprimer les doublons. J'en ai trouvé plein mais ils sont trop compliqué. Je partage avec vous un macros pour faire cette tâche.

Sub SuppDoublons()

' le paramètre LimiteSelection doit contenir la lettre du dérnier colonne
    Const LimiteSelection = "C"

        Selection.End(xlDown).Select
        nbrLignes = ActiveCell.Row
        Range("A1:" & LimiteSelection & nbrLignes).RemoveDuplicates Columns:=Range(LimiteSelection & 1).Column, Header :=xlNo
        Range("A1").Select
            

End Sub

à tester

Bien à vous

 

[Paritec]

Re : Le plus bref macros pour supprimer les doublons

bonjour Nakatami le forum
oui mais ta solution ne marche pas sous 2003 il ne faut pas être aussi affirmatif !!
et en plus avec 2007 et plus, on peut réduire ta macro à une seule ligne!
a+
Papou

EDIT Bonjour Michel oui c'est bien ce que je disais

 

[MJ13]

Re : Le plus bref macros pour supprimer les doublons

Bonjour Nakatami, Papou

Sur XL2007, tu peux l'écrire ainsi:

ActiveSheet.[A1].CurrentRegion.RemoveDuplicates Columns:=Array(1), _
        Header:=xlYes

 

[nestorito]

comment créer une application sur excel 2007 pour localisation d'un entrepot

bonjour
je voudrais créer une application sur excel à bae de la méthode barycentre pour localiser mon entrepot comment faire et merci

 

[Paritec]

Re : Le plus bref macros pour supprimer les doublons

Bonjour nestorito le forum
le mieux et d'ouvrir une nouvelle discussion
a+
papou