Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que débutant en VBA !!! -- Merci pour vos réponses.
Yvan; Un ListBox et définir les propriétés ListStyle = 1 et MultiSelect = 1
MP
"Yvan" a écrit dans le message de news:
Bonjour,
Je veux inclure une liste d'éléments dans un Userform et faire apparaitre une case à cocher devant chaque élément de la liste.
L'objectif étant de faire sélectionner à l'utilisateur autant d'élements qu'il le souhaite.
Quelqu'un a-t-il une solution ???
-- Merci pour vos réponses.
anonymousA
Bonjour,
Quand sur un userform , tu mets un listbox, celui-ci a des propriétés qui sont visibles dans la fenêtre Propriétés de l'éditeur VBE.Si tu ne vois pas cette fenêtre , clique dans le menu VBE sur Affichage/Fenetre Propriétés. Une fois ceci fait, les propriétés de l'objet sont visibles. Il te suffit de rechercher celles désignées par Michel puis de cliquer sur la partie droite avec l'ascenceur pour trouver la valeur qu'il t'a indiquée.
A+
Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que débutant en VBA !!!
Bonjour,
Quand sur un userform , tu mets un listbox, celui-ci a des propriétés
qui sont visibles dans la fenêtre Propriétés de l'éditeur VBE.Si tu ne
vois pas cette fenêtre , clique dans le menu VBE sur Affichage/Fenetre
Propriétés.
Une fois ceci fait, les propriétés de l'objet sont visibles. Il te
suffit de rechercher celles désignées par Michel puis de cliquer sur la
partie droite avec l'ascenceur pour trouver la valeur qu'il t'a indiquée.
A+
Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que
débutant en VBA !!!
Quand sur un userform , tu mets un listbox, celui-ci a des propriétés qui sont visibles dans la fenêtre Propriétés de l'éditeur VBE.Si tu ne vois pas cette fenêtre , clique dans le menu VBE sur Affichage/Fenetre Propriétés. Une fois ceci fait, les propriétés de l'objet sont visibles. Il te suffit de rechercher celles désignées par Michel puis de cliquer sur la partie droite avec l'ascenceur pour trouver la valeur qu'il t'a indiquée.
A+
Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que débutant en VBA !!!
Yvan
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
-- Merci pour vos réponses.
Bonjour,
Quand sur un userform , tu mets un listbox, celui-ci a des propriétés qui sont visibles dans la fenêtre Propriétés de l'éditeur VBE.Si tu ne vois pas cette fenêtre , clique dans le menu VBE sur Affichage/Fenetre Propriétés. Une fois ceci fait, les propriétés de l'objet sont visibles. Il te suffit de rechercher celles désignées par Michel puis de cliquer sur la partie droite avec l'ascenceur pour trouver la valeur qu'il t'a indiquée.
A+
Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que débutant en VBA !!!
Dernière question : quelle instruction utiliser pour récupérer les éléments
sélectionnés dans la liste et les faire apparaitre sur une feuille du
classeur Excel ???
--
Merci pour vos réponses.
Bonjour,
Quand sur un userform , tu mets un listbox, celui-ci a des propriétés
qui sont visibles dans la fenêtre Propriétés de l'éditeur VBE.Si tu ne
vois pas cette fenêtre , clique dans le menu VBE sur Affichage/Fenetre
Propriétés.
Une fois ceci fait, les propriétés de l'objet sont visibles. Il te
suffit de rechercher celles désignées par Michel puis de cliquer sur la
partie droite avec l'ascenceur pour trouver la valeur qu'il t'a indiquée.
A+
Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que
débutant en VBA !!!
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
-- Merci pour vos réponses.
Bonjour,
Quand sur un userform , tu mets un listbox, celui-ci a des propriétés qui sont visibles dans la fenêtre Propriétés de l'éditeur VBE.Si tu ne vois pas cette fenêtre , clique dans le menu VBE sur Affichage/Fenetre Propriétés. Une fois ceci fait, les propriétés de l'objet sont visibles. Il te suffit de rechercher celles désignées par Michel puis de cliquer sur la partie droite avec l'ascenceur pour trouver la valeur qu'il t'a indiquée.
A+
Merci Pierre, mais pourrais-tu être un peu plus précis, je ne suis que débutant en VBA !!!
anonymousA
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments
sélectionnés dans la liste et les faire apparaitre sur une feuille du
classeur Excel ???
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
Yvan
Désolé mais cette instruction ne fonctionne pas. A quoi sert le "Me" devant listbox1.value.
As-tu une autre solution ???
Il s'agit bien de lister l'ensemble des éléments qui ont été cochés dans le listbox.
-- Merci pour vos réponses.
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
Désolé mais cette instruction ne fonctionne pas. A quoi sert le "Me" devant
listbox1.value.
As-tu une autre solution ???
Il s'agit bien de lister l'ensemble des éléments qui ont été cochés dans le
listbox.
--
Merci pour vos réponses.
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments
sélectionnés dans la liste et les faire apparaitre sur une feuille du
classeur Excel ???
Désolé mais cette instruction ne fonctionne pas. A quoi sert le "Me" devant listbox1.value.
As-tu une autre solution ???
Il s'agit bien de lister l'ensemble des éléments qui ont été cochés dans le listbox.
-- Merci pour vos réponses.
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
anonymousA
mes excuses, j'avais oublié que ton listbox est multiselect.
Ci-dessous un exemple pour te montrer comment récupérer les valuers que tu as sélectionnées et les placer sur la feuille active.Dans cet exemple, j'ai positionné sur un userform un listbox et un commandbutton.
Tu places la proc ci dessous dans le module du UF et tu regardes ce que ca donne pour te faire comprendre.Précision: Me renvoie au conteneur de l'objet , en l'occurence ici Me désigne le UF qui abrite les controles dont le listbox.
Private Sub CommandButton1_Click()
with Me.ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) = True Then Cells(I + 1, 1) = .List(I) Next End with
End Sub
Private Sub UserForm_Initialize()
With Me.ListBox1 .AddItem "toto" .AddItem "tututo" .AddItem "tatoto" .AddItem "ttitoto" End With
End Sub
A+
Désolé mais cette instruction ne fonctionne pas. A quoi sert le "Me" devant listbox1.value.
As-tu une autre solution ???
Il s'agit bien de lister l'ensemble des éléments qui ont été cochés dans le listbox.
-- Merci pour vos réponses.
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
mes excuses, j'avais oublié que ton listbox est multiselect.
Ci-dessous un exemple pour te montrer comment récupérer les valuers que tu
as sélectionnées et les placer sur la feuille active.Dans cet exemple, j'ai
positionné sur un userform un listbox et un commandbutton.
Tu places la proc ci dessous dans le module du UF et tu regardes ce que ca
donne pour te faire comprendre.Précision: Me renvoie au conteneur de l'objet
, en l'occurence ici Me désigne le UF qui abrite les controles dont le
listbox.
Private Sub CommandButton1_Click()
with Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then Cells(I + 1, 1) = .List(I)
Next
End with
End Sub
Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "toto"
.AddItem "tututo"
.AddItem "tatoto"
.AddItem "ttitoto"
End With
End Sub
A+
Désolé mais cette instruction ne fonctionne pas. A quoi sert le "Me" devant
listbox1.value.
As-tu une autre solution ???
Il s'agit bien de lister l'ensemble des éléments qui ont été cochés dans le
listbox.
--
Merci pour vos réponses.
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments
sélectionnés dans la liste et les faire apparaitre sur une feuille du
classeur Excel ???
mes excuses, j'avais oublié que ton listbox est multiselect.
Ci-dessous un exemple pour te montrer comment récupérer les valuers que tu as sélectionnées et les placer sur la feuille active.Dans cet exemple, j'ai positionné sur un userform un listbox et un commandbutton.
Tu places la proc ci dessous dans le module du UF et tu regardes ce que ca donne pour te faire comprendre.Précision: Me renvoie au conteneur de l'objet , en l'occurence ici Me désigne le UF qui abrite les controles dont le listbox.
Private Sub CommandButton1_Click()
with Me.ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) = True Then Cells(I + 1, 1) = .List(I) Next End with
End Sub
Private Sub UserForm_Initialize()
With Me.ListBox1 .AddItem "toto" .AddItem "tututo" .AddItem "tatoto" .AddItem "ttitoto" End With
End Sub
A+
Désolé mais cette instruction ne fonctionne pas. A quoi sert le "Me" devant listbox1.value.
As-tu une autre solution ???
Il s'agit bien de lister l'ensemble des éléments qui ont été cochés dans le listbox.
-- Merci pour vos réponses.
par exemple
cells(1,1).value=Me.listbox1.value
A+
Dernière question : quelle instruction utiliser pour récupérer les éléments sélectionnés dans la liste et les faire apparaitre sur une feuille du classeur Excel ???
