Macro & ComboBox à liste variable

[Magic_Doctor]

Bonjour à tous,

J'ai un ComboBox (Controles ActiveX) dont la longueur de la liste, suivant les événements, change.

Dans une cellule est récupérée l'adresse de cette liste.
Je voudrais actualiser automatiquement par macro le "ListFillRange" de la ComboBox.

J'ai bien tenté de la manière suivante :

Sub Macro1()

ActiveSheet.Shapes("ComboBox1").Select

'W33 étant la cellule où est stockée l'adresse de la liste, par exemple : $AF$12:$AF$48
ListFillRange = [W33].Value

End Sub

... mais sans succés...

Un grand merci pour celui ou celle qui m'aidera à atteindre le succés.

Bonne fin d'après-midi.

 

[Pierrot93]

Re : Macro & ComboBox à liste variable

Bonsoir,

peut être ainsi :

Feuil1.ComboBox1.ListFillRange = Feuil1.Range("w33").Value

bonne soirée
@+

 

[Magic_Doctor]

Re : Macro & ComboBox à liste variable

Merci Pierrot pour cette tentative qui n'a malheuresement pas réussi.

J'ai tenté de maintes manières en m'inspirant de votre proposition :

1/ Enero.ComboBox1.ListFillRange = Enero.Range("W33").Value
(la feuille s'appelle "Enero")

2/ ActiveSheet.Shapes("ComboBox1").ListFillRange = Range("W33").Value

... Toujours le même message d'erreur :

"Erreur 438. L'objet n'admet pas cette propriété ou méthode"
(Traduit de l'espagnol).

 

[Lii]

Re : Macro & ComboBox à liste variable

Salut,

et ainsi ?

Sub Macro1()
  ActiveSheet.Shapes("ComboBox1").Select
  Selection.ListFillRange = [W33]
End Sub

 

[Magic_Doctor]

Re : Macro & ComboBox à liste variable

Yeeessss!!!

Merci Lii, ça marche !!

Bonne nuit.