Discussion :

[tom box]

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

[SfJ5Rpw8]

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 :

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

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

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

[jmfmarques]

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 :

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

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 :

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

1
2
3
4
5
6
7
8
Select case check1(0).tag
  case is = "0"
      .............
  case is = "1"
     .............
  case else
     ..........
end select