Checkbox validée si valeur préçise contenu (entre autre) dans une cellule
Bonjour,
je vous soumet le dernier problème auquel je dois trouver une solution pour rendre mon userform opérationel.
J'ai créer un userform avec des checkbox et qui incrémente les cellules de toute une colonne (la colonne X).
Étant donné que
-chacune de mes checkbox incrémente une valeur qui lui est propre
-plusieurs checkbox peuvent incrémenter la même cellule
Comment puis-je faire pour qu'à l'ouverture de mon userform, je puisse obtenir que mes checkbox dont les valeurs sont déjà contenues dans la cellule visée soient cochées?
J'ai essayer de rajouter ça dans mes codes de checkbox et dans l'initialize, mais sans succès :
Code:
1
2
3
4
5
| If Range("X" & ligne).Value = "2339, " Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If |
Voilà le code complet du userform :
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
| Option Explicit
Dim tabl() As String
Dim ligne As Integer
Private Sub CheckBox1_Change()
Dim i As Integer
Dim variable As String
Range("X" & ligne).Clear
If CheckBox1.Value = True Then
tabl(1) = "2339, "
Else
tabl(1) = ""
End If
For i = 1 To 1000
variable = variable & tabl(i)
Next
Range("X" & ligne).Value = variable
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
End Sub
Private Sub CheckBox2_Change()
Dim i As Integer
Dim variable As String
Range("X" & ligne).Clear
If CheckBox2.Value = True Then
tabl(2) = "2340, "
Else
tabl(2) = ""
End If
For i = 1 To 1000
variable = variable & tabl(i)
Next
Range("X" & ligne).Value = variable
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
End Sub
Private Sub Label1_Click()
Label1.Caption = ligne
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub passeralaligne_Click()
' incrémente la ligne
ligne = ligne + 1
' vide le tableau
ReDim tabl(1000) As String
' vide l'ensemble des CheckBox
Dim nouveau As Control
For Each nouveau In Controls
Select Case TypeName(nouveau)
Case "CheckBox":
nouveau.Value = False
End Select
Label1.Caption = ligne
Next
Label3.Caption = Range("g" & ligne).Value
Label4.Caption = Range("h" & ligne).Value
Label5.Caption = Range("i" & ligne).Value
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
End Sub
Private Sub remonterlaligne_Click()
' incrémente la ligne
ligne = ligne - 1
' vide le tableau
ReDim tabl(1000) As String
' vide l'ensemble des CheckBox
Dim nouveau As Control
For Each nouveau In Controls
Select Case TypeName(nouveau)
Case "CheckBox":
nouveau.Value = False
End Select
Label1.Caption = ligne
Next
Label3.Caption = Range("g" & ligne).Value
Label4.Caption = Range("h" & ligne).Value
Label5.Caption = Range("i" & ligne).Value
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
End Sub
Private Sub sortie_Click()
' ferme le formulaire
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
' Initialise le tableau et la première ligne
ReDim tabl(1000) As String
ligne = ActiveCell.Row
Label1.Caption = ligne
Label3.Caption = Range("g" & ligne).Value
Label4.Caption = Range("h" & ligne).Value
Label5.Caption = Range("i" & ligne).Value
UserForm1.Caption = Range("d" & ligne).Value & " - " & Range("x" & ligne).Value
End Sub |
Merci d'avance !
