Voilà mon problème, j'aimerais pouvoir dans une boucle faire varier une checkbox sur laquelle je change la valeur en fonction de mon incrément.

ici mes checkbox ont pour nom i1 i2 i3 etc.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
For p = 1 To 7
           Dim h As CheckBox
           j = p + 3
           i = ("i" & p)
           Set h = i
                If Cells(3, j) > 0 Then
                    Worksheets("Recherche").Cells(3, j) = Cells(3, j) + 1
                    h.Value = True
                Else
                    h.Value = False
                    h.Locked = True
                End If
  Next p
Quelqu'un a une idée???