Comment faire varier le nom d'un objet Checkbox

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:

---

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???

Bonjour,

La bonne syntaxe pour adresser les checkbox est la suivante, avec h défini comme objet :

Code:

---

1 2 3 4

Dim h As Object ... Set h = Worksheets("Recherche").Shapes("i" & p).DrawingObject.Object

---

bonjour

est ce le nom ou la caption que tu veux changer car ca n'est pas la meme chose

au plaisir