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,