Bonjour,
Encore une autre question.
Sachant que j'ai plus d'une centaine de checkBox que je dois intégrer dans le code VBA, existe-t-il un moyen d'abréger ce code au lieu de l'écrire ligne par ligne pour chaque numéro de checkBox ?
Private Sub Worksheet_Activate()
Feuil6.CheckBox100.Value = Feuil1.CheckBox100.Value
Feuil6.CheckBox101.Value = Feuil1.CheckBox101.Value
Feuil6.CheckBox102.Value = Feuil1.CheckBox102.Value
Feuil6.CheckBox106.Value = Feuil1.CheckBox106.Value
Feuil6.CheckBox107.Value = Feuil1.CheckBox107.Value
Feuil6.CheckBox109.Value = Feuil1.CheckBox109.Value
Feuil6.CheckBox113.Value = Feuil1.CheckBox113.Value
Feuil6.CheckBox114.Value = Feuil1.CheckBox114.Value
Feuil6.CheckBox115.Value = Feuil1.CheckBox115.Value
Feuil6.CheckBox250.Value = Feuil1.CheckBox250.Value
Feuil6.CheckBox251.Value = Feuil1.CheckBox251.Value
Feuil6.CheckBox252.Value = Feuil1.CheckBox252.Value
Feuil6.CheckBox253.Value = Feuil1.CheckBox253.Value
Feuil6.CheckBox254.Value = Feuil1.CheckBox254.Value
Feuil6.CheckBox255.Value = Feuil1.CheckBox255.Value
Feuil6.CheckBox256.Value = Feuil1.CheckBox256.Value
Feuil6.CheckBox257.Value = Feuil1.CheckBox257.Value
Feuil6.CheckBox258.Value = Feuil1.CheckBox258.Value
Feuil6.CheckBox259.Value = Feuil1.CheckBox259.Value
Feuil6.CheckBox260.Value = Feuil1.CheckBox260.Value
Feuil6.CheckBox261.Value = Feuil1.CheckBox261.Value
Feuil6.CheckBox262.Value = Feuil1.CheckBox262.Value
Feuil6.CheckBox263.Value = Feuil1.CheckBox263.Value
Feuil6.CheckBox264.Value = Feuil1.CheckBox264.Value
Feuil6.CheckBox265.Value = Feuil1.CheckBox265.Value
Feuil6.CheckBox266.Value = Feuil1.CheckBox266.Value
Feuil6.CheckBox267.Value = Feuil1.CheckBox267.Value
Feuil6.CheckBox268.Value = Feuil1.CheckBox268.Value
Feuil6.CheckBox269.Value = Feuil1.CheckBox269.Value
Feuil6.CheckBox270.Value = Feuil1.CheckBox270.Value
Feuil6.CheckBox271.Value = Feuil1.CheckBox271.Value
Feuil6.CheckBox272.Value = Feuil1.CheckBox272.Value
Feuil6.CheckBox273.Value = Feuil1.CheckBox273.Value
Feuil6.CheckBox274.Value = Feuil1.CheckBox274.Value
Feuil6.CheckBox275.Value = Feuil1.CheckBox275.Value
etc.
Par ailleurs, sur ma feuil1, il y a ceci qui s'affiche, et ma question est la suivante : faut-il que cela apparaisse pour mes plus de 100 CheckBox ? :
Option Explicit
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox100_Click()
End Sub
Private Sub CheckBox103_Click()
End Sub
Private Sub CheckBox106_Click()
End Sub
Merci par avance.