[E-07] Checkbox indicée : "CheckBox" & j
Bonjour
Je voudrais faire une opération sur les checkbox 1,2,3.....n.
C'est pourquoi j'aimerais réussir à faire tourner le code suivant.
Code:
1 2 3 4 5 6 7 8 9
| Sub programme()
Dim j As Integer
j=1
If Evaluate("ActiveSheet.CheckBox" & j).Value = True Then
Worksheets("Feuil1").Cells(5, 2).Value = 1
Else
Worksheets("Feuil1").Cells(5, 2).Value = 0
End If
End Sub |
Mon problème est surement du au fait que:
ActiveSheet.CheckBox" & j) est reconnu comme une chaine de caractères
et donc ("ActiveSheet.CheckBox" & j).Value n'a plus de sens.
Avez-vous une idée ou la réponse?.
Merci d'avance pour vos réponses avisées.:P