transférer une image d'une cellule à un Userform

Question

Bonsoir &#224; tous,



J'aimerais ins&#233;rer une image qui se trouve dans une cellule d'un fichier excel vers un Userform.

En fait, il y aura plusieures cellules toutes r&#233;parties dans la colonne
C contenant chacune une image. Je voudrais qu'en fonction d'un num&#233;ro
de ligne d&#233;fini pr&#233;alablement par l'utilisatuer (ce num&#233;ro est x) que
mon programme aille chercher les infos contenues dans les colonne B (du
texte) et C (une image).

Pour le texte &#231;a fonctionne ainsi : mobile.nom.Caption = Cells(x.Row, "B").Value

Par contre je n'arrive pas &#224; faire la m&#234;me chose pour l'image... (
mobile.Image.Picture = Cells(x.Row, "C").Value ne fonctionne pas...)



Merci beaucoup de votre aide !

FMatrix07 · Answer

Bonsoir as tu essay&#233; un LoadPicture()
&#231;a doit donner &#231;a -> mobile.Image.Picture = LoadPicture(Cells(x.Row, "C").Value)
par contre il faut que ce soit du BMP dans ta cellule je crois

clovis7 · Answer

Merci FMatrix07.

Ca marche mieux... mais &#231;a ne marche pas encore!

Avant j'avais un message d'erreur. Maintenant avec ta commande, mon
Userform "mobile" s'affiche correctement mais le cadre qui est sens&#233;
recevoir l'image est vide...

Je ne sais pas d'o&#249; peut venir le probleme. Pour mon Userform j'ai
ins&#233;rer un cadre avec le bouton "image" de la boite &#224; outils. J'ai fait
"insertion-image-&#224; partir d'un fichier..." pour mon image dans excel
(j'ai essay&#233; avec un bmp et un jpg). Et pour finir j'ai fait tenir
cette image dans une seule cellule en la r&#233;duisant.... mais &#231;a ne
fonctionne pas !



Help me please !

FMatrix07 · Answer

Hello as-tu essay&#233; avec un picturebox
moi je fais le meme genre de trucs avec un picturebox et &#231;a fonctionne
ex: si ton picturebox s'appelle Picture1 alors
mobile.Picture1 = LoadPicture(Cells(x.Row, "C").Value)

clovis7 · Answer

Non &#231;a ne marche pas...



Le "picturebox" correspond bien &#224; l'icone en bas &#224; droite de la boite &#224;
outils qui s'intitule "image" (celle avec une montagne et un soleil) ?

Si je tape mobile.Picture1 = LoadPicture(Cells(x.Row, "C").Value), j'ai
un message d'erreur. Par contre si je tape mobile.Picture1.Picture =
LoadPicture(Cells(x.Row, "C").Value) je n'ai plus de message mais mon
cadre reste vide.

Peut-&#234;tre faut-il "appliquer" l'image dans la cellule pour que celle-ci
contienne r&#233;ellement mon image ? Si oui, comment faire ? Moi je me
contente de redimensionner la cellule et de d&#233;placer mon image dedans.



Encore merci pour ton aide FMatrix07, j'aimerais vraiment y arriver !

FMatrix07 · Answer

Tu peux toujours m'envoyer ton code et ta page excel que je regarde
[mailto:Dhreat01@yahoo.fr FMatrix07]

clovis7 · Answer

Merci!! C'est envoy&#233;

FMatrix07 · Answer

J'ai fais une truc
apres avoir inserer les images avec la boite outils de controle  d excel
il te faudra faire un select case par rapport x.Row pour selection l'image
Tu me redis pour le moment c'est la seule solution que j'ai

clovis7 · Answer

Alors si j'ai bien compris il y aura autant de "case" que de ligne dans ma feuil2.

Ca va donc me faire un code assez long qu'en tout j'ai 27 combinaisons de mots possibles.

Enfin c'est d&#233;j&#224; super !

Il n'y a pas moyen de faire un truc du genre :



Select Case x.Row

     Case (x.Row)

      mobile.Image.Picture = Feuil2.Image(x.Row).Picture



Ca, &#231;a ne marche pas mais peut-&#234;tre est-ce une piste.

Au pire c'est pas grave, je taperai mes 27 lignes 



Encore merci FMatrix07!

FMatrix07 · Answer

j'ai essayer le image(x.Row).picture mais pour ma part je n'ai pas reussi

Transférer une image d'une cellule à un Userform

9 réponses

Discussions similaires