validation d'information CheckBox controle ActiveX
Bonjour mesdames, messieurs.
J'ai une question à poser au forum!
Je travaille en ce moment à la création d'un formulaire, j'ai plusieurs CheckBox Active X, elles ont le même rôles que des checkbox de formulaire simple.
Mais ! car il y a un mais...:fessee:
J'ai installé une " sécurité" c'est à dire que je ne peux pas valider la valeur d'une checkbox si une autre ne l'est pas elle même :weird:
Pour faire simple:
J'ai une option, l'option 3. Cette option n'est valable que si l'option 1 est valider, sinon j'affiche une msgbox " impossible".
ça, ça marche, mais comme je l'ai dit plus haut, mes Checkbox ActiveX doivent faire la même chose que des checkbox de formulaire classique.
Soit, dire VRAI ou FAUX dans une cellule d'une autre feuille, car je fait des testes sur Excel de ces cellules pour l'affichage de prix.
mon problème c'est que lorsque je click sur ma checkbox, l'option se valide, mais la commande VRAI ou FAUX ne fonctionne plus!
mon code si cela peut aider:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
Private Sub CheckBox21_Click()
If CheckBox21.Value = True And CheckBox23.Value = False And CheckBox22.Value = False Then
MsgBox ("option impossible si visite contructeur ou audit de maintenance non validées ")
CheckBox21.Value = False
Else
Sheets("formules (cachées)").Cells(67, 3) = True
End If
If CheckBox21.Value = False Then
Sheets("formules (cachées)").Cells(67, 3) = False
End If
End Sub
Private Sub CheckBox22_Click()
If CheckBox22.Value = True Then
Sheets("formules (cachées)").Cells(63, 2) = True
End If
If CheckBox22.Value = False Then
Sheets("formules (cachées)").Cells(63, 2) = False
End If
End Sub
Private Sub CheckBox23_Click()
If CheckBox23.Value = True Then
Sheets("formules (cachées)").Cells(59, 2) = True
End If
If CheckBox23.Value = False Then
Sheets("formules (cachées)").Cells(59, 2) = False
End If
End Sub |
Merci de votre aide, cordialement,
Seb à l'eau!:merci:
