Bouton liste choix multiple

Fermé
Nicow - Modifié par Nicow le 2/08/2013 à 09:14
 Nicow - 5 août 2013 à 10:07
Bonjour à tous !

Je voudrais créer un userform, qui m'exécute une partie de ma macro pour le choix 1, et une autre partie de macro pour le choix 2.

Est-ce clair ?

Merci !

2 réponses

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
2 août 2013 à 09:17
bonjour,

il suffit que tu écrives :

if choix = 1 then
'tu mets la partie que tu veux qu'elle exécute
else
'tu mets ici la partie que tu veux qu'elle exécute

end if

Ou alors tu écris deux macros et tu utilises call macro1 ()
0
Merci de répondre si vite !

J'ai suivi le début de ce tuto pour créer le bouton : http://www.commentcamarche.net/forum/affich-19616792-liste-deroulante-a-choix-multiple-excel-2007

Si je clique sur l'image de la liste à choix multiple, il me sort le code :

Private Sub CommandButton1_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Je devine que pour rajouter un choix je dois créer une ligne

Private Sub ListBox2_Click()

End Sub

Et est-ce que le If choix = 1 avec ma macro je l'écris dans la partie Sub CommandButton1_Click() ?
0
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
2 août 2013 à 10:12
coucou,

voici ce que tu dois écrire :


Private Sub CommandButton1_Click()

if listbox1.value = 1 'Que contient ta listbox???
'ici tu mets le code que dois faire ta macro si dans ta listbox tu as choisi ce choix

else
'ici tu mets le code que dois faire ta macro si dans ta listbox tu n'as pas choisi le choix 1
end if

End Sub
0
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
2 août 2013 à 10:13
je te conseille aussi de lire cette page internet :
https://www.excel-pratique.com/fr/vba/userform.php
0
Bonjour,

Ma Listbox ne contient rien, je voudrais justement ajouter deux choix "Traitement par Maximum des Quarts" et "Traitement par Maximum".

Mais je ne sais comment faire ?
0
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
2 août 2013 à 11:09
Lis cette page tout est expliqué :
https://www.excel-pratique.com/fr/vba/userform.php
0
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
2 août 2013 à 11:12
il faut que tu mettes :

sub userform_Initialize ()
listbox1.Additem "Tartempion"

end sub
0