list box

Question

Bonjour,

Je débute dans VBA, je viens juste d'avoir ma formation.

J'essaye de faire une chose surement toute simple pour vous, mais moi ça fait deux jours que je planche.

j'ai fabriqué un formulaire dans le quel j'ai mis une listbox, j'aimerais faire apparaitre dans cette listbox la colonne F de mon fichier source.

J'ai tapé :

Private Sub F_client_Click()
F_client.RowSource = Range("f1").End(xlDown).Address
End Sub

et bien sur ça ne marche pas.

Merci d'avance à tous de votre aide.

aquarelle · Answer

Bonsoir,
Il faut mettre ce code dans le code de la UserForm :
Private Sub UserForm_Initialize()
    Dim DerCell As String
    DerCell = Range("F1").End(xlDown).Address
    ListBox1.RowSource = "F1:" & DerCell
End Sub

Ensuite pour appeler la UserForm, il faut mettre ce code dans un module :
Sub RechercheList()
    Load UserForm1
    UserForm1.Show
End Sub

Voilà j'espère que cela t'aidera.

Bonne soirée

List box

1 réponse

Discussions similaires

Newsletters