Discussion :

[Del4king]

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

[ouskel'n'or]

Pour la dernière colonne, utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour la plage en ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Del4king]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Auquel cas tu devras utiliser la première syntaxe puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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