Discussion :

[Pierre Dumas]

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 :

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

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

[jfontaine]

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 :

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

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

[Pierre Dumas]

Merci beaucoup, cela fonctionne parfaitement

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

[jfontaine]

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