Discussion :

[doudoustephane]

Bonjour.
Je cherche à remplir un combobox à 2 colonnes mais je n'y parviens pas.
J'ai essayé de faire avec un rowsource mais j'ai un message d'erreur comme quoi le rowsource n'est pas gérer par l'objet. Et de même avec la propriété column.
J'ai de plus essayé avec un Range("A1:B10") mais rien à faire, aussi une erreur.
Je suis donc à court d'idée.
Si quelqu'un en a une SVP ???
Merci d'avance

[laloune]

yo

c'est très très compliqué... non, je plaisante, c'est assez simple en fait :

en utilisant la propriété .list, tu peux indexer tes éléments, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For index = 0 to 3
 
With MaCombo
  .AddItem
  .List(index,0)= "Ligne " & index & "colonne 0"
  .List(index,1)= "Ligne " & index & "colonne 1"
  .List(index,2)= "Ligne " & index & "colonne 2"
End With
 
Next

non ?

[doudoustephane]

ok, merci, je teste dans la soirée et te donne la réponse.

[fring]

Bonsoir tlm,

Je me permet une petite précision, voir même deux c'est soirée promo.

Si tu veux 2 colonnes dans ton Combo, la première chose à faire est de modifier la propriété ColumnCount et de la fixer à 2.

Ensuite le remplissage du Combo dépend si il est inséré sur un UserForm ou si il est directement inséré sur la feuille via le menu Boîte à outils Contrôle pour lequel la propriété RowSource n'existe pas :

1. Combo sur UserForm --> UserForm1.ComboBox.RowSource = "A1:B10"
2. Combo sur feuille --> ActiveSheet.ComboBox1.ListFillRange = "A1:B10"

[zyhack]

bonsoir

je viens de faire un petit teste et il en ressort que si le nom de la feuille n'exite pas aucun défaut n'est créé et dans ce cas la liste est effectivement vide.

donc ma question est la suivante : est-ce que tu as réellement une feuille qui s'appelle Feuil11 dans ton classeur?

[doudoustephane]

oui, j'ai revérifié plusieurs fois et la complétition automatique du code me le confirme aussi

[doudoustephane]

yo

c'est très très compliqué... non, je plaisante, c'est assez simple en fait :

en utilisant la propriété .list, tu peux indexer tes éléments, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For index = 0 to 3
 
With MaCombo
  .AddItem
  .List(index,0)= "Ligne " & index & "colonne 0"
  .List(index,1)= "Ligne " & index & "colonne 1"
  .List(index,2)= "Ligne " & index & "colonne 2"
End With
 
Next

non ?

en fait, et je viens de retester au cas où, mais list ne passer pas non plus.

Bonsoir tlm,

Je me permet une petite précision, voir même deux c'est soirée promo.

Si tu veux 2 colonnes dans ton Combo, la première chose à faire est de modifier la propriété ColumnCount et de la fixer à 2.

Ensuite le remplissage du Combo dépend si il est inséré sur un UserForm ou si il est directement inséré sur la feuille via le menu Boîte à outils Contrôle pour lequel la propriété RowSource n'existe pas :

1. Combo sur UserForm --> UserForm1.ComboBox.RowSource = "A1:B10"
2. Combo sur feuille --> ActiveSheet.ComboBox1.ListFillRange = "A1:B10"

OK, merci de ta réponse.
Pour le columnCount, c'est ok. J'ai aussi régler le BoundColumn et TextColumn.
Par contrre, bien que je n'ai pas d'erreur, la combo ne se rempli pas.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        Feuil4.ComboBox_departement1.ListFillRange = "Feuil11!A1:B" & i 'Feuil11.Cells(i, 1)

Il s'agit en fait d'aller chercher sur une autre feuille et c'est cela qui pose problème car j'ai également fait le test sur la même feuille et là ca marche.
Savez-vous pourquoi ?
Merci