Discussion :

[oscar.cesar]

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

Code :

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

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

[Antoniom]

Hello,

Voilà deux façons de faire...

Les symboles dans la feuille1 en A1:A5 !

Code :

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

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 :

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

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.

[Antoniom]

Re,

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

Comme ceci.

Code :

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

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 :

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

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.

[Qwazerty]

Salut
Aller je dis en 4 lignes qui dis mieux ^^

Code :

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

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 :

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

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

[oscar.cesar]

bonsoir

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

Code :

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

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:

[Antoniom]

Hello, Qwazerty, oscar.cesar,

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

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.

[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 :

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

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

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