Application RowSource uniquement en ligne

[Mady]

Bonjour à tous,

Voilà je tourne en rond au niveau des formulations et utilisation de cette commande, je n'arrive pas à l'appliquer uniquement en ligne 😡

Me.ListBox1.RowSource = "A1:A" & [A65000].End(xlUp).Row

En application dynamique pour la colonne sa marche, mais j'aimerais transposé le principe pour les lignes. Est-ce possible, y a t-il une formulation propre à l'application ligne ?

Cordialement

 

[laetitia90]

Re : Application RowSource uniquement en ligne

bonjour Mady. essai comme cela!!!

Private Sub UserForm_Initialize()
    ListBox1.List = Application.Transpose(Range([A1], [IV1].End(xlToLeft)))
End Sub

je pense que tu utilise excel 2003

 

[Pierrot93]

Re : Application RowSource uniquement en ligne

Bonjour Mady, Laetitia

une autre solution avec la propriété "Column" :

Private Sub UserForm_Initialize()
    ListBox1.Column = Range("A1").Resize(1, Range("IV1").End(xlToLeft).Column).Value
End Sub

bonne soirée
@+

 

[Mady]

Re : Application RowSource uniquement en ligne

Je vous remercie pour vos réponses je vais tester sa tout de suite 😛
edit: super! merci encore à vous!