Code pour supprimer les doublons d'une liste

[Hugues]

Bonjour le forum,

A partir d'une liste, je souhaiterais extraire les emplois présents et donc de supprimer les doublons.
Je vous joins un exemple.
Auriez un code à me proposer ?

Merci par avance,

Hugues

 

[JCGL]

Re : Code pour supprimer les doublons d'une liste

Bonjour à tous,

Si la macro n'est pas indispensable (une formule est très souvent plus rapide) :

=INDEX(Data!A$1:A$50;MIN(SI(NB.SI(I$1:I1;Data!A$2:A$50)=0;SI(Data!A$2:A$50<>"";LIGNE(Data!A$2:A$50)))))&""

en validation matricielle par Ctrl+Maj+Entrée

A+ à tous

 

[phlaurent55]

Re : Code pour supprimer les doublons d'une liste

Bonjour Hugues
Salut Jean-Claude

par macro:

    Application.ScreenUpdating = False
    Range("A2:A" & Range("A65535").End(xlUp).Row).Copy
    Range("I2").Select
    ActiveSheet.Paste
    Selection.RemoveDuplicates Columns:=1, Header:=xlNo
    [A1].Select
    Application.ScreenUpdating = True

à+
Philippe

 

[JCGL]

Re : Code pour supprimer les doublons d'une liste

Bonjour à tous,
Salut Philippe,

Es-tu sûr que RemoveDuplicates soit déjà opérationnel sous XL 2003 ?

A++ l'ami
A+ à tous

 

[phlaurent55]

Re : Code pour supprimer les doublons d'une liste

Re Salut Jean-Claude,

Bonjour à tous,
Salut Philippe,

Es-tu sûr que RemoveDuplicates soit déjà opérationnel sous XL 2003 ?

A++ l'ami
A+ à tous

.......... une fois de plus, je n'ai pas pris le temps de vérifier la version du demandeur
je ne pense pas que cela soit possible avec 2003 (je n'ai plus cette version pour pouvoir tester)

à+
Philippe

 

[Hugues]

Re : Code pour supprimer les doublons d'une liste

Bonjour Le Forum
Merci pour votre aide
Ca fonctionne sur 2003.

Hugues

 

[JCGL]

Re : Code pour supprimer les doublons d'une liste

Bonjour à tous,

Ca fonctionne sur 2003.

Tu m'en vois très étonné...

A+ à tous

 

[Grand Chaman Excel]

Re : Code pour supprimer les doublons d'une liste

Bonjour à tous,
Une autre méthode, en une ligne qui fonctionne aussi sur Excel 2003 il me semble:

Sub toto()
   Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, , Range("I2"), True
End Sub