[VBA] Parcourir les Controls sous une feuille

Question

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!

Ryujakk · Answer

Bump...

Ryujakk · Answer

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

lermite222 · Answer

Bonjour,
Si tu a beaucoup de contrôles 
Ce lien pourrais t'intéresser.
A+

[VBA] Parcourir les Controls sous une feuille

3 réponses

Discussions similaires

Newsletters