Microsoft 365 Remplir un listbox via combobox (B1 à ...) (Résolu)

[Cougar]

Bonjour le forum,

Voici un autre problème avec un listbox. D'un combobox je fais la sélection qui est en colonne et non en rangée (B1, C1, D1, ...). Je dois ajouter les noms se trouvant dans la colonne A et contenant une date. Exemple : je sélectionne L et le listbox doit contenir a, si je sélectionne Mezz, le listbox doit contenir b et c. Je ne peux modifier le tableau.

Comment écrire le code (voir le fichier).

Merci

 

[fanch55]

Bonsoir,
code à remplacer dans l'userform :

Private Sub ComboBox1_Change()
    ListBox1.Clear
    With ThisWorkbook.Sheets("feuil1")
        Set Cel = .Rows(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole)
        If Not Cel Is Nothing Then
            Set Poste = .Columns(Cel.Column).Find("*", , xlValues, xlWhole)
            Do While Not Poste Is Nothing
                ListBox1.AddItem .Cells(Poste.Row, "A")
                Set Poste = .Columns(Cel.Column).FindNext(Poste)
                If Poste.Address = Cel.Address Then Set Poste = Nothing
            Loop
        End If
    End With
End Sub

Pssstt, je ne pense pas que ChatGpt ou Google puisse trouver Compétantes, cela prête à confusion ...

 

[Cougar]

Bonsoir fanch55,

Le tout fonctionne très bien. J'ai aussi corrigé ma faute d'orthographe.

Merci