Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

BIG BLEM, combo deux colonnes

2 réponses
Avatar
lotfiloulou
Amis d'EXCELlence, Bonjour,
ze vous explique; j'ai u_n big programme qui injecte des valeurs
provenant d'une ligne dans une feuille qui me renvoit des r=E9sultats
sous forme de tableau =E0 deux colonnes. j'utilise deux combobox pour
cela. un combobox pour appeler le programme et coller les valeurs du
tableau dans le deuxi=E8me combo.le deuxi=E8me servira =E0 choisir un couple
de valeurs ( combo =E0 deux colonnes). le programme du premier ressemble
=E0 =E7a:

Private Sub ComboBox74_Change()
If ComboBox74.Value =3D "choix" Then
Exit Sub
Else: Cells(14, 30) =3D Cells(14, 12) 'cellule connect=E9 =E0 une autre
feuille
Cells(14, 31) =3D ComboBox74.Value 'cellule connect=E9 =E0 une autre
feuille
Cells(14, 32) =3D Cells(14, 11) 'cellule connect=E9 =E0 une
autre feuille
ComboBox72.ColumnCount =3D 2
ComboBox72.Clear
' remplissage 1=B0 colonne
ComboBox72.AddItem (Cells(84, 14))
ComboBox72.AddItem (Cells(85, 14))
ComboBox72.AddItem (Cells(86, 14))
ComboBox72.AddItem (Cells(87, 14))
ComboBox72.AddItem (Cells(88, 14))
ComboBox72.AddItem (Cells(89, 14))
ComboBox72.AddItem (Cells(90, 14))
end if
end sub

Mon probleme: comment remplire la deuxi=E8me colonne ?
comment associer deux cellules pour le choix
d'un couple?

Merci d'avoir tout lu, et merci pour vos r=E9ponses.

2 réponses

Avatar
JB
Bonjour,

Déclarer 2 colonnes dans les propriétés (columnCount)
Déclarer la largeur des colonnes (columnWidth)

Me.ComboBox1.AddItem
Me.ComboBox1.List(0, 0) = "aa1" ' colonne1
Me.ComboBox1.List(0, 1) = "aaa1" ' colonne2
Me.ComboBox1.AddItem
Me.ComboBox1.List(1, 0) = "bb1"
Me.ComboBox1.List(1, 1) = "bbb1"
Me.ComboBox1.AddItem
Me.ComboBox1.List(2, 0) = "cc1"
Me.ComboBox1.List(2, 1) = "ccc1"

http://boisgontierjacques.free.fr/pages_site/Listes2.htm

JB
On 28 mai, 08:59, wrote:
Amis d'EXCELlence, Bonjour,
ze vous explique; j'ai u_n big programme qui injecte des valeurs
provenant d'une ligne dans une feuille qui me renvoit des résultats
sous forme de tableau à deux colonnes. j'utilise deux combobox pour
cela. un combobox pour appeler le programme et coller les valeurs du
tableau dans le deuxième combo.le deuxième servira à choisir un cou ple
de valeurs ( combo à deux colonnes). le programme du premier ressemble
à ça:

Private Sub ComboBox74_Change()
If ComboBox74.Value = "choix" Then
Exit Sub
Else: Cells(14, 30) = Cells(14, 12) 'cellule connecté à une aut re
feuille
Cells(14, 31) = ComboBox74.Value 'cellule connecté à une autre
feuille
Cells(14, 32) = Cells(14, 11) 'cellule connecté à une
autre feuille
ComboBox72.ColumnCount = 2
ComboBox72.Clear
' remplissage 1° colonne
ComboBox72.AddItem (Cells(84, 14))
ComboBox72.AddItem (Cells(85, 14))
ComboBox72.AddItem (Cells(86, 14))
ComboBox72.AddItem (Cells(87, 14))
ComboBox72.AddItem (Cells(88, 14))
ComboBox72.AddItem (Cells(89, 14))
ComboBox72.AddItem (Cells(90, 14))
end if
end sub

Mon probleme: comment remplire la deuxième colonne ?
comment associer deux cellules pour le choix
d'un couple?

Merci d'avoir tout lu, et merci pour vos réponses.


Avatar
lotfiloulou
Merci beaucoup JB,
la solution avec Me.listbox1.list=TBL est trés interessante car j'ai
50 bombo à programmer, puis-je utiliser me.combobox1.list= Tbl? et
dans ce cas la comment définir mon tableau pour que vba trouve TBL?
encore merci JB