Application RowSource uniquement en ligne

Mady · 21 Juin 2010

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 · 21 Juin 2010

Re : Application RowSource uniquement en ligne

bonjour Mady. essai comme cela!!!

Code:

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

je pense que tu utilise excel 2003

Pierrot93 · 21 Juin 2010

Re : Application RowSource uniquement en ligne

Bonjour Mady, Laetitia

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

Code:

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

bonne soirée
@+

Mady · 22 Juin 2010

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!

Application RowSource uniquement en ligne

Mady

Guest

laetitia90

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Mady

Guest

Discussions similaires

Application RowSource uniquement en ligne

Mady

Guest

laetitia90

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Mady

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency