Discussion :

[jpegue]

Bonjour,

j'ai une feuille de calcul avec plusieurs Checkbox (17)
Je voudrais les remettre à False en utilisant une fonction "raz"

j'ai essayé :

Code :

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

1
2
3
For k = 1 To 17
    Worksheets("test").CheckBox& k.Value = 0
Next k

mais cela ne fonctionne pas,
La question se résume à savoir si on peut affecter une variable à la place du numéro de la Checkbox.

merci de votre aide.

[edelweisseric]

Bonjour à tous
Bonjour jpegue

Je n'ai pas testé, mais j'écrirai ceci:

Code :

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

 ActiveSheet.OLEObjects("CheckBox" & k).Object.Value= False

Eric

[Fvandermeulen]

Salut,
Je crois pas que les check box réagissent à .Value, désolé edelweisseric
Essaies:

Code :

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

1
2
3
4
5
6
7
8
Sub BoucleCheckBox()
    Dim k As Byte
 
    For k = 1 To 17
        Sheets("sheet1").CheckBoxes(k) = Unchecked
    Next
 
End Sub

A+

[rvtoulon]

slt
la méthode de edelweisseric fonctionne bien c d'ailleurs celle donnée dans l'aide de vbE.

Code :

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

1
2
3
4
5
6
7
Dim k As Byte
 with worksheets("test")
    For k = 1 To 17
     'tu as le choix entre false ou 0 les deux fonctionnent 
     .OLEObjects("CheckBox" & k).Object.Value= False
     Next k
end with

[Fvandermeulen]

slt
la méthode de edelweisseric fonctionne bien c d'ailleurs celle donnée dans l'aide de vbE.

bien fait pour moi, j'avais qu'a tester !!!

[jpegue]

bonjour,

Ca marche très bien merci "edelweisseric"