bonjour
je le code suivant:
et j'aimerais remplacer le combobox, par des cases a cocher. Pour moi je pense que visuellement cela est plus rapide que de lister dans le combobox
le probleme pour moi c'est que j'ai 50 cases a cocher, et je ne sais comment faire. j'ai trouve le code suivant mais je ne sais pas comment l'adapter sur mon code ci dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
[a3] = "J'aime Excel"
Else
[a3] = "Je n'aime pas Excel"
End If
End Sub
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
Private Sub Fin_commande_Click()
Unload Me
End Sub
 
Private Sub Userform_Initialize()
DTPicker1.Value = Date
Dim WsS As Worksheet
Dim DerLigS As Long, R As Long
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 16).End(xlUp).Row
For R = 2 To DerLigS 'Boucle sur les lignes de la col. A
   consultant.CB_numero.AddItem WsS.Cells(R, 1) 'Ajout des N° au Combobox
Next R
End Sub
Private Sub CommandButton2_Click()
Dim WsS As Worksheet
Dim MaRech As Range, MaPlage As Range
Dim DerLigS As Long, DerCol As Long
 
Set WsS = Sheets("Data")
DerLigS = WsS.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Set MaPlage = WsS.Range(WsS.Cells(1, 1), WsS.Cells(DerLigS, 1))
Set MaRech = MaPlage.Find(consultant.CB_numero, LookIn:=xlValues)
DerCol = WsS.Cells(MaRech.Row, WsS.Rows(MaRech.Row).Cells.Count).End(xlToLeft).Column '
 
WsS.Cells(MaRech.Row, DerCol + 1) = CDate(DTPicker1) & " à " & consultant.Textbox1.Value & _
                                         Chr(10) & consultant.ComboBox1.Value
'consultant.Hide
'Unload consultant
Textbox1.Value = ""
ComboBox1.Value = ""
 
End Sub
merci d'avance pour vos reponse.
cris