Code pour supprimer les doublons d'une liste

JCGL

XLDnaute Barbatruc

• 26 Juin 2013

• #2

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)))))&""

Cliquez pour agrandir...

en validation matricielle par Ctrl+Maj+Entrée

A+ à tous

 

Pièces jointes

• JC Liste sans Doublons.xls

  71.5 KB · Affichages: 46

Dernière édition: 26 Juin 2013

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Juin 2013

• #3

Re : Code pour supprimer les doublons d'une liste

Bonjour Hugues
Salut Jean-Claude

par macro:

Code:

    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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Juin 2013

• #4

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Juin 2013

• #5

Re : Code pour supprimer les doublons d'une liste

Re Salut Jean-Claude,

JCGL à dit:

Bonjour à tous,
Salut Philippe,

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

A++ l'ami
A+ à tous

Cliquez pour agrandir...

.......... 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

 

Vote positif 0 Vote négatif

H

Hugues

XLDnaute Impliqué

• 26 Juin 2013

• #6

Re : Code pour supprimer les doublons d'une liste

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

Hugues

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Juin 2013

• #7

Re : Code pour supprimer les doublons d'une liste

Bonjour à tous,

Hugues à dit:

Ca fonctionne sur 2003.

Cliquez pour agrandir...

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

A+ à tous

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 26 Juin 2013

• #8

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:

VB:

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

 

Vote positif 0 Vote négatif