rowsource combobox

[Jer]

Bonjour à tous

je souhaite affecter à un combobox un "rowsource",
- d'une part dont les cellules ne se suivent pas (cellules isolées)
- et d'autre part dont le contenu, issu de ma feuille, change en fonction de mes choix précédents

peut-on affecter d'une variable, un rowsource. Cette variable se "chargerait" alors des données à afficher dans le combo.

dim données as range
--- (...) pg de chargement de le variable données
combobox1.rowsource = ("données")
(...)

merci à tous
Jer

 

[FDIn]

Bonjour,

je ne suis pas certain d'avoir bien compris votre but.
Pourquoi ne pas utiliser :

a) des variables de type string pour stocker les valeurs à afficher dans votre combobox.

b) la méthode Additem pour ajouter ces valeurs à votre combobox, et remove item pour supprimer les valeurs précédentes ?

...???

 

[Jer]

Bonjour,

la méthode AddItem n'est elle pas exclusivement reservée à un remplissage d'une selection continue (du type A1:A22) ?
Je n'arrive pas à y affecter des cellules isolées (A1;A5;B58). Est ce possible ?

et ensuite peut-on carrément y affecter une variable qui évoluera (changera) en fonction de conditions que je lui appliquerais.
c-a-d :
ComboBox1.AddItem "variable"

merci de votre aide

 

[Jer]

je viens de m'apercevoir que ma réponse est érronée

en effet en disant AddItem je pensait à RowSource

je voudrais non pas faire
ComboBox1.AddItem "variable"
mais
ComboBox1.RowSource = ("variable")

et puis-je affecter des valeurs isolées dans ce RowSource
ComboBox1.RowSource = ("a1;a58;b5")

merci et désolé, je débute, je n'ai pas encore les reflexes !!

 

[Fred]

Slt, essaye de remplacer dans: ("a1;a58;b5") tes ; par des , comme ceci:
("a1,a58,b5")

 

[Jer]

cela ne marche pas !

 

[Ti]

Essaie d'utiliser la méthode Union pour créer une plage de cellules non contigues, mais je n'ai pas testé et je ne sais pas si ton combo va l'accepter

 

[STéphane]

bonjour


un des moyens de faire est le suivant :

dim toto as range
toto=range("A1,A5,B58")

for each cl in toto
ComboBox1.AddItem cl.value
next cl


NB : à ma connaissance, il est impossible d'affecter en plage source une zone discontinue

bye
Stéphane

 

[Jer]

merci pour ta réponse
j'arrive desormais à affecter une plage discontinue grace à ce code :

dim toto as range
set toto=range("A1,A5,B58")

for each cl in toto
ComboBox1.AddItem cl.value
next cl

par contre il m'a fallut rajouter le "set" avant toto sinon il ne voulait pas executer la macro

merci de ton aide