List combobox source horizontale

Version imprimable

07/12/2011, 08h02
flandreau

List combobox source horizontale

Bonjour,

Je souhaite incrémenter ma liste de combobox1 d'après une zone de mon fichier excel qui est "A2:Z2"
Habituellement j'utilise ce code :

Code:

ComboBox1.List = Sheets("T_Agents").Range("B3:B" & Sheets("T_Agents").Range("B42").End(xlUp).Row).Value

mais ce code ne fonctionne pas quand ma plage source est horizontale.

Quelqu'un a une idée ?

D'avance merci.

liste horizontale

Bonjour Flandreau, Bonjour le Forum,

Tu peux utiliser la fonction Transpose.

(à adapter)

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim dercel As Range
With Sheets("T_Agents")
    Set dercel = .Cells(2, .Columns.Count).End(xlToLeft)
    ComboBox1.List = WorksheetFunction.Transpose(.Range("A2", dercel))
End With
Set dercel = Nothing
End Sub

Une autre méthode consisterait à enrichier ta liste d'items.
(Voir le tutoriel de Sylkiroad)

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim dercol As Integer
With Sheets("T_Agents")
    dercol = .Cells(2, .Columns.Count).End(xlToLeft).Column
    For i = 1 To dercol
        ComboBox1.AddItem .Cells(2, i)
    Next i
End With
End Sub

Bonne journée.

07/12/2011, 12h23
flandreau

Merci pour cette réponse précise, je vais testé tout ca.

@+