Discussion :

[isrdum]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CheckBox1_Click()
    Question_A
End Sub

Merci

[jijie]

Comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[isrdum]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CheckBox1_Click()
    Question_A??????
End Sub

[jijie]

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 ?

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

Sinon peut-^tre ça!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !