Noms de CheckBox avec une variable

[Excel-lent]

Bonjour le forum,

Voici mon code de départ :
If CheckBoxSem1 .Value = True Then
Range("A1") = 1
Else
Range("A1") = 0
End If
If CheckBoxSem2 .Value = True Then
Range("A2") = 1
Else
Range("A2") = 0
End If
...
If CheckBoxSem9 .Value = True Then
Range("A9") = 1
Else
Range("A9") = 0
End If

Évidement ce code est lourd et fastidieux, je souhaite donc faire une boucle, mais je n'arrive pas à trouver comment écrire "CheckBoxSem" & i où i prendrait les valeurs 1 à 9.

Code essayé sans succès actuellement dans le fichier ci-joint :

For i = 1 To 9
  If CheckBoxSem & i & .Value = True Then
     Range("A" & i) = 1
  Else
     Range("A" & i) = 0
  End If
Next i

Ainsi que :

  If CheckBoxSem_ & i & .Value = True Then

Quelqu'un pourrais me transmettre son savoir sur ce point?

Vous en remerciant par avance.

 

[Fo_rum]

Re : Noms de CheckBox avec une variable

Salut

à tester :

Private Sub [B]CommandButtonValidSaisie[/B]_Click()
  For i = 1 To 9
    Range("A" & i) = ""
    Range("A" & i) = IIf(Controls("CheckBoxSem" & i), 1, 0)
  Next i
  Unload Me
End Sub

 

[Excel-lent]

Re : Noms de CheckBox avec une variable

Merci beaucoup pour tout Fo_rum

Ca fonctionne à la perfection et c'est très clair!

L'adaptation à mon fichier c'est passé facilement et avec succès!

J'ai bien aimé l'astuce pour raccourcir IF-THEN-ELSE-END IF que je ne connaissais pas.

Bonne fin de WE à toi