Propriété de ListBox dans une boucle

Bonjour tout le monde

J'ai du mal chercher car je suis sûr que le problème a déjà été soulevé, mais je n'ai pas trouvé la solution.

J'ai une feuille Excel toute bête, avec 3 ListBox à l'intérieur.

J'ai fait un tout petit bout de code à l'intérieur :

Code:

---

1 2 3 4 5 6 7

Debug.Print ListBox1.ListIndex Debug.Print ListBox2.ListIndex Debug.Print ListBox3.ListIndex   For Each shp In ActiveSheet.Shapes Debug.Print shp.ListIndex Next shp

---

Les trois premières lignes fonctionnent parfaitement.:)
Arrivé à la ligne 5, Excel met une erreur d'exécution 438 :cry: : Propriété ou méthode non gérée par cet objet.

Pourquoi ?
Que faut-il que je fasse ?

Merci d'avance à tous ceux qui pourront m'indiquer la voie de lumière.

Bonne soirée

Bonjour,

le code ci dessous, permet de boucler sur chaque objet, de tester son type et si type Listbox alors on fait l'action

Code:

---

1 2 3 4 5 6 7 8 9

Dim obj As OLEObject   For Each obj In Me.OLEObjects   If TypeOf obj.Object Is MSForms.ListBox Then Debug.Print obj.Object.ListIndex End If   Next

---

Merci beaucoup, cela fonctionne parfaitement :ccool:

En complément : qu'elle est la différence entre la collection OLEObjects et la collection Shapes qui fait que je ne peux pas arriver à attraper la propriété ListIndex ?

Encore merci :)

Pierre

Shapes => objets Dessins
OLEObject => Objets ActiveX sur une Feuille