Discussion :

[ouskel'n'or]

Bonsoir,
J'ai à utiliser le code suivant

Code :

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

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.

[SilkyRoad]

bonjour cher Ouskel'n'or

cette synthaxe :

Code :

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

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 :

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

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 :

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

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 :

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

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

[ouskel'n'or]

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

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 :

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

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

Mais ceci ne fonctionne pas

Code :

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

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

Non plus que

Code :

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

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

ni

Code :

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

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

ni

Code :

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

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

ni

Code :

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

        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 ?

Merci pour la réponse

[bidou]

par ex

Code :

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

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

[ouskel'n'or]

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

Merci une fois encore.

A+