Créer une listbox dans un userform

[Karine]

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

 

[herve]

bonjour

je t'envoi par mail le "coffret des listes" en esperant que cela t'aidera...

comme je te le disais, , moi j'utilise plutot des combobox avec la propriete rowsource...

bon courage
@+
herve

 

[raezen]

Bonjour
j'aimerais savoir comment faire pour creer un boutton qui affiche une liste entre certaine feuille et me permettrait d'aatenindre la dite feuille par un click

 

[job75]

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 :

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+

 

[BOISGONTIER]

Bonjour,

Formulaire liste multi-colonnes

Boisgontier

 

[raezen]

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

 

[job75]

merci mais j'aimerais savoir si cela est possible avec affichage d'un menu deroulant

Comme je l'ai dit il suffit de remplacer la ListBox par une ComboBox.

Salut JB.

 

[raezen]

ok merci bcp JB

salutation.

 

[raezen]

Comme je l'ai dit il suffit de remplacer la ListBox par une ComboBox.

Salut JB.

j'ai utiliser le combobox mais des que je choisi un élément de ma liste ca merenvoi directement sur la page en question.
moi j'aimerais qu'il y'ai un bouton OK pour qu’après avoir choisis j appuis sur mon bouton OK pour lancer la page

cordialement

 

[job75]

Bonjour raezen,

Il faut vraiment tout vous mâcher ?

Private Sub CommandButton1_Click() 'bouton OK
On Error Resume Next 'si la feuille n'existe pas
Sheets(ComboBox1.Text).Activate
End Sub

A+

 

[raezen]

Bonjour, voici ce que j'aimerai faire.
affichage d'un volet de choix puis validation de la page par clik sur OK

 

[job75]

Il faut vraiment tout vous mâcher ?

Private Sub CommandButton1_Click() 'bouton OK
On Error Resume Next 'si la feuille n'existe pas
Sheets(ComboBox1.Text).Activate
End Sub

 

[mutzik]

bonjour
pour info, cela existe nativement sur excel
click droit à gauche du premier onglet

 

[job75]

Bonjour mutzik,

A priori raezen souhaite une liste personnalisée comme au post #4 puisqu'il a dit au post #3 :

qui affiche une liste entre certaine feuille

A+