obtenir une liste sans doublons

[vba-new]

bonsoir forum,

J'ai créé une liste B de données découlant d'une liste A.

Cependant, dans la liste B, je me retrouve avec des doublons.
Comment faire pour obtenir une liste de données distinctes?

Je vous joins le fichier correspondant avec quelques explications dessus également : http://www.excel-pratique.com/~files/do ... mmande.xls

Je vous remercie d'avance pour votre aide.

[cousinhub]

Bonjour,

essaie avec ce code dans l'évènement de feuille (Feuil4)

Code: Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim Fournisseurs As Object
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$2" And Target <> "" Then
    Set Fournisseurs = CreateObject("Scripting.Dictionary")
    With Sheets(CStr(Target))
        For Each Cel In .Range("B2:B" & .[B65000].End(xlUp).Row)
            Fournisseurs.Item(Cel.Value) = Cel.Value
        Next Cel
    End With
    temp = Fournisseurs.items
    Call tri(temp, LBound(temp), UBound(temp))
    For i = LBound(temp) To UBound(temp)
        tmp = tmp & "," & temp(i)
    Next i
    tmp = Right(tmp, Len(tmp) - 1)
    With Target.Offset(, 1)
        .ClearContents
        .Validation.Delete
        .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=tmp
        .Select
    End With
End If
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


http://www.excel-pratique.com/~files/do ... nde_v1.zip

[vba-new]

Bonjour cousinhub, forum,

1. Post ouvert le 22/08/09 à 3h03

2. Répondu à 4h53

3. Mis en Résolu à 9h14

Que demander de plus?

Merci beaucoup cousinhub!! Tes interventions restent toujours d'aussi bonne facture

Edit1 : point 3 : pas tout à fait encore

[Nad-Dan]

Bonjour vba-new

Que demander de plus?

Le passer effectivement en RESOLU ?

Amicalement
Nad

[vba-new]

Une petite demande avant de mettre le post en résolu

La présentation étant peu attirante, est-il possible de mettre ces deux listes dans des ComboBox, ListBox ou autres? Le but étant de l'égayer un peu, cette présentation

Merci d'avance

Edit : salut Nad, je ne manquerai pas de le faire

[cousinhub]

Re-,

un userform, peut-être?

http://www.excel-pratique.com/~files/do ... nde_v2.zip

[vba-new]

C'est exactement ce qu'il me faut cousinhub! Merci beaucoup!

Par contre, je viens de le voir, dans le fichier précédent, lorsque je sélectionne le compte 606, je n'ai pas toute la liste des fournisseurs

Il semblerait que la taille de la liste déroulante ne permette pas de voir le reste des fournisseurs!

Y a-t-il un remède à ça?

PS : je te demande ça car j'aimerais quand même garder la liste sans userform quelque part! Ça pourrait me servir plus tard

[cousinhub]

Re,

Effectivement, la liste est trop longue, pour la validation de données...

Un petit ersatz...

colonne H masquée, on met dedans la liste triée sans doublons...

Et on y fait référence dans la validation de données...

http://www.excel-pratique.com/~files/do ... nde_v3.zip

[vba-new]

Parfait cousinhub!

Un dernier petit truc sur l'affichage par userform

Lorsque je sélectionne le compte 606 (avec l'userform donc), la liste des fournisseurs n'est pas complètement triée dans l'ordre alphabétique



Comment cela se fait-il?

Merci encore pour ton aide cousinhub!

[cousinhub]

Re-,

en haut du code de l'usf, tu mets ceci :

Code: Tout sélectionner

Option Compare Text

afin de s'affranchir des minuscules et des majuscules....