Startus
XLDnaute Occasionnel
Bonjour tous le monde,
Voila, je me casse la tête sur un problème concernant les checkbox à faire tourner dans une boucle.
Je m'explique:
Dans un Userform nommé 'News' il y a 13 Checkbox,
je voudrai que seule les checkbox 2 to 12 soit 11 Checkbox fasse une action lorsque leur valeur = true
Le code suivant marche mais il faudrai que je le réecrive 11 fois ce qui est fastidieux et ralentirai très certainement ma macro :
Les éléments à faire tourner sont :
Checkbox 2 to 12
Textbox 3 to 13
Si une idée vous vient afin de me donner secours ca me faciliterai beaucoup le tache...
Merci par avance...
Voila, je me casse la tête sur un problème concernant les checkbox à faire tourner dans une boucle.
Je m'explique:
Dans un Userform nommé 'News' il y a 13 Checkbox,
je voudrai que seule les checkbox 2 to 12 soit 11 Checkbox fasse une action lorsque leur valeur = true
Le code suivant marche mais il faudrai que je le réecrive 11 fois ce qui est fastidieux et ralentirai très certainement ma macro :
Code:
Private Sub CommandButton3_Click()
ActiveSheet.Unprotect
Range('A65536').End(xlUp).Offset(1, 0).Select
If CheckBox2 = True Then
ActiveCell = Format(TextBox2.Value, 'mm/dd')
ActiveCell.Offset(0, 2) = CheckBox2.Caption
ActiveCell.Offset(0, 1) = 'Prélvt'
ActiveCell.Offset(0, 4) = TextBox3.Value
End If
Range('A65536').End(xlUp).Offset(1, 0).Select
If CheckBox3 = True Then
ActiveCell = Format(TextBox2.Value, 'mm/dd')
ActiveCell.Offset(0, 2) = CheckBox3.Caption
ActiveCell.Offset(0, 1) = 'Prélvt'
ActiveCell.Offset(0, 4) = TextBox4.Value
End If
Range('A65536').End(xlUp).Offset(1, 0).Select
If CheckBox4 = True Then
ActiveCell = Format(TextBox2.Value, 'mm/dd')
ActiveCell.Offset(0, 2) = CheckBox4.Caption
ActiveCell.Offset(0, 1) = 'Prélvt'
ActiveCell.Offset(0, 4) = TextBox5.Value
End If
Range('A65536').End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect
Unload News
End Sub
Les éléments à faire tourner sont :
Checkbox 2 to 12
Textbox 3 to 13
Si une idée vous vient afin de me donner secours ca me faciliterai beaucoup le tache...
Merci par avance...