Assigner une checkbox a une valeur

bonjour,

j'ai crée un userform4 avec dedans 6 checkbox et 3 text box, et enfin un bouton de commande

je voudrais dans le bouton de commande appeler une macro ( call ma_macro () )

parcontre je n'ai pas la moindre idée de comment récupérer les valeurs des checkbox et des textes libres

mon but est de faire

for each Nom in array (checkbox1, checkbox2,checkbox3......textbox1,textbox2, textbox3)

et je traite

Je sais que je devrais vous faire un programme, mais j'aimerai surtout comprendre le chmiliblic. Alors si c'est juste un petit plus long pour vous de me mettre juste sur la voie je préfèrerais. Sinon tant pis je vous mettrai ma macro .

Merci d'avance

je pense que je dois faire ça pour chaque checkbox

Private Sub CheckBox4_Click()

Select Case CheckBox.Value

Case True: listbox1.AddItem "RestartApplication"

Case False: End Sub

End Sub

ça pour le bouton de commande

Private Sub CommandButton1_Click()

Call copie_logs 'lance la macro copie_logs

End Sub

me reste plus qu'à initialiser une listbox1 et à lancer un array dessus

Je cherche, je cherche

Salut Figuedi,

Private Sub CheckBox4_Click()

Select Case CheckBox.Value
Case True: listbox1.AddItem "RestartApplication"
Case False: Exit Sub

End Sub

Exit Sub, c'est mieux!

Mais, c'est bien! Au moins, tu cherches par toi-même!

A+

grrr quand je clique il me jette directement j'ai du manquer un truc dans la définition du checkbox

et j'avais oublié le end select aussi

enfin c'est ce me dit l'ordinateur

Ah oui, je ne l'avais pas vue, celle-là!.

Pour éviter ce genre d'ennuis, apprends déjà à écrire avec indentation pour distinguer les niveaux.

Dans ton exemple :

Private Sub CheckBox4_Click()
'
Select Case CheckBox.Value
    Case True
        listbox1.AddItem "RestartApplication"
    Case False
        Exit Sub
End Select
'
End Sub

Tu vois tout de suite mieux ce qu'il s'y passe!

A+

Private Sub CheckBox1_Cick()

Select Case CheckBox.Value

Case True: listbox1.AddItem "HW error:"

Case False: Exit Sub

End Select

End Sub

Private Sub CheckBox2_Click()

Select Case CheckBox.Value

Case True: listbox1.AddItem "Power button"

Case False: Exit Sub

End Select

End Sub

Private Sub CheckBox3_Click()

Select Case CheckBox.Value

Case True: listbox1.AddItem "startup"

Case False: Exit Sub

End Select

End Sub

Private Sub CheckBox4_Click()

Select Case CheckBox.Value

Case True: listbox1.AddItem "RestartApplication"

Case False: Exit Sub

End Select

End Sub

Private Sub CheckBox5_Click()

Select Case CheckBox.Value

Case True: listbox1.AddItem "SHUTDOWN"

Case False: Exit Sub

End Select

End Sub

Private Sub CheckBox6_Click()

Select Case CheckBox.Value

Case True: listbox1.AddItem "CRASH"

Case False: Exit Sub

End Select

End Sub

Private Sub CommandButton1_Click()

Call copie_logs 'lance la macro copie_logs

End Sub

Private Sub TextBox1_Change()

If TextBox1.Value <> "" Then listbox1.AddItem TextBox1

End Sub

Private Sub TextBox2_Change()

If TextBox2.Value <> "" Then listbox1.AddItem TextBox2

End Sub

Private Sub TextBox3_Change()

If TextBox3.Value <> "" Then listbox1.AddItem TextBox3

End Sub

Private Sub UserForm_Click()

End Sub

je peux cliquer sur la premiere case mais pas sur un autre il me jette erreur d'execution '424' objet requis

est ce que je dois initialiser la listbox par hasard ?

c'est bon ça marche !!!!

me reste plus qu'un truc mais ça ne sert a rien de laisser un fil ouvert pour des betises.

Je poserai la question si je ne m'en sort pas tout seul