Combobox multicolonne

4 réponses

Polemos

04/12/2004 à 11:14

Bon WE à tous,

J'ai un problème tout bête :
Comment remplir un combobox avec 3 colonnes avec data1, data2, data3 pour la 1ère ligne ?

J'ai essayé :
combobox.additems "data1", "data2, "data3"

sans succès...

Merci de votre aide.

Cordialement,
Polemos

4 réponses

04/12/2004 à 11:46

Dans les proprétés du Combo :
ColumnCount : 3
RowSource (à adapter) : Feuil1!A1:C20

AV

Polemos

04/12/2004 à 11:50

Merci AV pour ta réponse si rapide.

Je ne souhaite pas passer par une feuille excel mais utiliser les valeurs issues de mon
programme.

Ma proprité columcount est bien a 3.

Cordialement
Polemos

On Sat, 4 Dec 2004 11:46:45 +0100, "AV" wrote:

Dans les proprétés du Combo :
ColumnCount : 3
RowSource (à adapter) : Feuil1!A1:C20

AV

04/12/2004 à 11:58

Sub zzz_Combo()
Dim Tbl1, Tbl2() As String
Dim I As Integer, J As Integer

Tbl1 = Array(Array("Fifi", "Riri", "Loulou"), _
Array("Tonton", "Tati", "Tata"), _
Array("Zozo", "Zaza", "Zizi"))

ReDim Tbl2(0 To UBound(Tbl1), 0 To UBound(Tbl1(0)))
For I = 0 To UBound(Tbl2)
For J = 0 To UBound(Tbl2, 2)
Tbl2(I, J) = Tbl1(I)(J)
Next J
Next I
Erase Tbl1
UserForm1.ComboBox1.List = Tbl2
UserForm1.Show
End Sub

AV qui s'évacue....

Polemos

04/12/2004 à 13:09

Merci AV pour le temps que tu prends pour nous répondre !

Cordialement,
Polemos

On Sat, 4 Dec 2004 11:58:33 +0100, "AV" wrote:

Sub zzz_Combo()
Dim Tbl1, Tbl2() As String
Dim I As Integer, J As Integer

Tbl1 = Array(Array("Fifi", "Riri", "Loulou"), _
Array("Tonton", "Tati", "Tata"), _
Array("Zozo", "Zaza", "Zizi"))

ReDim Tbl2(0 To UBound(Tbl1), 0 To UBound(Tbl1(0)))
For I = 0 To UBound(Tbl2)
For J = 0 To UBound(Tbl2, 2)
Tbl2(I, J) = Tbl1(I)(J)
Next J
Next I
Erase Tbl1
UserForm1.ComboBox1.List = Tbl2
UserForm1.Show
End Sub

AV qui s'évacue....

Combobox multicolonne

4 réponses

Veuillez sélectionner un problème