Autre PB:doublon dans une ComboBox

Version imprimable

voilà, c'est encore moi, pour changer !!

je crée une CBB (comboBox) en lisant des valeurs dans une feuille Excel !!

mais quand cette valeur y est 2 fois, je ne sais pas comment enlever le doublon !!
voici le code pou implémenter ma CBB...

merci de votre aide:king:
Code:

1 2 3 4 5 6 Dim n As Integer n = 3 While (Worksheets("liste des entreprises").Cells(n, 1) <> "") CBB_select_stage_nom_ent.AddItem (Worksheets("liste des entreprises").Cells(n, 1)) n = n + 1 Wend

12/03/2009, 07h57
casefayere

Bonjour à tou(te)s,

Regardes là :
http://www.developpez.net/forums/d46...tri-prealable/

bonjour perchman casefayere le forum plusieurs methodes

Code:

1
2
3
4
5
6
7
8
9
10
Sub test5()
Dim T, z As Variant, l As Object, X As Long, i As Long
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
T = Range("A2:a" & Range("A65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
cbx1.AddItem z: Next
End Sub

+ dans l ordre alpha..avec seulement new collection

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test1()
Dim T, z As Variant, l As Collection, X As Long, i As Long, j As Long, temp As String
On Error Resume Next
Set l = New Collection
T = Range("A2:a" & Range("A65536").End(xlUp).Row)
For i = LBound(T) To UBound(T)
l.Add T(i, 1), T(i, 1): Next
For Each z In l
cbx1.AddItem z: Next
For i = 0 To cbx1.ListCount - 1
For j = 0 To cbx1.ListCount - 1
If cbx1.List(i) < cbx1.List(j) Then
temp = cbx1.List(i)
cbx1.List(i) = cbx1.List(j)
cbx1.List(j) = temp
End If: Next j: Next i
End Sub

moi, j'ai cette solution qui marche sur le programme d'un ami, mais pas sur le mien!! l'erreur indiquée est "incompatibilité de type"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim u, i As Integer
    u = 3
    While (Worksheets("liste des entreprises").Cells(u, 1) <> "")
        CBB_select_entreprise_cont.AddItem (Worksheets("liste des entreprises").Cells(u, 1))
        u = u + 1
    Wend
    For i = 0 To Stage.CBB_select_stage_nom_ent.ListCount - 1
        For j = Stage.CBB_select_stage_nom_ent.ListCount - 1 To i + 1 Step -1
            If (Stage.CBB_select_stage_nom_ent.List = Stage.CBB_select_stage_nom_ent.List(j)) Then
                Stage.CBB_select_stage_nom_ent.RemoveItem (j)
            End If
        Next j
    Next i

merci de votre aide !!:king:

12/03/2009, 19h50
laetitia

re le fil le forum tes variables sont mal declarees !!! peut etre