Coder une checkbox

Bonjour,

J'ai 5 checkbox et je souhaiterai lancer différentes macros si les checkbox correspondantes sont cochées!

J'ai regardé le tuto de silkyRoad sur ce site mais j'ai quand même

Citation:

---

l'erreur 424 objet requis

---

:calim2:

lorsque j'exécute le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10

Application.Run "Report.xls!Feuil4.CheckBox1_Click" If CheckBox1.Value = True Then Application.Run "Report.xls!ImportData.ImportData" End If   Application.Run "Report.xls!Feuil4.CheckBox2_Click" If CheckBox2.Caption = True Then Application.Run "Report.xls!GetNumber" Application.Run "Report.xls!GetDate" End If

---

A noter que j'ai aussi dans la feuille où se trouvent les différentes checkbox les codes suivants qui je pense est inutile :mrgreen:

Code:

---

1 2 3 4 5 6 7 8

Sub CheckBox1_Click()   Select Case CheckBox1.Value Case True: CheckBox1.Value = "Vrai" Case False: CheckBox1.Value = "Faux" End Select   End Sub

---

Quelqu'un pourrait me filer un coup de main?

Merci d'avance! :ccool:

Bonjour,

La ligne ci dessous permet d'exécuter le code de l'évenement Click de la checkbox1. il ne faut pas supprimer la procèdure de la feuille "Feuil4"

Code:

---

Application.Run "Report.xls!Feuil4.CheckBox1_Click"

---

Par contre, quelle ligne génère l'erreur?
As tu dans ton code les procèdures suivantes => GetNumber et GetDate ?

C'est bon!

En fait j'ai modifié mon code de la manière suivante:

Code:

---

1 2 3 4 5 6 7 8

If Feuil4.CheckBoxImport.Value = True Then Application.Run "Report.xls!ImportData.ImportData" End If   If Feuil4.CheckBoxTraitement.Value = True Then Application.Run "Report.xls!GetNumber" Application.Run "Report.xls!GetDate" End If

---

car je cherchais savoir si la checkbox était cochée ou non! Pas à la renommer, ce à quoi sert la fonction caption!

Juste par curiosité, pourquoi ces "Application.Run" partout ? Ca ne marchait pas en faisant tout simplement ça ?

Code:

---

1 2 3 4 5 6 7 8

If Feuil4.CheckBoxImport.Value = True Then ImportData End If   If Feuil4.CheckBoxTraitement.Value = True Then GetNumber GetDate End If

---