remplir 3 combobox

Version imprimable

remplir 3 combobox

bonjour le forum
voila actuellement je remplis mes combobox3 à 5 comme cela
je pense qu'il y a mieux
Code:

1 2 3 4 5 6 7 8 UserForm3.ComboBox3.AddItem ">" UserForm3.ComboBox3.AddItem "<" UserForm3.ComboBox3.AddItem "=" UserForm3.ComboBox3.AddItem ">=" UserForm3.ComboBox3.AddItem "<=" UserForm3.ComboBox3.ListIndex = 0
;)

Hello,

Voilà deux façons de faire...

Les symboles dans la feuille1 en A1:A5 !

Code:

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

Ou encore plus court mais là, il faut que l'UserForm soit appelé depuis la même feuille

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
 
    For i = 2 To [A65536].End(xlUp).Row
        If Cells(i, 1) <> Cells(i - 1, 1) Then
            ComboBox3.AddItem Cells(i, 1).Value
        End If
    Next
 
End Sub

Cdt, Anton.

Re,

Tu même encore y raccourcir un peu, mais pas d'intérêt...

Comme ceci.

Code:

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

et depuis la même feuille.

Code:

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 
    For i = 2 To [A65536].End(xlUp).Row
        If Cells(i, 1) <> Cells(i - 1, 1) Then ComboBox3.AddItem Cells(i, 1).Value
    Next
 
End Sub

Cdt, Anton.

24/05/2009, 21h50
Qwazerty
Salut
Aller je dis en 4 lignes qui dis mieux ^^
Code:

1 2 3 4 Dim InTmp As Integer For InTmp = 3 To 5 UserForm1.Controls("ComboBox" & InTmp).List = Array(">", "<", "=") Next
Pour les petits malins qui me diraient en 1 ligne et qui virent la déclaration Dim de InTmp et mettent les instruction a la queue leuleu avec des : ;)

Code:

For InTmp = 3 To 5: UserForm1.Controls("ComboBox" & InTmp).List = Array(">", "<", "="): Next

mais c'est vilain et moins lisible, mais bon j'aime pas perdre ^^

A++
Qwaz

bonsoir

merci à tous
j'opte pour la version de QWazerty en 3 lignes

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
'--------------------------init combobox 3à 5 pour le filtre12--------------------------
Dim ncbx As Integer
    For ncbx = 3 To 5
       UserForm3.Controls("ComboBox" & ncbx).List = Array(">", "<", "=", ">=", "<=")
    Next
'---------------------fin filtre12-----------------------------------------------------
 
 
merci à tous   et chapeau:ccool::ccool::ccool:

24/05/2009, 22h29
Antoniom

Hello, Qwazerty, oscar.cesar,

Je ne connaissais pas cette méthode Qwazerty... sympa... t'as gagné :ccool:

En revanche, si tu as par exemple 300 ou plus de noms ou symboles ou autres, c'est mieux l'autre soluce je pense.

Du moins pour ce qui est de la longueur du code, car, dans les deux cas, il faudra bien rentrer la liste quelque part, que ce soit dans la Array ou sur la feuille.

Bonne soirée à vous tous !

Anton.
24/05/2009, 22h53
Qwazerty

Salut
De rien ;)
Dans un tel cas il est peut être aussi judicieux de rentré "en dure" (dans l'explorateur des propriétés du contrôle ComboBox) les symboles dans le 3eme combobox (car comme tu le dis il faudra bien les rentrer une fois), puis de faire la boucle de 4 à 5 avec dedans

Code:

controls("combobox" & Intmp).list = combobox3.list

;)
comme ça pas de trace nul part :p
A++
Qwaz