Parcourir l'ensemble de control

**marsupilami34** · 03/01/2008, 09h49

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 :

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

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.

**House MD** · 03/01/2008, 10h09

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

Code :

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

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 :

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

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

**Pierre Fauconnier** · 03/01/2008, 10h17

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 :

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

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 :

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

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?

**marsupilami34** · 03/01/2008, 10h36

Merci pour vos réponses.

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

Code :

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

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 :

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

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