A voir également:
- Vba choix multiple
- Liste déroulante choix multiple excel - Guide
- Presse papier multiple - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Vba attendre 1 seconde ✓ - Forum VB / VBA
2 réponses
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 août 2013 à 09:17
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 ()
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 ()
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() ?
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() ?
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 août 2013 à 10:12
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
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
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 août 2013 à 10:13
2 août 2013 à 10:13
je te conseille aussi de lire cette page internet :
https://www.excel-pratique.com/fr/vba/userform.php
https://www.excel-pratique.com/fr/vba/userform.php
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 août 2013 à 11:09
2 août 2013 à 11:09
Lis cette page tout est expliqué :
https://www.excel-pratique.com/fr/vba/userform.php
https://www.excel-pratique.com/fr/vba/userform.php
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 août 2013 à 11:12
2 août 2013 à 11:12
il faut que tu mettes :
sub userform_Initialize ()
listbox1.Additem "Tartempion"
end sub
sub userform_Initialize ()
listbox1.Additem "Tartempion"
end sub
