Plusieurs combobox avec le même additem

[RONIBO]

Bonjour,

Je me pause une question, est-ce que c'est possible une seule liste additem, puis les appliquer sur tous les combobox sans passer par des cellules ?

Merci d'avance

 

[Pierrot93]

Re : Plusieurs combobox avec le même additem

Bonjour,

regarde peut être ceci... enfin si j'ai bien compris...

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A1:A10").Value
ComboBox2.List = ComboBox1.List
End Sub

bonne journée
@+

 

[RONIBO]

Re : Plusieurs combobox avec le même additem

Bonjour Pierrot93

Merci pour le code, mais on peut éviter de passer par une cellule?

 

[Pierrot93]

Re : Plusieurs combobox avec le même additem

Re,

bah... passer par un "array" peut être :

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1, 2, 3, 4)
ComboBox2.List = ComboBox1.List
End Sub

 

[RONIBO]

Re : Plusieurs combobox avec le même additem

J'ai trouvé grâce à ton code 🙂
Merci

 

[RONIBO]

Re : Plusieurs combobox avec le même additem

Pas vu ta réponse,

Moi j'ai mis dès additem :

ComboBox1.AddItem "Loyer"
ComboBox1.AddItem "Téléphone"
ComboBox1.AddItem "Carburant"
ComboBox2.List = ComboBox1.List

 

[Pierrot93]

Re : Plusieurs combobox avec le même additem

Re,

pour du texte placer les données entre guillemets :

ComboBox1.List = Array("Loyer", "Téléphone", "Carburant")
ComboBox2.List = ComboBox1.List

 

[RONIBO]

Re : Plusieurs combobox avec le même additem

D'accord merci, c'est quoi la différence entre les deux procédures Pierrot93 ?

 

[RONIBO]

Re : Plusieurs combobox avec le même additem

Question bête j'ai compris la différence 🙂