[VBA-E]Référence à activer pour OLEObject

Bonsoir,
J'ai à utiliser le code suivant

Code:

---

1 2 3

For Each obj In Worksheets("Feuil1").OLEObjects MsgBox obj.Name Next

---

L'objet est une "zone de texte" Barre d'outils Dessin (non Commandes)
Code inspiré de l'aide où il est précisemment utilisé avec une "zone de texte" (et que j'ai utilisé ailleurs pour des commandButton placés dans une feuille de calcul)
Or ce code ne fonctionne pas sur "ce" poste
Quelqu'un a-t-il une idée de la référence que je dois valider pour corriger le tir ? (car je ne vois que ça)

Merci de votre réponse.

bonjour cher Ouskel'n'or

cette synthaxe :

Code:

---

1 2 3 4 5

Dim Obj As OLEObject   For Each Obj In Worksheets("Feuil1").OLEObjects MsgBox Obj.Name Next

---

est à utiliser pour boucler sur les objets de la boite à outils controles




pour boucler sur les objets de la barre d'outils dessins , de la barre d'outils formulaires et de la boite à outils controles

Code:

---

1 2 3 4 5

Dim Obj As Shape   For Each Obj In Worksheets("Feuil1").Shapes MsgBox Obj.Name Next

---

pour boucler uniquement sur les objets de la barre d'outils formulaires

Code:

---

1 2 3 4 5

Dim Obj As Shape   For Each Obj In ActiveSheet.Shapes If Obj.Type = msoFormControl Then MsgBox Obj.Name Next Obj

---

pour boucler uniquement sur les objets formes automatiques (rectangle, ovale, autoshape ...)

Code:

---

1 2 3 4 5

Dim Obj As Shape   For Each Obj In ActiveSheet.Shapes If Obj.Type = msoAutoShape Then MsgBox Obj.Name Next Obj

---

bonne journée
michel

Merci Silky,
Ce que j'apprécie est l'exhaustivité de tes réponses et ton application à épuiser le sujet. Je collectionne d'ailleurs tes solutions et je m'y réfère dès que je cale.
En l'occurence, je me suis laissé tromper par l'aide dont j'ai extrait ça

Citation:

---

L'exemple suivant montre comment supprimer l'objet OLE « ZonedeListe1 ».
Worksheets("Feuil1").OLEObjects("ZonedeListe1").Delete

---

Pas étonnant que je n'arrivais pas à l'utiliser.

Par contre, avec Shapes, également essayé, je n'arrive pas à accéder à la zone de text sans la sélectionner. Par exemple, ceci fonctionne :

Code:

---

1 2	Shapes("Text Box 1").Select MsgBox Selection.Characters.Text

---

Mais ceci ne fonctionne pas

Code:

---

1 2 3

With Worksheets("Feuil1").Shapes("Text Box 1") MsgBox .Characters.Text End With

---

Non plus que

Code:

---

1 2 3

With Shapes("Text Box 1") MsgBox .Characters.Text End With

---

ni

Code:

---

MsgBox ThisWorkbook.Worksheets("Feuil1").Shapes("Text Box 1").Characters.Text

---

ni

Code:

---

MsgBox Worksheets("Feuil1").Shapes("Text Box 1").Characters.Text

---

ni

Code:

---

MsgBox Shapes("Text Box 1").Characters.Text

---

Ce qui paraît normal puisque une zone de liste "Dessin" n'est pas un objet appartenant à une feuille de calcul...

Enfin je passe sur les essais hasardeux que je n'avouerai jamais avoir faits, même sous la torture.

Mais alors, à quoi appartient de foutu objet ? :evil:

Merci pour la réponse

par ex

Code:

---

1 2 3

Set feuille = ActiveWorkbook.Worksheets(1) Set toto = feuille.Shapes(1) MsgBox toto.OLEFormat.Object.Characters.Text

---

bidou, :love:
:merci: C'est ok du premier coup !
Donc, mes essais inavouables avec OLE..., j'aurais pu les évoquer ? :lol:

Merci une fois encore.

A+