ListFillRange avec plage nommée ?

[RENAUDER]

Bonjour,

Dans une feuille, j'ai une ComboBox (ActiveX) et je souhaiterai mettre pour la propriété ListFillRange, non pas Data!D1😀6 mais le nom d'une plage nommée LstResp car cette plage peu évoluer.
Tout ce que j'ai trouvé sur Internet ne m'aide pas ou le code trouvé génère des erreurs alors je fais appel à la communauté.
D'avance merci

 

[RENAUDER]

Re : ListFillRange avec plage nommée ?

Bonjour,
Ne cherchez pas, j'ai trouvé.
Je vous livre le code avec une plage nommée LstResponsables

 Sheets("Bilan").Activate
    ActiveSheet.Shapes("CboResp").Select
    With Selection
        Sheets("Bilan").Select
        .ListFillRange = "LstResponsables"
        .LinkedCell = "Data!E1"
    End With