Discussion :

[perchman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour à tou(te)s,

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

[laetitia]

bonjour perchman casefayere le forum plusieurs methodes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[perchman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

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