Discussion :

[collinchris]

Bonjour à tous,

Je cherche à transférer les valeurs de mes checkbox sur une même ligne, à partir de la colonne B. Mon code est le suivant:

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
Private Sub CommandButton2_Click()
Dim i As Long
 
i = 2
 
While Cells(7, i) <> ""
i = i + 1
Wend
 
'Choix des Entreprises
If CheckBox1 = True Then Cells(7, i).Value = "1"
If CheckBox2 = True Then Cells(7, i).Value = "2"
If CheckBox3 = True Then Cells(7, i).Value = "3"
If CheckBox4 = True Then Cells(7, i).Value = "4"
 
End
End Sub

Le problème se pose quand je veux transférer plusieurs checkbox à la fois: il me renvoie que la dernière valeur dans la cellule B7.
Auriez-vous une idée sur ce qui ne va pas dans ma procédure? Merci d'avance,

[LeForestier]

Bonjour,
Essaye comme ceci...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton2_Click()
Dim i As Byte
    i = 2
    'Choix des Entreprises
    If CheckBox1 = True Then Cells(7, i).Value = "1": i = i + 1
    If CheckBox2 = True Then Cells(7, i).Value = "2": i = i + 1
    If CheckBox3 = True Then Cells(7, i).Value = "3": i = i + 1
    If CheckBox4 = True Then Cells(7, i).Value = "4": i = i + 1
End Sub

A+

[jp014]

Bonjour

Si les CheckBox sont dans un userform, il faut écrire
Un exemple de code , à modifier pour le test sur la cellule B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim j as byte
i= 2 
For j =1 to 4
If Me.controls("CheckBox" & j) = True Then 
Cells(7, i).Value = j
i = i +1
end if
next j

en remplacement des 4 tests

JP014

[collinchris]

Merci beaucoup à vous 2, ca répond tout à fait à mon problème. Bonne journée