CheckBox et valeurs T/F définies

Version imprimable

Bonsoir,

Je cherche depuis quelque temps à créer un formulaire (usrfrm) avec un grand nombre de checkbox (une bonne centaine).

Chaque checkbox est sensée, quand elle est cochée, renvoyer une valeur qui lui est spécifique dans une cellule excel (colonne X, ligne 2 jusqu'à 1000) qui comprendras au final la totalité des valeurs de l’ensemble des checkbox (séparées les une des autres par des virgules).

Or avec le code que j'ai bidouillé je n'obtient pas l'effet voulu:
Lorsque je dé-sélectionne une checkbox, l'enssemble des valeurs contenues dans la cellule cible (X2) disparaissent alors que seulement la valeur spécifique à cette checkbox devrais être effacée.

J'ai donc essayer de contourner le problème en utilisant des variables mais sans grand succès...

Voici mon code, pour 2 checkbox.
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 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Dim Variable_1D As String Variable_1D = Range("X2") Range("X2").Value = Variable_1D & "2339, " End If If CheckBox1.Value = False Then Range("X2").Value = Variable_1D End If Dim Variable_1F Variable_1F = Range("X2") Msg = Variable_1F End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Range("X2").Value = Variable_1F & "2340, " End If If CheckBox2.Value = False Then Range("X2").Value = Variable_1F End If Dim Variable_2F Variable_2F = Range("X2") End Sub
Mes connaissances en VB étant comme vous pouvez le voir très limitées, voire quasi inexistantes, toute aide me serait grandement utile.

Merci par avance : ).

.

Bonjour pyronb69,

Tes problèmes : il te faut une variable globale (ici un tableau, tabl()) et non une locale + gérer le coché mais aussi le décoché.

Essaies :

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
' déclaration des "globales"
Option Explicit
 
Dim tabl(1000) As String
 
Private Sub CheckBox1_Change()
Dim i As Integer
Dim variable As String
 
Range("X2").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("X2").Value = variable
 
End Sub
 
Private Sub CheckBox2_Change()
Dim i As Integer
Dim variable As String
 
Range("X2").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("X2").Value = variable
End Sub

Bertrand

28/06/2012, 08h35
pyronb69
Ahhhhhhhhhhhhhhhhhhh merci beaucoup Bertrand, ça marche !

Serait-il possible d'étendre le code à toutes les cellules de la colonne x? (enfin de X2 à x1000), de façon à ce que le contenu de chacune de ces cellules soit indépendant mais relié au même code?

Pour l'instant j'ai ça dans le code de la feuille où tout ça se passe :
Code:

1 2 3 4 5 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$X$2" Then Exit Sub UserForm1.Show End Sub
J'imagine qu'il faudrais modifier un chouya le code des checkbox aussi, si quelqu'un pouvais m'aider je vous serais réellement reconnaissant : )

Merci pour la réponse rapide en tout cas !
28/06/2012, 10h18
Bear the french

Bonjour,

Oui cela parait possible ... A chaque appel de la userform, il faut lui affecter un numéro et le traduire en ligne.

Je regarde ça ce soir car je n'ai pas d'ordinateur sous la main ( juste l'iphone)

Bertrand
28/06/2012, 13h02
pyronb69

Génial! Merci beaucoup Bertrand !

Ton aide m'est réellement inestimable : )

Bonsoir,

Je te propose de rajouter 2 boutons à ton formulaire, un pour sortir et un pour passer à la ligne.

Le code total à essayer :

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
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
 
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
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
Next
 
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 = 2
 
' vide la colonne X
For i = ligne To Range("X65536").End(xlUp).Row
    Range("x" & i).Clear
Next
 
End Sub

En détail :

1. je déclare une deuxième variable globale pour gérer la ligne

Code:

1
2
3
4
Option Explicit
 
Dim tabl() As String
Dim ligne As Integer

2. j’intègre la ligne dans la saisie de chacun de mes résultats "CheckBox"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
 
End Sub

3. je crée mon bouton pour passer à la ligne (ligne = ligne +1 ), je vide ma liste tabl et j'initialise mes CheckBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
Next
 
End Sub

4. je prévois mon bouton de sortie - pour sortir de ma saisie :

Code:

1
2
3
4
5
6
Private Sub sortie_Click()
 
' ferme le formulaire
Unload UserForm1
 
End Sub

5. J'initialise mon formulaire à l'ouverture, je vide ma colonne X (on peut faire différemment si tu souhaites saisir en plusieurs fois et revenir là où tu t'es arrêté la fois d'avant) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim i As Integer
 
' Initialise le tableau et la première ligne
ReDim tabl(1000) As String
ligne = 2
 
' vide la colonne X
For i = ligne To Range("X65536").End(xlUp).Row
    Range("x" & i).Clear
Next
 
End Sub

J'espère que cela te plaira. :D

Bertrand

28/06/2012, 22h29
pyronb69

Wooh complexe tout ça :)

