Créer une listbox dans un userform

H

herve

Guest

• 19 Janvier 2004

• #2

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

 

Vote positif 0 Vote négatif

R

raezen

XLDnaute Nouveau

• 14 Mai 2020

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mai 2020

• #4

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

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 14 Mai 2020

• #5

Bonjour,

Formulaire liste multi-colonnes

Boisgontier

 

Vote positif 0 Vote négatif

R

raezen

XLDnaute Nouveau

• 14 Mai 2020

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Mai 2020

• #7

raezen à dit:

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

Cliquez pour agrandir...

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

Salut JB.

 

Vote positif 0 Vote négatif

R

raezen

XLDnaute Nouveau

• 14 Mai 2020

• #8

ok merci bcp JB

salutation.

 

Vote positif 0 Vote négatif

R

raezen

XLDnaute Nouveau

• 15 Mai 2020

• #9

job75 à dit:

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

Salut JB.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Mai 2020

• #10

Bonjour raezen,

Il faut vraiment tout vous mâcher ?

VB:

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

A+

 

Vote positif 0 Vote négatif

R

raezen

XLDnaute Nouveau

• 18 Mai 2020

• #11

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

 

Pièces jointes

• essai.PNG

  9.2 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mai 2020

• #12

job75 à dit:

Il faut vraiment tout vous mâcher ?

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 18 Mai 2020

• #13

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Mai 2020

• #14

Bonjour mutzik,

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

raezen à dit:

qui affiche une liste entre certaine feuille

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif