Appel macro depuis Userform1
Bonjour
Un formulaire "Userform1" contient un bouton Checkbox1 qui ouvre une Combobox.
Lorsque je clique, sur ce bouton, la procédure "Checkbox1_Click()" s'exécute sans problème.
et la combobox permet d'afficher une liste.
Lorsque je veux activer cette procédure depuis une autre procédure, sans avoir à cliquer sur le bouton Checkbox1 par ces lignes :
UserForm1.Show
Call CheckBox1_Click
j'ai le message d'erreur suivant
"Erreur de compilation
Sub ou Function non définie "
et la ligne "Call CheckBox1_Click " est surlignée.
Si j'essaie ceci :
UserForm1.CheckBox1_Click = Enabled
j'ai ce message d'erreur
"Erreur de compilation
Fonction ou variable attendue"
Doit-on être obligatoirement dans l'Userform pour activer le bouton ?
Une idée ? Merci
re
bonjour
dans ta dernière ligne tu a donné la réponse
il y a deux raisons a ça
la premiere c'est
si tu fait un show ton userform est modal donc tout ce qui est apres show est executer à la fermeture du userform
la 2d raison
c'est que l'event click de ta checkbox est en private
et private seul un autre event DANS LE USERFORM! ou une autre sub (toujours dans le userform) peu l'appeller comme une sub
maintenant supposons que tu show ton userform en non modal
userform1.show 0
et en changeant "private" pour "public"
tu l'appelle comme ceci a partir de ou tu veux
userform1.CheckBox1_Click
voilà j'ai tout dit
..merci.. ...Userform1 s'affiche effectivement mais l'exécution de CheckBox1_Click ne se réalise que si je clique sur le bouton...
...or, j'aurais désiré que la procédure qui lui est affectée, se déroule, pour que ma liste soit disponible dans ma combobox...sans autre intervention...
Bonsoir Jpmalb, PatrickT,
Si tu suis bien les indications données par PatrickT. En plaçant la procédure en Public plutôt que Private, le combo sera activé avec le code présent en checkbox.
'Exemple d' un Checkbox sur un Userform permettant d'afficher les 5ières lignes d'une feuille
Public sub Checkbox1_Click()
Combobox1.Rowsource = "A2:A5"
End sub
'Et son lancement à partir d' un module générique
Sub LanceUsf
Userform1.CheckBox1.value = True
Userform1.Show
End subre
bonsoir X Cellus
je complète
'Exemple d' un Checkbox sur un Userform permettant d'afficher les 5ières lignes d'une feuille
Public sub Checkbox1_Click()
With CheckBox1
if .value then
Combobox1.Rowsource = "A2:A5"
else
Combobox1.Rowsource = "A6:A11"
end if
End With
End suben effet l'event click n'a pas de Return integer value
Merci pour vos avis... je vais voir tout cela..
...cette ligne a fait son effet ... Merci à tous
Userform1.CheckBox1.value = True