Je tente d'intégrer le code demain matin au travail et je te tiens au courant.

Merci beaucoup pour ton aide quoiqu'il en soit !

J'ai un truc du genre avec des CheckBoxs, je l'ai épuré pour garder que ce qui pourrait t’intéresser ici.

Dans un module de classe nommé ClControls

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Public WithEvents ChkBx As MSForms.CheckBox
Public WithEvents BTN As MSForms.CommandButton
 
Private Sub BTN_Click()
    Call UserForm4.modifAdd(BTN.Caption)
End Sub
 
Private Sub ChkBx_Change()
    Call UserForm4.Modif
End Sub

Et dans un Userform vierge nommé Userform4

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
Option Explicit
Dim WS As Worksheet
Dim CollectChBx As Collection
Dim CollectBTN As Collection
Dim mCheckBox As ClControls
Dim mBouton As ClControls
Dim mTextBox As Control
Dim Rng As Range
Dim AutMod As Boolean
 
 
Private Sub Userform_Initialize()
 
    Dim i As Integer
    Dim Ctl As Control
    Dim NbrControl As Integer
    Set WS = ThisWorkbook.Worksheets("Feuil4")
    Set Rng = WS.Cells(1, 1)
    Me.Width = 50 * 15 + 20
    Me.Height = 200
 
    Set CollectBTN = New Collection
    'Bouton Haut
    Set Ctl = Me.Controls.Add("Forms.commandButton.1")
    Ctl.Top = 50
    Ctl.Left = 365
    Ctl.Width = 40
    Ctl.Height = 30
    Ctl.Caption = "Haut"
    Set mBouton = New ClControls
    Set mBouton.BTN = Ctl
    CollectBTN.Add mBouton
 
    'Bouton Gauche
    Set Ctl = Me.Controls.Add("Forms.commandButton.1")
    Ctl.Top = 80
    Ctl.Left = 325
    Ctl.Width = 40
    Ctl.Height = 30
    Ctl.Caption = "Gauche"
    Set mBouton = New ClControls
    Set mBouton.BTN = Ctl
    CollectBTN.Add mBouton
 
    'Bouton Droit
    Set Ctl = Me.Controls.Add("Forms.commandButton.1")
    Ctl.Top = 80
    Ctl.Left = 405
    Ctl.Width = 40
    Ctl.Height = 30
    Ctl.Caption = "Droite"
    Set mBouton = New ClControls
    Set mBouton.BTN = Ctl
    CollectBTN.Add mBouton
 
    'Bouton Bas
    Set Ctl = Me.Controls.Add("Forms.commandButton.1")
    Ctl.Top = 110
    Ctl.Left = 365
    Ctl.Width = 40
    Ctl.Height = 30
    Ctl.Caption = "Bas"
    Set mBouton = New ClControls
    Set mBouton.BTN = Ctl
    CollectBTN.Add mBouton
 
    'Txt Position Cell
    Set Ctl = Me.Controls.Add("Forms.TextBox.1")
    Ctl.Top = 80
    Ctl.Left = 365
    Ctl.Width = 40
    Ctl.Height = 30
    Ctl.Font.Size = 10
    Ctl.Font.Bold = True
    Ctl.Font.Name = "Tahoma"
    Ctl.Enabled = False
    Ctl.TextAlign = fmTextAlignCenter
    Ctl.Value = Rng.Address
    Set mTextBox = Ctl
 
    For i = 1 To 50
        Set Ctl = Me.Controls.Add("Forms.Label.1")
        Ctl.Top = 10
        Ctl.Left = 10 + (i - 1) * (10 + 5)
        Ctl.Width = 10
        Ctl.Height = 10
        Ctl.Caption = i
        Ctl.Font.Size = 8
        Ctl.Font.Name = "Tahoma"
        Ctl.TextAlign = fmTextAlignCenter
    Next i
 
    Set CollectChBx = New Collection
    For i = 1 To 50
        Set Ctl = Me.Controls.Add("Forms.Checkbox.1")
        Ctl.Top = 20
        Ctl.Left = 10 + (i - 1) * (10 + 5)
        Ctl.Width = 10
        Ctl.Height = 10
        Ctl.Tag = i
        Set mCheckBox = New ClControls
        Set mCheckBox.ChkBx = Ctl
        CollectChBx.Add mCheckBox
    Next i
 
 
