image

Bonjour,
regarde ce lien
http://www.polykromy.com/excel.html

"GARAULT" wrote:

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

TextBox6.Text = Sheets("devis1").range("h21").Text

un code de ce genre mais pour une image...

"GARAULT" wrote:

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

L'exemple donné permet de retourner une image choisie dans un déroulant
grâce à la fonction" decaler "si ça peut t'aider.
http://www.polykromy.com/fichiers/decal-1.xls

"GARAULT" wrote:

TextBox6.Text = Sheets("devis1").range("h21").Text

un code de ce genre mais pour une image...

"GARAULT" wrote:

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

non , mais merci quand même

"Gildo" wrote:

L'exemple donné permet de retourner une image choisie dans un déroulant
grâce à la fonction" decaler "si ça peut t'aider.
http://www.polykromy.com/fichiers/decal-1.xls

"GARAULT" wrote:

TextBox6.Text = Sheets("devis1").range("h21").Text

un code de ce genre mais pour une image...

"GARAULT" wrote:

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

*Bonjour GARAULT*,
Ceci marche, mais selon le format de l'image, il faudra surement agir
sur les propriétés de l'image choisie.
Sur ton userform, insere un objet "Image" :

Image1.Picture = LoadPicture(Range("monimage"))

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

oui j'ai déja essayé cette formule mais la ou je bloc c que l'image
"monimage" est dans la feuil "devis1" et que je n'arrive pas a l'importer
dans mon userform...

je sais pas ou mettre "devis1" dans : Image1.Picture =
LoadPicture(Range("monimage"))

*Bonjour GARAULT*,
Ceci marche, mais selon le format de l'image, il faudra surement agir
sur les propriétés de l'image choisie.
Sur ton userform, insere un objet "Image" :

Image1.Picture = LoadPicture(Range("monimage"))

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

GARAULT avait soumis l'idée :

oui j'ai déja essayé cette formule mais la ou je bloc c que l'image
"monimage" est dans la feuil "devis1" et que je n'arrive pas a l'importer
dans mon userform...

je sais pas ou mettre "devis1" dans : Image1.Picture =
LoadPicture(Range("monimage"))

*Bonjour GARAULT*,
Ceci marche, mais selon le format de l'image, il faudra surement agir
sur les propriétés de l'image choisie.
Sur ton userform, insere un objet "Image" :

Image1.Picture = LoadPicture(Range("monimage"))

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

J'ai consideré que dans la cellule "monimage", tu avais le chemin et le
nom de ton image. Par rapport a ton appli, il suffit de changer
eventuellement le range ;-)

--
JLuc

voici ma formule mais sa met fichier introuvable

Image1.Picture = LoadPicture("devis1").Range("monimage").Picture

GARAULT avait soumis l'idée :

oui j'ai déja essayé cette formule mais la ou je bloc c que l'image
"monimage" est dans la feuil "devis1" et que je n'arrive pas a l'importer
dans mon userform...

je sais pas ou mettre "devis1" dans : Image1.Picture =
LoadPicture(Range("monimage"))

*Bonjour GARAULT*,
Ceci marche, mais selon le format de l'image, il faudra surement agir
sur les propriétés de l'image choisie.
Sur ton userform, insere un objet "Image" :

Image1.Picture = LoadPicture(Range("monimage"))

hello

quel code peut renvoyer une image qui se trouve dans ma feuille 'devis1'
cellule 'monimage' dans une fenêtre userform vb.

merci.

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

J'ai consideré que dans la cellule "monimage", tu avais le chemin et le
nom de ton image. Par rapport a ton appli, il suffit de changer
eventuellement le range ;-)

--
JLuc

GARAULT avait soumis l'idée :

voici ma formule mais sa met fichier introuvable

Image1.Picture = LoadPicture("devis1").Range("monimage").Picture

Non, comme ça :
Image1.Picture = LoadPicture("C:Mes DocumentsMonImage.jpg")

Si cellule A1 de la feuille "Feuil1" contient le chemin et le nom de
l'image :
Image1.Picture = LoadPicture(Sheets("Feuil1").Range("A1"))

Si la même cellule à le nom "monimage" :
Image1.Picture = LoadPicture(Range("monimage"))

--
JLuc

ok

et je peut intégré des dimention a cette image dans la formule

Image1.Picture = LoadPicture(Sheets("Feuil1").Range("A1"))

GARAULT avait soumis l'idée :

voici ma formule mais sa met fichier introuvable

Image1.Picture = LoadPicture("devis1").Range("monimage").Picture

Non, comme ça :
Image1.Picture = LoadPicture("C:Mes DocumentsMonImage.jpg")

Si cellule A1 de la feuille "Feuil1" contient le chemin et le nom de
l'image :
Image1.Picture = LoadPicture(Sheets("Feuil1").Range("A1"))

Si la même cellule à le nom "monimage" :
Image1.Picture = LoadPicture(Range("monimage"))

--
JLuc