Bonjour,
J'ai 24 checkbox et j'aimerais simplifier les codes, est-ce possible?
Peut-on simplifier le code qui suit comme tel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub checkboxi_click()
For i = 1 To 24
  If CheckBoxi.Value = True Then
    Range(Range("numcentrale").Cells(ComboBox1.ListIndex + 1, 1).Address).Offset(0, i + 1).Value = "8"
  Else
    Range(Range("numcentrale").Cells(ComboBox1.ListIndex + 1, 1).Address).Offset(0, i + 1).Value = ""
  End If
Next
 
End Sub
Peut-on intégrer For i = 1 to 24 d'une manière ou d'une autre ?
Merci beaucoup