Petite question sur Userform "combobox"

Version imprimable

07/10/2009, 11h08
Maiden002

Petite question sur Userform "combobox"

Bonjour,

J'aurai une petite question sur les Combobox dans une Userform.

Je sais que pour l'initialisé avec des données fixe il faut faire

combobox.AddItem "TOTO"

Mais ce que je cherche sa serai d'ajouter une variable qui contient plusieurs données (il s'agit d'une liste) appelé "List"

j'ai essayer avec combobox.AddItem List mais sa doit pas marcher.

Sinon pour info ma variable List contient A1 à A200

Merci de votre aide

bonjour Maiden002 le forum essai comme cela
Code:

1 2 3 Private Sub UserForm_Initialize() ComboBox1.RowSource = "List" End Sub

07/10/2009, 11h30
Maiden002

Bonjour

Merci pour ta réponse

Sa marche nikel. Mais maintenant je rencontre un probléme que je n'aurai pas penser ^^.

En faite, étant donné que c'est une plage comme j'ai dit de A1 a A200 il est possible que tout le tableau ne soit pas rempli, j'avais créer cette variable pour avoir de la place par la suite.

Donc imaginons que dans ma liste j'ai les 50 premier ligne pleine, mais les 150 restante sont vide.

Dans la combobox, il prend en compte les vide, donc il me rajoute 150 case Vide dans la liste déroulante. Est il possible de lui dire de pas prendre en compte les case vide et de n'afficher que les valeur pleine. ??

Merci beaucoup
07/10/2009, 11h36
laetitia

re, essai comme cela !!

Code:

ComboBox1.List = Range([A1], [a65536].End(xlUp)).Value
07/10/2009, 11h39
Maiden002

Super Nikel sa marche

Merci beaucoup :)

Slt Forum, Maiden, Laetitia,

Une autre méthode, ta liste est supposée être en A1 de la feuille 1.

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
    With Sheets("Feuil1")
        For i = 1 To .Range("A65000").End(xlUp).Row
            If .Cells(i, 1) <> .Cells(i - 1, 1) Then
                ComboBox1.AddItem .Cells(i, 1).Value
            End If
        Next
    End With
 
End Sub

Cdt, Hulk.

bonjour Antoniom le forum tu as teste ton code ???

Code:

1
2
3
4
5
6
7
Dim c As Range
With Sheets("Feuil1")
For Each c In .Range("A1:a" & .Range("A65536").End(xlUp).Row)
ComboBox1 = c
If ComboBox1.ListIndex = -1 And ComboBox1 <> "" Then ComboBox1.AddItem c
 Next c
End With

en utilisant un objet ou une collection

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test5()
Dim t, z As Variant, l As Object, i As Long
On Error Resume Next
Set l = CreateObject("Scripting.Dictionary")
t = Range("A1: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
If z <> "" Then ComboBox1.AddItem z
 Next
End Sub