Afficher des images dans Excel

Bonjour,

J'ai récupéré un code VBA qui me permet d'afficher des images dans Excel à partir d'une référence. Quand je tape la référence dans Excel et que j'utilise la fonction :

=AfficheImage(A1&".jpg")

Je récupère l'image jpg ayant le même nom dans le même fichier.

Afin d'être clair, j'ai joint un fichier ".xlsm" et des images.

Je voudrais modifier cette macro :

1) La commande (A1&".pjg") n'est pas simple à taper pour des commerciaux. Il faudrait pouvoir juste montrer la cellule où la référence est tapée.

En clair, je voudrai pouvoir taper juste = AfficheImage(A1)

2) Avec cette fonction, l'image s'adapte à la taille de la cellule. Je voudrai obtenir l'inverse : que la cellule s'adapte à la taille de l'image.

3) Dans l'idéal, il faudrait que la cellule dans laquelle la fonction est tapée se dimensionne automatiquement en fonction d'un critère saisi dans une cellule à coté de la référence :

A1 = référence

B1 = critère portrait ou paysage

C1 = AfficheImage(A1)

Si B1 = portrait, image dans cellule de 135 pixels x 17 pixels dans D1

Si B1 = paysage, image dans cellule de 135 pixels x 34 pixels dans E1

Mais peut être que pour le point 3), je rève .

Si le point 3) est possible, le point 2) devient inutile.

Le problème : je n'y connais rien en VBA. Donc si quelqu'un est intéressé par ma demande; c'est le TOP.

Par avance, merci à tous ceux qui auront pris le temps de lire mon message.

Bonjour,

Tu as raison ... la manipulation peut être grandement simplifiée ...

Il te suffit de joindre ton fichier avec ton prochain message ... pour une solution adaptée ...

/

Rechercher des sujets similaires à "afficher images"