Créer une listbox dans un userform

K

Karine

Guest
Bonjour à tous!

Etant débutante en VBA je me permets de vous solliciter. Je souhaite créer une listebox au sein d'un userform et je n'arrive pas à afficher les choix possibles dans la listbox.
J'ai déjà demandé de l'aide, cependant mes essais n'ont pas été fructueux.

L'un d'entre vous a-t-il une solution?

Merci d'avance.

A bientôt,
Karine
 

job75

XLDnaute Barbatruc
Bonjour raezen, bienvenue sur XLD,

Il faut créer un UserForm avec soit une ListBox soit une ComboBox dont la liste sera composée des noms des feuilles concernées.

Avec une ListBox le code de l'UserForm sera par exemple :
VB:
Private Sub ListBox1_Change()
On Error Resume Next 'si la feuille n'existe pas
Sheets(ListBox1.Text).Activate
End Sub

Private Sub UserForm_Initialize()
ListBox1.List = Array("Accueil", "Feuil2", "Feuil3", "Feuil4", "Feuil5")
End Sub
A+
 

Pièces jointes

  • ListBox(1).xlsm
    27.1 KB · Affichages: 27

raezen

XLDnaute Nouveau
merci mais j'aimerais savoir si cela est possible avec affichage d'un menu deroulant
c'est a dire je click sur le bouton de control et il m'affiche le menu me proposant des feuilles
puis je selectionne la feuille et je clik sur un bouton OK et il me renvoi vers la feuille.

Merci d'avance
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088