Chargement d'une listbox en fonction d'une autre list box

Bonjour à tous,

Je souhaiterai chargé la listbox Sitdang en fonction de ce que la Listbox_type affiche. Les valeurs à afficher dans la listbox sont la concaténation des listbox famille et type. Les valeurs à afficher se trouvent dans la feuille "valeurs". j'ai essayé une méthode avec un boucle For qui ne fonctionne pas. Auriez vous des pistes de solutions à explorer ?

Merci

Aurélien.

Bonjour,

à tester,

Private Sub ListBox_type_Click()
Dim Maxligne As Integer, i As Long, col As Integer
Dim CTN As String, v As String

ListBox_Sitdang.Clear
CTN = ListBox_famille & ListBox_type
Maxligne = 10
col = Application.Match(CTN, Sheets("TABLE_VALEURS").Rows(1), 0)

        If Not IsError(col) Then
            For i = 2 To Maxligne
                If Sheets("TABLE_VALEURS").Cells(i, col) <> "" Then
                    v = Sheets("TABLE_VALEURS").Cells(i, col)
                    ListBox_Sitdang.AddItem v
                End If
            Next i
        End If
End Sub

A partir de "Electrique" il y a un bug d'incompatibilité. Je pense que cela est dû plutôt à une erreur d’écriture des termes. Je regarde et reviens vers vous si besoin.

Merci.

re,

les nom sont différent,

CTN = "ElectriqueInstallation"

sur la feuille c'est "ElectricitéInstallations"

J'ai vu je suis en train de résoudre le problème, je clos le sujet.

Merci beaucoup