Excel - Image sur boîte
Bonsoir à tous,
Ayant cherché sur votre forum, je n'ai malheureusement pas trouvé mon bonheur.
J'ai crée un fichier regroupant certains produits de ma société, que l'on associe avec une boîte grâce à des numéros d'emplacements.
Ce que j'aimerais faire, c'est, lorsque je mets ma référence par exemple dans l'emplacement 1 il y ait la photo qui apparaisse sur la boite, pour que les clients puissent avoir un meilleur aperçu du montage.
Je vous mets le fichier en pièce jointe ça sera plus "explicite"
Je vous remercie d'avance pour vos réponses.
Bonjour,
ci joint un début pour ton fichier en utilisant le gestionnaire de nom et la formule décaler.
En espérant pouvoir t' aider un peu.
Bonjour,
Merci c'est exactement ce que je cherche, mais j'aimerais pouvoir modifier certaines choses, notamment le nom des références, et je n'arrive pas à rajouter des images après la 8.
Je ne trouve pas vos formules, sont-elles cachées? J'ai mis afficher les formules mais cela n'a servit à rien.
Je vous remercie de vos réponses.
Bonjour,
il n'y a pas de macro en VBA, les formules sont dans gestionnaire de noms (Ctrl+F3 pour ouvrir le gestionnaire de noms)
La formule est
=DECALER(Images!$B$2;0;Feuil1!$L$4-1;1;1)pour chaque image.
Ca permet de prendre une "photo" de la cellule et de la retranscrire à l'endroit souhaité.
Pour rajouter, des images, il suffit de rajouter les images dans les cellules sur la ligne 2 et continuer le texte sur les lignes 3 à 5.
En pièce jointe, j'ai mis à jour le fichier avec 12 images, mais tu peux en faire d'autres.
Sébastien
Merci beaucoup,
Est-ce possible de faire une recherchev plutôt que d'avoir un menu déroulant?
La recherchev je maîtrise ça va lol.
Bonjour,
une autre solution avec une macro
Répertoire = "D:\Mes documents\Foot" 'ThisWorkbook.Path répertoire ou se trouvent les photos
le même répertoire que le dossier. La photo est sélectionnée sur son nom
If Dir(Répertoire & "\" & Me.TBNom & ".jpg") <> "" Then
' If Dir(Répertoire & "D:\Documents excel\Foot\" & Me.nom & ".jpg") <> "" Then
Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TBNom & ".jpg")
Else
Me.Image1.Picture = LoadPicture()
Si l'image existe elle sera affichée
TB = Texte Box
Cette macro vient d'un exemple trouvé dans ce forum.
Je vais retrouvé ce programme et te le présenter.
Cordialement
Papy Pierrot
Bonjour, c'est papy Pierrot
Voici le programme complet trouvé sur ce forum.
Bonne chance, Si cela te convient,coche la flèche verte à coté de ta question.
Papy Pierrot
Bonjour et merci de votre réponse.
Il faut impérativement que les images soient dans le fichier Excel et non dans un répertoire, car le fichier doit être envoyé au client et être lu le plus simplement possible.
Merci
oui on peut faire une rechercheV mais il faudrait savoir ce que tu veux chercher comme cellule et dans quelle base tu veux la chercher.
Après, le dossier risque d'être assez long à mettre en place.
Bonjour n'oublie pas de cocher "résolu" pour clôturer le sujet.