Afficher le "Nom" de l'image dans une cellule

[benjaminmalo]

Afficher le "Nom" de l'image dans une cellule [Résolu]

Bonjour,

Apres une longue période de non utilisation du VBA, je n'arrive plus a grand chose et je viens chercher votre aide.

Sur une feuille, j'ai une dizaine d'images. Un Userform avec différentes données s'affiche quand on clic sur une image.

Afin de pouvoir afficher vraiment ce que je veux, je souhaiterais que lorsque l'on clic sur une image, le "nom" de l'image s'inscrive dans une case définie (par exemple dans la cellule A1 de la feuille 2).

D'avance merci pour votre aide.

 

[Hulk]

Re : Afficher le "Nom" de l'image dans une cellule

Hello,

Déposes ton fichier exemple avec tes souhaits...

Pour joindre un fichier, en faisant ton message, plus bas, tu cliques sur "Gérer les pièces jointes".

Le fichier ne doit pas dépasser 50k, mais comme il s'agit d'image, j'imagine que ton fichier est bien plus lourd alors tu mets que 2-3 images, puis tu zippes le fichier et tu le joins dans un site comme Cijoint.fr - Service gratuit de dépôt de fichiers.

A te relire.

 

[benjaminmalo]

Re : Afficher le "Nom" de l'image dans une cellule

Ci joint un fichier simplifié.


D'avance merci.

 

[Caillou]

Re : Afficher le "Nom" de l'image dans une cellule

Bonjour,

Essayes ceci :
Sheets("Feuil2").Range("A1") = ActiveSheet.Shapes("Picture 4").Name

Caillou

 

[BOISGONTIER]

Re : Afficher le "Nom" de l'image dans une cellule

Bonjour,

Sheets("Feuil2").Range("A1") = Application.Caller

JB
http://boisgontierjacques.free.fr/

 

[benjaminmalo]

Re : Afficher le "Nom" de l'image dans une cellule

Merci beaucoup