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"

[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

[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

[fring]

Le problème vient sans doute de ce que renvoit ta variable i
Juste avant la ligne de code qui remplit ton combo, teste i pour voir ce que ça donne

Code :

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

1
2
MsgBox i
Feuil4.ComboBox_departement1.ListFillRange = "Feuil11!A1:B" & i

Cet autre petit test devrait te donner un résultat positif

Code :

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

1
2
3
4
Sub test()
i = 10
Feuil4.ComboBox_departement1.ListFillRange = "Feuil11!A1:B" & i
End Sub

Autre source d'erreur éventuelle, dans ton code tu mélanges le "CodeName" de la feuille et le "Name"
Feuil4 = CodeName --> Feuil4(Feuil36)
Par contre Feuil11 doit être le nom de la feuille --> Feuil36(Feuil11)
Ce point là est ok ?

[doudoustephane]

Le problème vient sans doute de ce que renvoit ta variable i
Juste avant la ligne de code qui remplit ton combo, teste i pour voir ce que ça donne

Code :

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

1
2
MsgBox i
Feuil4.ComboBox_departement1.ListFillRange = "Feuil11!A1:B" & i

Cet autre petit test devrait te donner un résultat positif

Code :

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

1
2
3
4
Sub test()
i = 10
Feuil4.ComboBox_departement1.ListFillRange = "Feuil11!A1:B" & i
End Sub

Non, i est à la bonne valeur et vaut 106, ce qui est correct, je l'ai déjà vérifié

Autre source d'erreur éventuelle, dans ton code tu mélanges le "CodeName" de la feuille et le "Name"
Feuil4 = CodeName --> Feuil4(Feuil36)
Par contre Feuil11 doit être le nom de la feuille --> Feuil36(Feuil11)
Ce point là est ok ?

ah, là, par contre, j'ai utilisé le codename de la feuille.
je fais le test avec le nom de celle-ci et revient vous donner le résultat...

[doudoustephane]

j'ai donc mis le nom de la feuille et cela fonctionne très bien en effet.
Merci à toi.
Par contre, je ne souhaite afficher que la première colonne mais bon, je pense que ça je vais trouver.
Dans tous les cas, je passe le sujet en résolu
Merci à vous

[fring]

j'ai donc mis le nom de la feuille et cela fonctionne très bien en effet.
Merci à toi.
Par contre, je ne souhaite afficher que la première colonne mais bon, je pense que ça je vais trouver.
Dans tous les cas, je passe le sujet en résolu
Merci à vous

ColumnCount = 1

Ou par exemple, 3 colonnes mais on ne veut afficher que la 1 et la 3
ColumnCount = 3
ColumnWidth = 100 pt;0 pt;100 pt (100 pt à adapter selon la largeur du Combo et la largeur des données à afficher)

[doudoustephane]

ColumnCount = 1

Ou par exemple, 3 colonnes mais on ne veut afficher que la 1 et la 3
ColumnCount = 3
ColumnWidth = 100 pt;0 pt;100 pt (100 pt à adapter selon la largeur du Combo et la largeur des données à afficher)

Oui, merci, c'est ce que j'avais fait juste après.
Merci à toi