Microsoft 365 Placer une image localisé sur une sheet, dans un formulaire

[Antipode]

bonjour à tous,
Je viens vers vous pour un nouveau soucis sur lequel je planche depuis plusieurs heures sans trouver la solution.

J'ai crée un formulaire dans lequel j'affiche une série de données et des photos en fonction des données affichées.
Ces photos, je vais les chercher dans un répertoire sur mon disque dure. jusque là tout va bien....
Par contre sur l'une des sheets de mon application Excel, j'ai importé et inséré une photo qui est donc "interne" à ma spreadsheet.
c'est à dire que je ne vais plus la "charger" de mon disque, elle est intégrée à ma spreadsheet.
J'essaye de l'importer dans mon "Form" (via des instruction VBA) et là, je n'arrive pas à trouver la commande qui fonctionne.
toute les infos glanée à gauche ou à droite, sont toujours basées sur " l'import" de photo dont la source est externe !.. donc via un path genre " c:\img\photo.jpg"
Et là aucun problème..

'importer la photo par ex:
Fiche_Perso.Album.Picture = LoadPicture(design) ' =>"design " contenant le chemin complet du jpg sur mon Disque dure

Mais comment puis-je remplacer l'affectation : LoadPicture(design) par quelque chose qui va me faire pointer vers l'image qui se trouve sur "Feuil1"
c'est l'unique image (donc shape(1) )...

Je ne vois pas comment faire.. (
merci de votre aide...

 

[Staple1600]

Bonsoir le fil,

Test OK chez moi
1) Insertion d'un contrôle Image sur la feuille
2) Insertion d'un contrôle Image sur l'Userform

Private Sub UserForm_Initialize()
Image1.Picture = Sheets(1).Image1.Picture
End Sub

Voila ce que donne mon exemple

 

[Antipode]

Bonjour

Test OK chez moi
1) Insertion d'un contrôle Image sur la feuille
2) Insertion d'un contrôle Image sur l'Userform

Code de l'userform

Private Sub UserForm_Initialize()
Image1.Picture = Sheets(1).Image1.Picture
End Sub

salut Staple1600,
Merci pour ton aide,..
cela passe toujours pas chez moi...
la photo ne s'affiche pas et si je lance pas à pas, j'ai un message d'erreur:
"Propriété ou méthode non gérée par cet objet"
peux-tu joindre ton ficher stp avec une simple photo?
:

​

 

[Staple1600]

Re

Il faut insérer un contrôle Image sur la feuille
=>Développeur/Insérer/Image (Contrôle ActiveX)
Dans ce contrôle, il faut insérer un image
(En mode création-> Clic-droit sur le contrôle->Propriétés>Cliquer sur Picture pour choisir l'image

Ensuite sur l'Userform
Insérer un contrôle Image

Puis utilisez le code de mon 1er message.

NB: je ne joins de fichier Excel sur le forum le 22 mai 1968, 15 heures de l'aprés-midi.

 

[Antipode]

OK merci, je ré-essaye... truc de fou !... des heures que je passe sur ce stupide prob...

 

[Antipode]

bon, cela ne passe toujours pas... le form s'affiche mais le controle image est vide..

voici ce que j'ai :

 

[Staple1600]

Re

Dans mon exemple, le code est dans l'Initialize
Testes déjà comme expliqué dans mon premier message.

 

[Antipode]

c'est ce que j'ai commencé à faire...mais comme cela donnait rien, j'ai adapté..
mais je vais recommencer du début !... vraiment désolé d'abuser de ton temps et merci encore de ton aide

 

[Staple1600]

Re

Chez moi, ces quatre procédures fonctionnent

Private Sub Fermer_Click()
'Image1.Picture = Sheets(1).Image1.Picture
End Sub

Private Sub Image1_Click()
Image1.Picture = Sheets(1).Image1.Picture
UserForm1.Repaint
End Sub

Private Sub UserForm_Click()
'Image1.Picture = Sheets(1).Image1.Picture
End Sub

Private Sub UserForm_Initialize()
'Image1.Picture = Sheets(1).Image1.Picture
End Sub

NB: Je dois juste ajouter UserForm1.Repaint pour Image1_Click

 

[Staple1600]

Re

Je te laisse faire différents tests
Je vais regarder un peut la TV (pour changer un peu d'Excel )
Je repasse plus tard pour voir si tu as réussi.

NB: Je viens de voir où tu fais erreur
La ligne concernant l'image ne doit pas être avec le code du bouton sur la feuille
mais dans le code de l'userform
(comme précisé dans le message#2)

 

[Antipode]

il y a un truc incompréhensible !!..ca passe pas !!

 

[Antipode]

ok je check..merci!!

 

[Staple1600]

Re

Tu peux joindre ton fichier de test.
Je te dirais où cela pêche
(mais fais-vite ma soirée TV va commencer )

 

[Antipode]

je suis dépité et m'en veut tellement !!..
Ca marche !!... toute mes excuses pour avoir été le boulet du jour !!.
merci pour ta patience....
pfff.. je peux avancer..
merci merci !!

 

[Staple1600]

Re

Pour ma gouverne:
Tu avais fait quelle erreur?