maco copier nom image

akrillon · 15 Avril 2014

Bonjour à tous,

J'ai une petite question qui me parait toute simple mais j'ai beau chercher impossible de trouver la bonne formule...

Alors voila mon problème j'ai une image, j'aimerais copier le nom de cette image et le coller dans une cellule lorsque je click sur l'image grâce à une macro.

J'ai le début mais la fin reste un mystère pour moi ^^

ActiveSheet.Shapes.Range(Array("xxxx")).Select

j'espère que vous pourrez m'aider!!

MErci beaucoup

Robert · 15 Avril 2014

Re : maco copier nom image

Bonjour Akrillon, bonjour le forum,

Peut-être comme ça :

Code:

Sub Image1_Cliquer()
Dim Nom As String

ActiveSheet.Shapes.Range(Array("xxx")).Select
Nom = Selection.Name
Range("G1").Value = Nom 'adresse de la cellule à adapter
End Sub

akrillon · 15 Avril 2014

Re : maco copier nom image

ça marche impecable!!
Merci beaucoup à toi

maco copier nom image

akrillon

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

akrillon

XLDnaute Nouveau

Discussions similaires