Bonjour à tous,


Problème tout simple qui me fait péter un plomb, je vous remercie de votre aide :

J'ai trois cases à cocher qui sont dans Formulaire1 :

Case1
Case2
Case3


J'ai un champ qui s'appelle "champ1" de type texte court

J'ai un bouton click qui s'appelle "bouton1"

Je veux que quand je clique sur "bouton1" le programme va lire la valeur enregistrée dans "champ1" et selon le contenu de ce champ il coche ou décoche les cases :

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
Private Sub bouton1_Click()
 
If champ1.Value = "100" Then
 
    case1 = False
    case2= False
    case3 = True
 
ElseIf champ1.Value = "10" Then
 
    case1 = False
    case2 = True
    case3 = False
 
ElseIf champ1.Value = "1" Then
 
    case1 = True
    case2 = False
    case3 = False
 
ElseIf champ1.Value = "110" Then
 
    case1 = False
    case2 = True
    case3 = True
 
ElseIf champ1.Value = "101" Then
 
    case1 = True
    case2 = False
    case3 = True
 
ElseIf champ1.Value = "11" Then
 
    case1 = True
    case2 = True
    case3 = True
 
ElseIf champ1.Value = "111" Then
 
    case1 = True
    case2= True
    case3 = True
 
End If
End Sub

J'ai essayé de jouer sur les différentes syntaxes qui me sont venues en tete mais ça ne marche pas.