Remplir combobox avec des données en ligne

Bonsoir,

J'ai un petit souci: j'ai plusieurs combobox: certaines se remplissent avec des données en colonnes (là tout va bien avec ce code:

Private Sub ComboBox1_GotFocus()

Dim i As Range

With Sheets("toto")

Set i = .Range("L32:L33")

End With

ComboBox1.List = i.Value

End Sub

Et d'autres se remplissent avec des données en ligne. Je pensais donc tout bêtement mettre ce code ci:

Private Sub ComboBox2_GotFocus()

Dim i As Range

With Sheets("toto")

Set i = .Range("L34:M34")

End With

ComboBox2.List = i.Value

End Sub

Malheureusement, il n'y'a qu'une donnée qui s'affiche dans ma combobox (celle de la première cellule)

Pouvez vous m'aider? Merci d'avance ^^

Bonjour

Esaie avec Transpose

Private Sub ComboBox2_GotFocus()
Dim i As Range
With Sheets("toto")
Set i = .Range("L34:M34")
End With
ComboBox2.List = Application.Transpose(Range("L34:M34").Value)
End Sub

Cordialement

Je te remercie c'est exactement ce qu' il me fallait!

Merci encore!

Cordialement,