End Sub
 
 
Sub Modif()
    Dim ValeurC As String
    Dim i As Integer
 
    If AutMod = True Then Exit Sub
 
    For i = 1 To CollectChBx.Count
        If CollectChBx(i).ChkBx.Value = True Then ValeurC = ValeurC & CollectChBx(i).ChkBx.Tag & ","
    Next i
    If ValeurC <> vbNullString Then
        Rng.Value = Left(ValeurC, Len(ValeurC) - 1)
    End If
End Sub
 
Sub modifAdd(Direction As String)
    Dim i As Integer
    On Error Resume Next
    Select Case Direction
        Case Is = "Haut"
            Set Rng = Rng.Offset(-1)
        Case Is = "Gauche"
            Set Rng = Rng.Offset(, -1)
        Case Is = "Droite"
            Set Rng = Rng.Offset(, 1)
        Case Is = "Bas"
            Set Rng = Rng.Offset(1)
    End Select
    mTextBox.Value = Rng.Address
    AutMod = True
    For i = 1 To CollectChBx.Count
        CollectChBx(i).ChkBx.Value = False
    Next i
    AutMod = False
 
End Sub

*Necessite une feuille nommée "Feuil4"

Bertrand,

j'ai pu tester ton code, il me plait beaucoup et j'ai quelques questions : )
Citation:
Envoyé par Bear the french
3. je crée mon bouton pour passer à la ligne (ligne = ligne +1 ), je vide ma liste tabl et j'initialise mes CheckBox :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 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 Next End Sub
Le bouton pour passer à la ligne marche parfaitement, toutefois ça m'embête un peu de ne pas avoir de repère sur la ligne que j'édite (visuellement) et que par ailleurs les cellules soit vidées lorsque je passe/repasse dessus.
Pourrait-on conserver les valeurs des checkbox ainsi que des cellules correspondantes si je reviens dessus par la suite? (de façon à ce que je puisse dé-sélectionner une checkbox précédemment sélectionnée et en ajouter d'autres, indépendamment pour chaque cellule).
Citation:
Envoyé par Bear the french
5. J'initialise mon formulaire à l'ouverture, je vide ma colonne X (on peut faire différemment si tu souhaites saisir en plusieurs fois et revenir là où tu t'es arrêté la fois d'avant) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub UserForm_Initialize() Dim i As Integer ' Initialise le tableau et la première ligne ReDim tabl(1000) As String ligne = 2 ' vide la colonne X For i = ligne To Range("X65536").End(xlUp).Row Range("x" & i).Clear Next End Sub
Dans la même optique que ma précédente question, serait il envisageable de conserver l'état des checkbox et les valeurs contenues dans les cellules et de les rendre indépendantes ?

De la même façon, passer toujours par la case X2 pour faire apparaitre le formulaire n'est pas très pratique (pour remplir les cellules suivantes de la colonne), pourrais ton générer un formulaire indépendant à chaque clique dans les cellules?

En fait, on pourrais envisager deux modes d'utilisations distinct :

-1- En cliquant sur X2 (ou sur un bouton proche de la colonne X), le formulaire apparait et j'utilise des boutons pour passer d'une ligne à l'autre, sans avoir besoin de sortir du formulaire (bien que cela puisse arriver si je dois réaliser l'opération en plusieurs fois).
Mais dans ce cas la j'aurais besoin de créer à l'intérieur du formulaire certains champs qui afficheraient le contenu de certaines cellules de la même ligne.
(pour te donner une idée chaque ligne est une référence de produit dont le but du formulaire est d'affecter à chacune d'entre elles des attributs, ou plutôt l'ID de ces attributs, en fonction de la description du produit, son utilisation -qui sont des infos textes affichés dans des cellules de la même ligne-).

-2- En cliquant sur la cellule X2 le formulaire permettant de remplir la cellule X2 apparait et une fois mes cases cochées je clique sur un bouton pour fermer le formulaire, clique sur la cellule X3 pour ouvrir le même formulaire, affecte mes checkbox, ferme le formulaire, passe aux cellules suivantes et ainsi de suite.

D'un point de vue pratique, j'avais plutôt en tête l'utilisation n°-2-, mais au final le n°-1- me va tout aussi bien!
En fait je m'en remet à toi pour choisir de manière à ce que ce soit le plus simple possible à faire : )

Qu'en penses tu Bertrand?

Quoiqu'il en soit, merci encore pour ton aide!

David

29/06/2012, 12h57
pyronb69

AlphaScorpi,

J'ai un peu de mal à comprendre les commandes contenues dans ton code et à imaginer à quoi ressemble le formulaire correspondant, pourrais tu me décrire succinctement leurs fonctionnements?

Merci : )
29/06/2012, 14h15
AlphaScorpi
Pour visualiser mon code, tu as juste a creer un formulaire vierge nommé Userform4 et d'y inserer le code que j'ai mis à disposition plus haut

