[VBA-E] Parcourir les checkbox d'une feuille avec une boucle

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 :cry: . Devant le nombre ca m'embete un peu d'ecrire un code pour chaque Checkbox (qui a dit flemmard :evilred: ?), surtout que ca risque d'augmenter.
La solution sans checkbox consisterais en 48 msgbox vbYesNo :roll: , 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 ?

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:

---

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à

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)

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:

---

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à

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

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

Code:

---

If TypeOf obj.Object Is msforms.CheckBox Then

---

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

Code:

---

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 :D