Discussion :

[Seb à l'eau]

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...

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
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 :

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
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!

[Seb à l'eau]

WOOkey j'ai trouvé, il suffit de se relire...