Remplir une ComboBox

Bonjour à tous.

Je dispose d'un formulaire avec une jolie ComboBox que j'aimerais remplir avec une liste de données. Cette liste est de longueur variable et quand elle s'étend verticalement, j'utilise un classique : "A1:A" & Range("A1").End(xlDown).row

L'ennui, c'est que ma liste de valeurs se dispose horizontalement et que la propriété (xlToRight).column me retourne un chiffre et non une lettre. Comment puis-je donc définir une liste horizontale de valeurs possibles pour ma ComboBox ?

Et puisque nous y sommes, les données sont de type DATE et dans le défilement de la liste, elles apparaissent bien sous cette forme mais une fois selectionnées, elles sont reconverties en INTEGER dans l'affichage de la ComboBox :(
Comment conserver leur format DATE à l'affichage ?

Merci par avance pour vos réponses

Pour la dernière colonne, utilise

Code:

---

DerniereColonne = Range("IV1").End(xlToLeft).Column

---

Pour la plage en ligne

Code:

---

1 2 3 4

Dim Plage as range Set Plage = Range(Cells(NoLigne, 1), _ Cells(NoLigne, Range("IV1").End(xlToLeft).Column))

---

A+

Edit
Pour ton cas de figure, tu as

Code:

---

1 2 3

Dim Plage as variant Plage = Range(Cells(NoLigne, 1), _ Cells(NoLigne, Range("IV1").End(xlToLeft).Column)).Address(False, False)

---

Merci, la réponse se situe certainement dans cette syntaxe mais l'ennui, c'est que ma ComboBox n'affiche que le 1er élément de ma ligne :?
Sitot que je définis une plage verticale, tout va bien pourtant...

Serait-ce la propriété "rowsource" qui ne serait pas adaptée ?

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize()   Dim Plage As Variant Plage = Range(Cells(4, 17), Cells(4, Range("Q4").End(xlToRight).Column)).Address(False, False) Me.ListeJours1.RowSource = Plage Me.ListeJours2.RowSource = Plage   End Sub

---

La valeur de la variable "Plage" est tout à fait conforme à ce que j'attend.



EDIT :

Il me reste la solution de boucler jusqu'à la fin de ma ligne en ajoutant les champs dans ma ComboBox grace à la méthode AddItem. C'est un peu lourd et si quelqu'un a plus élègant, je suis preneur :)

Auquel cas tu devras utiliser la première syntaxe puis

Code:

---

1 2 3 4 5 6

Dim Plage As Range, cell As Range, NoLig Set Plage = Range(Cells(NoLig, 1), _ Cells(NoLig, Range("IV1").End(xlToLeft).Column)) For Each cell In Plage ComboBox1.AddItem cell Next

---

Comme j'avais testé rowsource en ligne, j'avais ça ;)