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
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
A voir également:
- List box
- List disk - Guide
- Adresse ip box - Guide
- Tera box - Télécharger - Stockage
- Directory list & print - Télécharger - Divers Utilitaires
- Up to box - Guide
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
2 mai 2008 à 19:34
Bonsoir,
Il faut mettre ce code dans le code de la UserForm :
Ensuite pour appeler la UserForm, il faut mettre ce code dans un module :
Voilà j'espère que cela t'aidera.
Bonne soirée
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