Souci avec un ComboBox

[Magic_Doctor]

Bonsoir,

J'ai un problème avec un ComboBox.

Si j'écris, dans une macro dans un module (non pas de feuille) :

Worksheets(1).OLEObjects("ComboBox1").Visible = True/False 'ça marche
Worksheets(1).OLEObjects("ComboBox1").Object.ListIndex = 0 'ça marche

Mais pour purger la liste :
Worksheets(1).OLEObjects("ComboBox1").Object.ListFillRange = "" 'ça ne marche pas

Et pour la remplir avec le contenu d'une plage qui se nomme "plage" :
Worksheets(1).OLEObjects("ComboBox1").Object.ListFillRange = plage.Address 'ça ne marche pas

Quelqu'un pourrait me venir en aide ?

Merci d'avance.

 

[Stakov]

Re : Souci avec un ComboBox

Salut Magic_Doctor,

As tu essayé d'indiquer uniquement «plage» au lieu de «plage.address»?

Quant à purger, as tu essayé des arguments du type «null» ou «nothing» ? Sinon une rustine un peu sale serait de remplacer la plage par une plage vide.

Ce je sont que des idées, je ne peux pas tester dans l'immédiat sur Excel.

 

[Magic_Doctor]

Re : Souci avec un ComboBox

Bonsoir Stakov,

J'ai essayé avec :
Worksheets(1).OLEObjects("ComboBox1").Object.ListF illRange = plage
et même (sait-on jamais...) Worksheets(1).OLEObjects("ComboBox1").Object.ListF illRange = [plage]

Ça plante !

Je pense que pour un problème aussi simple (car il l'est !) il doit y avoir une solution simple sans passer par des bidouillages à la mords-moi-le-nœud.
Mais c'est incroyable que la solution soit si peu évidente à trouver. C'est à croire que les ComboBox sont en fait très peu utilisés...

Mais merci pour ton intérêt.

 

[Pierrot93]

Re : Souci avec un ComboBox

Bonjour,

ceci fonctionne chez moi sous 2003 :

Dim o As OLEObject
Set o = Worksheets(1).OLEObjects("ComboBox1")
o.ListFillRange = "plage"

bonne journée
@+

 

[Magic_Doctor]

Re : Souci avec un ComboBox

Bonjour Pierrot93,

Merci pour ta réponse. Ça avance !
J'ai essayé ta solution et ai dû faire une petite modification pour que ça marche (en tout cas chez moi) :

o.ListFillRange = plage.Address

Ce set n'est pas toujours très clair. Cet intemporel set comme son homonyme immortel de la Bible !

Mais avouons que tout ça est un peu tordu :
Je veux voir ou occulter le ComboBox, je n'ai pas à le déclarer.
Je veux sélectionner tel item du ComboBox, je n'ai pas à le déclarer.
Je veux modifier la liste du ComboBox, et là il faut que je le déclare...!!!

Une histoire à fumer la moquette avec un truc très fort au milieu !

Mais un grand merci tout de même.

 

[Pierrot93]

Re : Souci avec un ComboBox

Re,

sous 2003 et 2010, fonctionne aussi ainsi (enfin chez moi...)

Worksheets(1).OLEObjects("ComboBox1").ListFillRange = "plage"

 

[Magic_Doctor]

Re : Souci avec un ComboBox

Bonjour Pierrot93,

Bizarrement, chez moi il n'y a que comme ça que ça fonctionne :

Sub ActionMiFrase()

Dim nblgn As Byte, plage As Range, combo As OLEObject

nblgn = NbMots([MiFrase])
Set plage = [ListePos].Resize(nblgn)
Set combo = Worksheets(1).OLEObjects("ComboBox1")

combo.ListFillRange = ""
combo.ListFillRange = plage.Address
combo.Object.ListIndex = 0 'là c'est du délire (après combo il faut mettre Object...)

End Sub

 

[Pierrot93]

Re : Souci avec un ComboBox

Re,

sans doute un bogue 2007... ou bien une spécificité.... pas la version disponible pour pouvoir tester...

bonne soirée ou plutôt bon après midi pour toi...

@+

 

[Magic_Doctor]

Re : Souci avec un ComboBox

Bonsoir Pierrot93,

Merci de t'intéresser à ce fil, pas des plus passionnants je l'avoue.
Bon, oublions les bizarreries d'Excel ; l'essentiel est de finir par trouver une solution qui marche.

Bonne soirée.