De créer le module de classe ClControls et d'y ajouter le code également.

Puis dans un module d'ajouter
Code:

1 2 3 Sub Ouverture_USF4 Userform4.Show en sub
Et tu veras le resultat directement.

Sinon pour te donner une idée.

C'est un USF qui s'ouvre, créer automatiquement un certain nombre de controls, puis permet d'affecter les valeurs des checkboxs à une cellule cible.

Cellule que tu peux changer directement depuis l'USF

Bonsoir David,

Il faut traiter les questions dans l'ordre :D

Citation:

serait il envisageable de conserver l'état des checkbox et les valeurs contenues dans les cellules et de les rendre indépendantes ?

Oui. Tant que la macro est en route, le contenu peut être stocké en mémoire... Mais je pense que tu veux pouvoir couper ton ordinateur et reprendre plus tard ton travail... Il va te falloir donc stocker quelques part dans ton classeur ces informations et revenir les lire au lancement de ta macro (une feuille masquée, une colonne masquée - en VBA Excel, on ne va pas chercher plus loin. Avec Visual Basic, tu aurais pu concevoir de la même manière un fichier txt en support de mémoire).

Il te faut donc :

1. définir une variable état de type booléen ("vrai" ou "faux") qui serait stocké dans une liste qui partagerai l'indice avec ton indication chiffrée. Je vais l'appeler tabl2(). J'aurai plus choisir d'utiliser tabl() et de lui ajouter une dimension (mais ça risquerai de complexifier la chose, surtout pour ceux qui me relisent :oops:)

2. puis les assembler dans une cellule masquée (avec un numéro de ligne commun avec la ligne de saisie)... on va dire dans la colonne AX de la même feuille.

3. puis être capable de les extraire et de les re-traduire en tabl2()

Chaque ligne a son numéro, tu as donc besoin d'une variable de ce type. Je vais l'appeler "ligne".

Pour l'initialisation et le passage à la ligne, il va falloir tester ta cellule masqué en AX.

Il serait plus simple de gérer indépendant le remplissage de chaque cellule. Mais c'est une question de choix et de praticité.

Rapidement (je regarderai peut-être ce WE) :

Mes globales :
Code:

1 2 3 4 5 6 Option Explicit Dim tabl() As String Dim tabl2() As Boolean Dim variable() As String Dim ligne As Integer
L’enchaînement sur une CheckBox :
Code:

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_Change() Dim i As Integer Range("X" & ligne).Clear If CheckBox1.Value = True Then tabl(1) = "2339, " tabl2(1) = 1 Else tabl(1) = "" tabl2(1) = 0 End If Range("AX" & ligne).Clear variable(ligne) = Empty For i = 1 To 1000 variable(ligne) = variable(ligne) & tabl(i) Range("AX" & ligne).Value = Range("AX" & ligne).Value & tabl2(i) Next Range("X" & ligne).Value = variable(ligne) End Sub
Reste le délicat travail du changement de ligne, de l'initialisation du tabl2 et de son rechargement à partir de la cellule AX.
Pour savoir sur quel ligne tu travailles, insères sur ton formulaire un label qui change en fonction de ta ligne (dans tes sub initialisation et sub passage à la ligne) :

Code:

Label1.Caption = ligne

Il y a d'autres façons de faire et je n'ai pas l'expérience pour t'indiquer la meilleure méthode. Je connais le VBA depuis trop peu de temps. Il me semble que tout ce que tu veux réaliser doit être faisable :D

Bertrand

J'ai trituré un peu tout ça et j'obtiens quelque chose se rapprochant de très près de ce que je veux.
Voici mon code actuel :

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
157
158
159
160
161
162
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 = 2
 
' vide la colonne X
For i = ligne To Range("X65536").End(xlUp).Row
    Range("x" & i).Clear
Next
 
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

Toutefois, il me reste deux détails à régler :

Afin d'obtenir une case cochée si sa valeur est déjà contenu dans la celulle, j'ai trouver ça :

Code:

1
2
3
4
5
6
 
    If Range("X" & ligne).Value = "2339, " Then
      CheckBox1.Value = True
    Else
      CheckBox1.Value = False
    End If

Mais je n'arrive pas à l'intégrer..

Vous pouvez m'aider? : )
Bonne fin de journée!