VBA afficher une photo jpg

[Résolu]
Signaler
Messages postés
21
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
17 février 2007
-
Messages postés
21
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
17 février 2007
-
 Bonjour
J'ai un tableau excel avec des petites images (icones) dans la colonne A et en regard le no de produit en colonne B
J'aimerai en cliquant sur l'icone afficher une image jpg plus grande pour mieux voir le produit choisi.
Je dispose dans un repertoire de toutes les images jpg dont le nom est formé du no article.jpg-
un bout de code serait le bienvenu
Merci d'avance

JLDANCET

5 réponses

Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Il faudrait que tu mettes le bout de ton code pour que ce soit plus facile de comprendre, parce que ça devrait fonctionner assez facilement.

Le problème peut venir du chemin que tu donnes ou de la manière que tu appelles le LoadPicture

Spécifie le nom de la feuille
Sheets("MaFeuille").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Photos" & Range("A1"))
ou quelque chose comme ça
Assure-toi aussi que ton contrôle Image s'appelle bien Image1, sinon change son nom...

MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
Je pense que le plus simple est de mettre un contrôle Image sur ta feuille. Mets sa propriété Autosize = True
Tu sélectionnes le nom d'une image, disons en colonne A, puis sur click de l'image, tu charges  celle-ci avec un code comme suit

Private Sub Image1_Click()  ' ou DblClick
    If Range("A" & ActiveCell.Row) <> "" Then
        Image1.Picture = LoadPicture(Chemin & "" & Range("A" & ActiveCell.Row))
    End If
End Sub

Attention toutefois si tes images sont grandes
Si la cellule contient tout le chemin, tu n'auras qu'à mettre le Range dans LoadPicture

MPi
Messages postés
21
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
17 février 2007
1
Merci pour la réponse rapide, mais probleme : au moment de l'execution
il y a tiltage sur "LoadPicture" en disant que ce n'est pas défini, il doit y a voir une magouille à rajouter au début pour
définir, si tu peux rajouter cela au code ce sera parfait
merci
JLDANCET
Messages postés
21
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
17 février 2007
1
Bonjour
Voici mon code :


Private Sub Image1_Click()  ' ou DblClick
           Image1.Picture = LoadPicture("D:\image\338609.jpg")
End Sub




LOADPICTURE est marqué en noir et le message est :
erreur de compilation SUB ou FONCTION non définie
le controle s'appelle bien "image1"


Encore merci


JLDANCET
Messages postés
21
Date d'inscription
lundi 14 août 2006
Statut
Membre
Dernière intervention
17 février 2007
1
Tout est bon, j'ai essayé avec un document EXCEL différent ou j'ai déja fait du développement
et le loadpicture marche correctement.

encore merci