Execution d'instruction celon l'ordre dans lequelle on coche des cases

Bonjour a tous
Mon probleme est simple mais un peu flou dans l'intitulé car il me faut quelques phrases pour vous l'expliquer.
Sur une feuille, il y a 2 cases a cocher. Pour ces deux cases il y a deux instruction differentes . La premiere s'activant si la case 1 est coché en premier la seconde instruction se faisant si la case 1 est coché en deuxieme.
J'aimerais faire simplement :

If la case1 est cocher en premier Then
instruction1

Merci d'avance a tous Gros bizou

j'ai du ma à comprendre comment ton opérateur va se servir de cette interface ... ? aura-t'il quelque-part l'ordre d'exécution des deux codes ...?

si l'ordre reste invisible tu peu par exemple utiliser la propiété tag pour la mémoriser.tiens voila du code ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CheckBox1_Click() If CheckBox1.Value Then If CheckBox2.Value Then CheckBox1.Tag = 2 Else CheckBox1.Tag = 1 Else CheckBox1.Tag = 0 If CheckBox2.Value Then CheckBox2.Tag = 1 End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value Then If CheckBox1.Value Then CheckBox2.Tag = 2 Else CheckBox2.Tag = 1 Else CheckBox2.Tag = 0 If CheckBox1.Value Then CheckBox2.Tag = 1 End If End Sub Private Sub CommandButton1_Click() If CheckBox1.Tag = "1" And CheckBox1 Then MsgBox "Execute CheckBox1 " If CheckBox2.Tag = "1" And CheckBox2 Then MsgBox "Execute CheckBox2 " If CheckBox1.Tag = "2" And CheckBox1 Then MsgBox "Execute CheckBox1 " If CheckBox2.Tag = "2" And CheckBox2 Then MsgBox "Execute CheckBox2 " End Sub

---

:aie: un peu illisible... mais je crois que cela marche.. :aie:

Bé...
Il suffit de n'utiliser qu'un seul des 2 tags (ou une variable), de n'en permettre la modif que si vide et, si vide, de lui donner comme valeur le n° de la CheckBox cochée....
On est de cette façon simple assuré de ce que la valeur retenue dans le tag (ou la variable) sera celle du 1er cochage .. voilà tout !
Bien évidemment et pour agiliser l'ensemble : un groupe de checkBoxes indéxées de 0 à 1

Code:

---

1 2 3 4 5

Private Sub Check1_Click(Index As Integer) if check1(0).tag = "" then check1(0).tag = index end if End Sub

---

et pour le reste :

Code:

---

1 2 3 4 5 6 7 8

Select case check1(0).tag case is = "0" ............. case is = "1" ............. case else .......... end select

---