Discussion :

[ysibille]

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

[tedo01]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour

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

au plaisir