Discussion :

[tonton fred]

Bonjour a tous,
Comme dit dans le titre, je souhaiterais pouvoir boucler sur les 48 checkbox que contient ma feuille lors de l'event calculate pour changer leur etat si besoin apres mise a jour des donnees (les etats sont ensuite utilises dans une autre macro).

J'ai pense utiliser un truc comme ca seulement control n'est pas une propriete valide pour les sheets . Devant le nombre ca m'embete un peu d'ecrire un code pour chaque Checkbox (qui a dit flemmard ?), surtout que ca risque d'augmenter.
La solution sans checkbox consisterais en 48 msgbox vbYesNo , et lire la valeur d'une cellule serait un peu trop aleatoire etant donne que plusieurs personnes vont utiliser le fichier...

Donc voila, quelqu'un a une idee ?

[Freiya]

bonjour,

Il ya la réponse dans les tuto.
http://silkyroad.developpez.com/VBA/...UserForm/#LI-B
Là c'est un ex. pour les textbox mais c'est le même principe pour les checkbox

Code :

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

1
2
3
4
5
6
 
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then MsgBox Ctrl.Object.Value
Next Ctrl

Voilà

[tonton fred]

Merci mais j'avais deja lu ca, ca ne marche que pour des userform. Or mes checkbox sont dans une feuille je n'ai donc pas acces a Me.Controls pour boucler (ni a Sheets(1).Controls qui n'existe pas)

[Freiya]

Je ne suis pas dans une form et ce code-ci fonctionne.
Ma vérification pour savoir si c'est une checkbox n'est pas très "pro", mais ça marche, à condition que tes checkBox soient nommés de façon adéquates.

Code :

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

1
2
3
4
5
6
7
8
 
Dim obj As OLEObject
 
 For Each obj In ActiveSheet.OLEObjects
       If Left(obj.Name, 5) = "Check"  Then
                 obj.Object.Caption = "test"
       End If
 Next obj

Voilà

[tonton fred]

OLEObjects, c'etait donc ca...
Ca marche impeccable merci beaucoup

[tonton fred]

Juste pour ajouter qu'il existe une methode plus propre pour tester le genre de controle que c'est:

Code :

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

If TypeOf obj.Object Is msforms.CheckBox Then

De meme on peut apres les manipuler comme s'ils etaient dans un form:

Code :

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

1
2
3
obj.Object.Value = True
obj.Object.Caption = "Checkbox1"
obj.Object.Name = "Vas y coche moi si t'es un homme"

Merci encore