VBA identification nom d'objet

Bonjour à tous,

Est-il possible d'identifier le nom d'un objet (ici image) à l'intérieur d'une cellule ?

Exemple :

Dans ma feuille j'ai une cinquantaine d'image (toute dans des cellules),

je souhaiterais récupérer le nom de l'image dans la cellule B6 par exemple.

J'ai pas trop d'espoir, mais sait-on jamais !

Bonne journée

Claude.

Bonsoir au forum,

Peut-on conclure que cela n'est pas possible ?

j'attends encore un peu avant de fermer ce fil.

Bonne soirée

Claude.

Bonsoir Dubois,

Essaie ceci si cela peut t'aider:

Sub Test()
    Dim obj As Object
    For Each obj In Worksheets("Feuil1").Shapes
        If obj.Type = msoPicture Then
            If obj.TopLeftCell.Address = "$B$6" Then 
                    MsgBox obj.Name
                    Exit For
           Enf If
        End If
    Next obj
End Sub

On peut seulement parcourir l'ensemble de la collection des objets de la feuille pour tester leur type et savoir s'il sont attachés à une cellule (TopLefCell)

Bonne exploration

re,

Bonsoir hasco,

je vais pouvoir exploiter ce code quelque peu modifié (le Addresss = ne fonctionne pas sur ma version.)

Sub Test()
    Dim obj As Object
    For Each obj In ActiveSheet.Shapes
        If obj.Type = msoPicture Then
            If obj.TopLeftCell = Range("c6") Then
                    MsgBox obj.Name
                    Exit For
            End If
        End If
    Next obj
End Sub

de là, on peut faire ; obj.Delete ou obj.Copy

C'est ce que je cherchais

Merci de ton aide

amicalement

Claude.