Image dans fichier Excel sur control userform image

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

77test.xlsm (819.13 Ko)

Bonjour,

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

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

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.

83test.xlsm (75.66 Ko)

Bonjour,

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

Rechercher des sujets similaires à "image fichier control userform"