Un checkbox à usage multiple

Bonjour (désolé pour mon mauvais titre)

J'ai plusieurs checkBox qui sont utilisés dans différents contexte
J'aimerais que lorsqu'un utilisateur coche un checkbox dans une certaine situation, qu'un sous-programme particulier s'active.

Voici ma question en détail.

J'ai plusieurs questions à poser dans mon programme
Selon la question j'ai une variable "A" qui s'incrémente

J'aimerais qu'à la question #1, si l'utilisateur coche le checkbox #1, que le sous programme #1 (qui correspond à la variable A) s'active

Si A = 1, j'aimerais que le checkbox appelle Question_1, mais je sais pas trop comment faire pour remplacer le "1" de Question_ pour y mettre le A.

Je crois que ça devrait ressemble à ça

Code:

---

1 2 3

Private Sub CheckBox1_Click() Question_A End Sub

---

Merci

Comme ça?

Code:

---

1 2 3

Private Sub CheckBox1_Change() If CheckBox1 = True Then Question_1 End Sub

---

Merci pour ta réponse, mais ce n'est pas ça que je cherche.
Je n'ai probablement pas été clair, voilà donc:

Si A=1 je veux que si un utilisateur coche la checkbox1 que le programme l'oriente vers la question 1 (Question_1)

Si A=2 je veux que si un utilisateur coche la checkbox1 que le programme l'oriente vers la question 2 (Question_2)

Si A=3 je veux que si un utilisateur coche la checkbox1 que le programme l'oriente vers la question 3 (Question_3)

Il faut donc écrire quelque chose de spécial à la fin de Queston_ pour que la variable A ait une influence, mais je ne sais pas quoi!!!

Code:

---

1 2 3

Private Sub CheckBox1_Click() Question_A?????? End Sub

---

Bon désolé mais je ne comprends pas bien!

A=1 mais ce A c'est une cellule "A1"? ou le 1 il est dans une cellule?

Question_1 c'est une commande de module ? un message ?

Citation:

---

Selon la question j'ai une variable "A" qui s'incrémente

---

Sinon peut-^tre ça!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CheckBox1_Change()   Dim A As String ' donc A ici est une variable If CheckBox1 = True Then If A = "" Then Exit Sub If A = 1 Then Question_1 If A = 2 Then Question_2 If A = 3 Then Question_3   End If   End Sub

---

Et ça exemple msgbox ou tout ce tu souhaite

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Question_1() MsgBox "Question1"   End Sub Sub Question_2() MsgBox "Question2"   End Sub Sub Question_3() MsgBox "Question3"   End Sub

---

bon essaye d'être claire !