Parcourir l'ensemble de control

Bonjour à tous et pour commencer Bonne année à tous.

Mon année commence avec une petite question concernant un test de vérification.
J'ai un fichier Excel contenant plusieurs checkbox et je voudrais parcourir ma feuille excel : Je pensais faire qqch du genre

Code:

---

1 2 3 4 5

Dim ctl as Control For each ctl in ActiveSheet 'La j'aimerai déjà vérifier si mon control est une checkbox Next

---

Voila mon petit problème
En tous cas merci de votre aide.
A+++

Marsup.

D'abord, je pense qu'il manque qqch :

Code:

---

1 2 3 4 5

Dim ctl as Control For each ctl in ActiveSheet.controls Next

---

Après je n'ai pas trouvé de méthode pour repérer le type donc je te propose une méthode un peu bricolo mais qui fonctionne : tu nommes tes checkbox du type "chkBx1", "chkBx2"... et tu fais un test sur le nom :

Code:

---

1 2 3 4 5 6

Dim ctl as Control For each ctl in ActiveSheet.controls if left(ctl.name,5)="chkBx" then '... end if Next

---

Je sais, c'est moche...

Bonjour

Il faut d'abord déterminer si tes objets proviennent de la barre de formulaire ou de la boîte à outils.

De plus, il ne s'agit pas d'itérer sur la collection des contrôles de la feuille active, car il n'y a pas de collection de contrôles pour une feuille de calcul. Il faut itérer sur la collection des shapes.

S'ils proviennent de la barre "Formulaires", tu vas d'abord devoir tester que le contrôle est du type msoFormControl, puis tester si le FormControlType est de type xlCheckBox.

Voici une procédure qui permet cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() Dim oControle As Shape   For Each oControle In Feuil1.Shapes If oControle.Type = msoFormControl Then If oControle.FormControlType = xlCheckBox Then   End If End If Next oControle End Sub

---

Si tu as placé des checkbox qui proviennent de la boîte à outils, tu dois d'abord tester si le type est msoOLEControlObject, puis si l'ID du format OLE est "Forms.CheckBox.1". La procédure suivante permet cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test1() Dim oControle As Shape   For Each oControle In Feuil1.Shapes If oControle.Type = msoOLEControlObject Then If oControle.OLEFormat.progID = "Forms.CheckBox.1" Then   End If End If Next oControle End Sub

---

Attention! il ne faut pas tester les deux conditions sur la même ligne avec un AND car plantage sur la deuxième condition lorsque le contrôle n'est pas du bon type

Ok?

Merci pour vos réponses.

C'est de la 2° solution qu'il s'agit.

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test1() Dim oControle As Shape   For Each oControle In Feuil1.Shapes If oControle.Type = msoOLEControlObject Then If oControle.OLEFormat.progID = "Forms.CheckBox.1" Then   End If End If Next oControle End Sub

---

---

J'ai donc insérer cette partie de code en ajoutant un msgbox(pour voir si il trouvait des checkbox)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test1() Dim oControle As Shape   For Each oControle In Feuil1.Shapes If oControle.Type = msoOLEControlObject Then If oControle.OLEFormat.progID = "Forms.CheckBox.1" Then Msgbox("ok") End If End If Next oControle End Sub

---

Par contre il ne m'affiche jamais le message.

J'aurai également une 2° question : comment fait on pour récupérer le caption d'un checkbox avec des formulaires ?

Merci d'avance

Marsup

salut,
avec

Code:

---

Me.CheckBox1.Caption

---

non ? ;)

Dsl, j'ai fait une erreur.
C'est bien de la 1° Méthode qu'il s'agit.
Par contre, je voudrais récupérer le caption du checkbox.
J'ai essayé avec :

Code:

---

1 2	oControle.caption

---

Mais il ne reconnait pas le caption

J'ai résolu mon 2d pbme à l'aide de l'enregistreur de macro.
Merci à tous pour votre aide.
A+

Marsup