Supprimer les doublons

skoobi

XLDnaute Barbatruc

• 26 Mars 2009

• #2

Re : Supprimer les doublons

Bonjour chanu,

pour supprimer les doublons, jette un œil à ma signature, ça devrait t'intéresser...
Bonne soirée.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 26 Mars 2009

• #3

Re : Supprimer les doublons

Bonsoir,

Un exemple parmi d'autres :

Sub Test()
Columns(3).Clear
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
End Sub

Voir le fichier joint

 

Pièces jointes

• Classeur1.xls

  21 KB · Affichages: 105
• Classeur1.xls

  21 KB · Affichages: 115
• Classeur1.xls

  21 KB · Affichages: 111

Vote positif 0 Vote négatif

C

chanu

Guest

• 27 Mars 2009

• #4

Re : Supprimer les doublons

Nikel je vous remercie, je vais tester ça de suite 😉

 

Vote positif 0 Vote négatif

C

chanu

Guest

• 27 Mars 2009

• #5

Re : Supprimer les doublons

En fait ce que je voudrais c'est masquer les doublons dans une liste
J'ai une listeBox.Rowsource qui comprend des doublons et je voudrais les masquer quand je fais apparaître ma listBox

Désolé skoobi je suis débutant et ton code est un peu compliqué pour moi.

Voilà mon code tout bidon
Private Sub UserForm_Initialize()

Sheets("Feuil2").Select
lstVille.RowSource = "b1:b25"

End Sub

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 27 Mars 2009

• #6

Re : Supprimer les doublons

Re,

Regarde la solution de Boisgontier dans ce fil :
https://www.excel-downloads.com/threads/listbox-sans-doublon.117114/

Il y a plein d'autres Fils qui traitent de ce sujet

 

Vote positif 0 Vote négatif

C

chanu

Guest

• 27 Mars 2009

• #7

Re : Supprimer les doublons

Parfait c'est ce qui me fallait 😉

Pendant que j'y suis il y a t il un moyen de classer les éléments de la listbox par ordre alphabétique?

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Mars 2009

• #8

Re : Supprimer les doublons

Bonjour,

Code:

Private Sub UserForm_Initialize()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range([A2], [A65000].End(xlUp))
     If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
  Next c 
  temp = MonDico.items       ' le tableau temp() reçoit les éléments de MonDico
  Call Tri(temp, LBound(temp), UBound(temp))     ' tri 
  Me.ComboBox1.List = temp                              ' éléments dans combobox1
End Sub

Sub Tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
        temp = a(g): a(g) = a(d): a(d) = temp
        g = g + 1: d = d - 1
     End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub

Listes sans doublons triée

JB

 

Vote positif 0 Vote négatif

C

chanu

Guest

• 27 Mars 2009

• #9

Re : Supprimer les doublons

ça marche je te remercie😉)

 

Vote positif 0 Vote négatif