identifier une image

C

Compte Supprimé 979

Guest

• 18 Juin 2011

• #2

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

Code:

Sub MacroGlobale()
Msgbox Application.Caller
End Sub

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

A+

A+

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 18 Juin 2011

• #3

Re : identifier une image

Bonjour,

essaie ceci -->

Code:

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 18 Juin 2011

• #4

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 18 Juin 2011

• #5

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 18 Juin 2011

• #6

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 18 Juin 2011

• #7

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 18 Juin 2011

• #8

Re : identifier une image

Bonjour,
Pas très claire la question

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Juin 2011

• #9

Re : identifier une image

Bonjour,

Donne le nom de l'image en C3.

Code:

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

Code:

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

 

Pièces jointes

• Classeur1.xls

  38.5 KB · Affichages: 65
• Classeur1.xls

  38.5 KB · Affichages: 65
• Classeur1.xls

  38.5 KB · Affichages: 67
• Classeur1bis.xls

  40.5 KB · Affichages: 50
• Classeur1bis.xls

  40.5 KB · Affichages: 45
• Classeur1bis.xls

  40.5 KB · Affichages: 54

Dernière édition: 18 Juin 2011

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 18 Juin 2011

• #10

Re : identifier une image

Bonjour Kjin, Boigontier

Je regarde de suite vos solutions.
Merci

Jean-Paul

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 18 Juin 2011

• #11

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

 

Vote positif 0 Vote négatif