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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.