[VBA] Parcourir les Controls sous une feuille

Ryujakk -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai une feuille Excel contenant des Combobox. Je cherche à effectuer la meme opération sur chaque. J'ai bien trouvé le code suivant en googlant: 

Private Sub TestParcourir()
   Dim ctrl As Control
   For Each ctrl In Me.Controls
      If TypeOf ctrl Is ComboBox Then
         'Faire des trucs avec ctrl
      End If
   Next
End Sub


Malheureusement, ça ne fonctionne pas. Peut-être parce que je travaille sur une Feuille et pas une Userform?
Alors comment faire?

Merci!
A voir également:

3 réponses

Réponse 1 / 3
Ryujakk
 
Bump...
1
Réponse 2 / 3
Ryujakk
 
Voila, j'ai trouvé tout seul finalement! 

Private Sub TestParcourir()
   Dim ctrl As OLEObject
   For Each ctrl In OLEObjects
      If ctrl.progID = "Forms.ComboBox.1" Then
         'Faire des trucs avec ctrl
      End If
   Next
End Sub
1
Réponse 3 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Si tu a beaucoup de contrôles
Ce lien pourrais t'intéresser.
A+
1

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Reporter valeur sur autre feuille avec critere
Otk168 -
via55 -

4 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses
feuille excel de gestion belote
SiFaSiLa -
frank -

2 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses