List box

Fermé
ninie95130 - 2 mai 2008 à 14:30
aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 - 2 mai 2008 à 19:34
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.
A voir également:

1 réponse

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
2 mai 2008 à 19:34
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
0