Discussion :

[modus57]

Bonjour,
J'ai dans une userform un combobox, et je voudrai qu'une fois l'userform activée mon combobox affichent le toutes les colonnes du premier choix de la liste.
Voici le code pour alimenter le combobox :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    With ComboBox1
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "50;50"
        .List = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
    End With
End Sub

Avec le code suivant :

Code :

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

1
2
3
Me.ComboBox1.ListIndex = 0
'ou
 ComboBox1 = ComboBox1.List(0)

À l'activation de l'userform le combobox affichent que la première colonne de la liste.
Comment coder pour afficher le toutes les colonnes du premier choix de la liste.
Merci d'avance pour votre aide et vos réponses

[Pierre Fauconnier]

Salut.

Lorsqu'un combobox est fermé (qu'il ressemble à un textbox), tu ne sais afficher que le contenu de la première colonne visible. Ce n'est que lorsque tu déroules le combobox que tu verras les autres colonnes (en fonction de la valeur de la propriété ColumnCount et de la propriété ColumnWidths). Si tu veux voir plusieurs colonnes, dirige-toi vers un listbox.

Les lignes suivantes sont inutiles dans le Initialize, car à l'initialize, le combobox est soit vide, soit rempli par la propriété Rowsource, de sorte qu'il n'est pas nécessaire de le vider avec Clear. De même, les lignes précisant le nombre de colonnes et les largeurs de celles-ci peuvent être déterminées dans les propriétés disponibles à la conception.

Code :

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

1
2
3
        .Clear
        .ColumnCount = 2
        .ColumnWidths = "50;50"

Perso, j'utiliserais un tableau structuré qui éviterait de passer par .End(xlUp).

Code :

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

Range("Tableau1").Value

Si tu veux un peu de lecture, voici mes billets sur les userforms.

[modus57]

Bonjour M. FAUCONNIER

Merci beaucoup pour vos réponses.

Je me borne à utiliser un combobox plus tôt qu'une listbox dans ma petite application.

Finalement j'abandonne l'idée d'afficher à l'initialisation de l'userform toutes les colonnes du premier choix de la liste dans la combobox.

J'invite l'utilisateur avec un ControlTypText à " Taper la ou les premières lettres pour filtrer les noms" dans la combobox.

En fouillant bien j'ai trouvé et adapté du code qui permet après le déroulement du combobox et le clic sur un de ses éléments d'afficher toutes les colonnes du choix dans la liste.

Le trie de la liste se fait dans le tableur.

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
18
19
20
21
22
23
24
25
26
27
28
29
Dim f, TblBD(), Choix()
 
Private Sub UserForm_Initialize()
    Set f = Sheets("BD2")
    f.Range("liste").Sort Key1:=[b2], Header:=xlYes  'tri sans les titres
    TblBD = f.Range("liste").Value
    ReDim Choix(1 To UBound(TblBD))
    For i = 1 To UBound(TblBD)
        Choix(i) = TblBD(i, 1) & "    " & TblBD(i, 2) ' " " espace entre le colonnes
    Next i
    Me.ComboBox1.List = Choix
    f.Range("liste").Sort Key1:=[a2], Header:=xlYes  'tri sans les titres
End Sub
 
Private Sub ComboBox1_Change() 'choix intuitif
    If Me.ComboBox1 <> "" Then
        mots = Split(Trim(Me.ComboBox1), " ")
        tbl = Choix
        For i = LBound(mots) To UBound(mots)
            tbl = Filter(tbl, mots(i), True, vbTextCompare)
        Next i
        Me.ComboBox1.List = tbl
        Me.ComboBox1.DropDown
    End If
End Sub
 
Private Sub ComboBox1_DropButtonClick()
    UserForm_Initialize
End Sub

Bien sûr ce n'est pas très orthodoxe mais cela fonctionne.
Pourriez-vous me donner votre avis d'expert sur cette procédure.