List Box Dynamique avec 2 Comboboxs

Bonjour,

Piece attachee

J'ai 2 combobox conditionnels qui ont pour but d'afficher la liste de users dans la listbox1.

Seul probleme - mon combobox2 ne recupere pas les distinct values...

22test-v1-2.xlsm (21.69 Ko)

Merci ca marche parfait !

Maintenant j'essaye de faire avec la listbox une listbox 3 colonnes (C,D,E).

J'ai parametre le column count = 3.

    Dim j As Integer
    ListBox1.Clear
    ListBox1.ColumnCount = 3

    Label3.Caption = ""
    For i = 1 To UBound(tablo, 1)
        For j = 3 To 5
        If tablo(i, 1) = ComboBox1 And tablo(i, 2) = ComboBox2 Then
            dico(tablo(i, j)) = ""
        Next j
        End If
    Next i

    ListBox1.List = dico.keys
    dico.RemoveAll
End Sub

J'ai une erreur sur la ligne du dico(tablo,i,j)) = """ ...

Bonjour

à vérifier les variables i et j

tu déclares j as integer

et dans la tablo tu mets i , peut-être que c'est là le problème

crdlt,

André

Bonjour à tous

Si le fichier qui correspond au code était joint, il serait plus facile de trouver le défaut.

Bye !

Here we are

6test-v3.xlsm (22.61 Ko)

Voilà !

Bye !

18test-v3.xlsm (32.05 Ko)

j'ai finalement quand meme une derniere question comment peut-on avoir dans ma list box la colonne E qui s'affiche en $ dans la listbox ?

fyi

Nouvelle version

Bye !

20test-v4.xlsm (32.09 Ko)

Hi Gmd,

Si je souhaites avoir un format avec deux decimales ? Je dois changer cette ligne :

ListBox1.Column(2, ListBox1.ListCount - 1) = tablo(i, 5) & " $"

En :

ListBox1.Column(2, ListBox1.ListCount - 1) = (tablo(i, 5) & " $").NumberFormat("$#,##0.00")

?

Merci encore....

Bonjour

Je mettrais plutôt ça :

ListBox1.Column(2, ListBox1.ListCount - 1) = Format(tablo(i, 5), "0.00 $")

Bye !

Rechercher des sujets similaires à "list box dynamique comboboxs"