Image dans fichier excel sur control userform image Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
Jess1970
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 24 décembre 2016
Version d'Excel : 2016

Message par Jess1970 » 16 mai 2019, 08:22

Bonjour à vous tous,

Je viens voir dans ce forum si qqun aurait une solution à mon problème.


Voilà, j'ai un tableau excel avec des données de contact, dans ce fichier, j'ai un userform pour faire une recherche qui indique les données principales du contact. Après, sur ce userform, j'ai un bouton qui ouvre un 2ème userform pour voir les détails en profondeur.

Dans l'ensemble j'arrive a trouver mon bonheur avec 1 ou 2 bouquins et aussi beaucoup sur des forums, mais maintenant, j'ai un souci avec des images.
Je aimerais bien que dans ce 2ème userform s'affiche des images qui se trouvent dans une autre feuille du fichier excel toujours en se référant au tableau de la feuille 1. Dans la colonne "AY"

D'avance, je vous remercie.

P.S. Dans le fichier, j'ai mis 4 images, 2 tout simplement importée et 2 autres dans des contrôles images... je ne sais pas quelle est la meilleures possibilité.

Jess
TEST.xlsm
(819.13 Kio) Téléchargé 11 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 17 mai 2019, 20:48

Bonjour,

Pour tout te dire .. le Forum est truffé d'exemples similaires au tien ... :wink:

As-tu jeté un oeil aux 6 discussions au bas de cette page ... ???

Si ma mémoire fonctionne encore un peu ... le dernier sujet en date ...

https://forum.excel-pratique.com/viewtopic.php?f=2&t=124418&p=761858&hilit=image#p761858

En espèrant que cela t'aide
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
J
Jess1970
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 24 décembre 2016
Version d'Excel : 2016

Message par Jess1970 » 18 mai 2019, 00:49

Salut James007,

Merci pour ta réponse. J'ai trouvé mon bonheur grâce au site de :

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#InsertionImage

Extraordinaire se site !!! Voici le code qui va chercher une image dans une autre page du fichier excel pour la mettre dans le control Image de mon UserForm.

'Images------------------------------
Me.TextBox52 = c.Offset(, 52)
Me.TextBox53 = c.Offset(, 53)
Me.TextBox54 = c.Offset(, 54)
Me.TextBox55 = c.Offset(, 55)


Dim f

Set f = Sheets("IMAGES")
On Error GoTo fin
  Set s = Sheets("IMAGES").Shapes(Me.TextBox52.Value)
  s.CopyPicture
  f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
  Me.Image1.Visible = True
fin:

Je met le fichier en pièce jointe pour ceux à qui cela intéresse.
TEST.xlsm
(75.66 Kio) Téléchargé 24 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 414
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 18 mai 2019, 06:42

Bonjour,

Content que tu aies pu très rapidement résoudre ton problème ... :wink:
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message