identifier une image

[VIARD]

Bonjour à toutes et tous

Les images ne se traitent pas comme une cellule.
Je suis en panne. Je veux connaître le nom de l'image de la cellule "A1".
sans toucher à la cellule, donc par macro.
j'ai vu quelquechose chez Boisgontier comme "Application.Caller" comment l'utiliser.

Merci à tous

Jean-Paul

 

[Compte Supprimé 979]

Re : identifier une image

Bonjour Viard,

1) tu affectes la même macro à chacune de tes images
Clique droit sur l'image -> Affecter une macro

2) Dans ta macro globale tu utilises ensuite l'instruction

Sub MacroGlobale()
Msgbox Application.Caller
End Sub

Celle-ci te donnera le nom de l'objet appelant

A+

A+

 

[Dan]

Re : identifier une image

Bonjour,

essaie ceci -->

Sub test()
Dim image As Object
For Each image In ActiveSheet.Shapes
MsgBox "Le nom de la forme sélectionnée est : " & image.Name
Next
End Sub

Cela te donnera le nom de toutes tes images sur ta feuille

Amicalement

 

[VIARD]

Re : identifier une image

Bonjour BrunoM45

Merci Bruno, mais dans ce cas il faut que je clique sur l'image, ça ne me convient pas.
je veux juste indiquer par macro la cellule ou se trouve l'image et il me donne son nom.
Je n'ai qu'une image et des boutons sur la feuille.
merci de t'intéresser à ce sujet.

Jean-Paul

 

[VIARD]

Re : identifier une image

Bonjour Dan, Bruno

Dan je vais tester ta solution de suite.
A vue de nez ça semble bon.
je te dis de suite le résultat.

amicalement

Jean-Paul

 

[VIARD]

Re : identifier une image

Bonjour BrunoM45, Dan

ça marche à moitié, il m'interroge tous les boutons qu'il considère comme des images.
Je veux cibler seulement une cellule précise.
en fait j'ai du mal à sortir de ce truc.

merci

Jean-Paul

 

[VIARD]

Re : identifier une image

Bonjour Bruno

J'ai effectué ton test, c'est ok, ça marche bien, je n'avais jamais effectué cette manipe pour une image à retenir.
Mais malheureusement je suis obligé de cliquer sur l'image.
merci, je continue de chercher.

Jean-Paul

 

[kjin]

Re : identifier une image

Bonjour,
Pas très claire la question

Dim sh As Shape
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoPicture Then
        MsgBox sh.TopLeftCell.Address & " : " & sh.Name
    End If
Next

A+
kjin

 

[BOISGONTIER]

Re : identifier une image

Bonjour,

Donne le nom de l'image en C3.

Sub NomImg()
  Set c = Range("C3")
  For Each s In ActiveSheet.Shapes
      If s.TopLeftCell.Address = c.Address Then
         MsgBox s.Name
      End If
   Next s
End Sub

Sub essai()
  Set c = Range("C3")
  MsgBox NomImg(c)
  Set c = Range("A1")
  MsgBox NomImg(c)
End Sub

Function NomImg(ByVal c As Range)
  NomImg = ""
  For Each s In ActiveSheet.Shapes
     If s.TopLeftCell.Address = c.Address Then NomImg = s.Name
  Next s
End Function

Nom de l'image d'une cellule

 

[VIARD]

Re : identifier une image

Bonjour Kjin, Boigontier

Je regarde de suite vos solutions.
Merci

Jean-Paul

 

[VIARD]

Re : identifier une image

ReBonjour Kjin, Boigontier

Je me suis absenté, et hop retour aux manipes.

Kjin j'ai testé, ça marche bien pour les images, les boutons ne sont pas pris, mais on ne cible pas une cellule particulière.
Comme je ne sais pas de quoi sera fait l'avenir, j'ai ajouté une image à mon test et la deuxième image est également sortie.

Boigontier, le test fonctionne à merveille, juste ce que je voulais, je vais pouvoir continuer.
Je vous remercie tous deux, et également BrunoM45 et Dan pour leurs investissements.

Merci à tous problème résolu.

Jean-Paul