modifier une propriété d'une listebox sans passer par une sélection

[cabsen]

Bonjour à tous,

Je coince sur un détail. Je modifie la propriété "ListFillRange" d'une listebox sans difficulté à partir d'un bout de macro enregistrée :

ActiveSheet.Shapes.Range(Array("List Box 3")).Select
    With Selection
        .ListFillRange = "eExercices"
        .LinkedCell = "$B$10"
        .MultiSelect = xlNone
        .Display3DShading = True
    End With

C'est efficace mais je souhaiterais amélioré un détail esthétique : éviter le select disgracieux à l'affichage. J'ai alors tenté de nombreuses formes d'écriture comme celle-ci :

ActiveSheet.Shapes.Range(Array("List Box 3")).ListFillRange = "eExercices"

…mais rien y fait et je récupère une erreur d'exécution "438" : Propriété ou méthode non gérée par cet objet ?

Il n'y a rien d'urgent et je m’accommoderai par défaut de la première solution qui est fonctionnelle, mais si quelqu'un sait comment faire, je suis preneur.

Merci d'avance

 

[Victor21]

Re : modifier une propriété d'une listebox sans passer par une sélection

Bonsoir, cabsen.

Avez-cous essayé :

With ActiveSheet.Shapes.Range(Array("List Box 3"))
         .ListFillRange = "eExercices"
         .LinkedCell = "$B$10"
         .MultiSelect = xlNone
         .Display3DShading = True
     End With

Moi, non, faute de fichier joint...

 

[cabsen]

Re : modifier une propriété d'une listebox sans passer par une sélection

Merci pour votre réponse mais malheureusement j'obtiens la même erreur (438).

 

[Victor21]

Re : modifier une propriété d'une listebox sans passer par une sélection

Re,

Je ne parviens pas non plus à m'exonérer de la sélection préalable :

Sub Macro2()
ActiveSheet.Shapes("List Box 1").Select
With Selection
        .ListFillRange = "eExercices"
        .LinkedCell = ""
        .MultiSelect = xlNone
        .Display3DShading = True
    End With
End Sub

 

[cabsen]

Re : modifier une propriété d'une listebox sans passer par une sélection

Bonsoir,

Et merci pour l'inspiration née des échanges…

Sheets("Feuil1").Shapes("List Box 1").ControlFormat.ListFillRange = "eExercices"

A priori cela fonctionne sans passer par une sélection 🙂