différentes sur userform en fonction d'une variabl

[John]

bonjour,


Je suis entrein de crééer une userform avec une liste de choix.
On fonction de chaque choix, j'aimerais faire apparaitre sur la userforme une image différente (pas en arrière plan).


J'ai une base de donnée avec la liste des différents choix de la liste déroulante dans une colonne, les colonnes suivantes sont les valeurs associées à chaque choix.

je pensais rajouter une colonne avec l'adresse de l'image pour chaque choix...
Lors de la sélection dans la liste de choix, une recherche ressort l'adresse de li'mage et permet d'afficher l'image...

C'était une idée comme ca, mais je c po le développer...

ou y a-til qque chose de plus simple .??


Merci du coup de main!

 

[Creepy]

Bonjour le Forum, John,

Regarde l'exemple en PJ devrait te convenir !

J'ai pris des images qui se trouvent pas défaut dans c:\\windows.

J'espère que tu les as !! ??

++

Creepy [file name=Picture.zip size=10529]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Picture.zip[/file]

 

[john]

Super c'est ce que je cherchais..

Toutes fois :

- mes fichiers images seront dans le meme dossier que mon application.
Si je suis amener à changer ce dossier de place, l'adresse de l'image va changer.
y a -til une solution? ou faudra-t-il modifier les adresses?
Peut-on utiliser './images/image1.bmp'
le ./ comme pour les sites web?


Merci de la réponse ..

john

 

[john]

re..


dans ma 1ere recherche, j'utilise :
TextBox11 = Range(recher).Offset(0, 1).Text
(ca marche)

pour afficher un réslutat de la recherche.

puis-je me servir de cette recherche pour récupérer l'image avec qque chose du type :
Image1.Picture = LoadPicture(recher).Offset(0, 17).Value

n'y connaissant rien, je ne c pas si la ligne ci-dessus est bonne en tout cas elle marche pas.
17, c'est le num de colone ou se trouve l'adressse de l'image.

merci

 

[Creepy]

Bonsoirle Forum, John,

REgarde en PJ, j'ai changé le code pour que la macro s'adapte automatiquement.
Maintenant les photos sont chargées dans le repertoire courant où se trouve le fichier.

Par contre je n'ai pas fait de message d'erreur pour gerer si l'image n'existe pas !

la commande pour avoir le chemin du fichier courant est : ActiveWorkbook.Path

Pour ta deuxième question, il manque des parenthèses et un bout de code à ta formule !!

Image1.Picture = LoadPicture(range(recher).Offset(0, 17).Value)[color]

Dons mon code QUOi est une variable qui prends toutes les valeurs des cellules de la selection les unes après les autres.

bonne nuit

Creepy [file name=Picture_20050701224835.zip size=11936]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Picture_20050701224835.zip[/file]

 

[john]

salut... je te remercie bcp bcp bcp...


si ca te dit de recevoir un jour (qd j'aurai finii 🙂) l'application que je créé dit le moi....

C'est un truc de gestion d'arbre fruitier familial lol.


merci encore lol


john

heu fred en fait lol

ciao