Nat44200
Messages postés24Date d'inscriptionjeudi 4 août 2011StatutMembreDernière intervention24 août 2011
-
4 août 2011 à 13:40
Nat44200
Messages postés24Date d'inscriptionjeudi 4 août 2011StatutMembreDernière intervention24 août 2011
-
6 août 2011 à 14:37
Bonjour a tous,
Voici mon probleme (je suis dessus depuis de nombreuses heures ):
j'ai une combobox (ComboBox1) avec le nom de differentes villes. Je voudrais lorsque je choisi une ville dans la combobox , il y ai l'image de la ville qui apparaisse dans mon cadre image (Image1).
Les images ont excatement le meme nom que la ville.
Mes images se situent dans une feuille de mon Excel nomme "City".
Si cela est plus simple je peux mettre mes images dans un dossier sur mon disk C
Nat44200
Messages postés24Date d'inscriptionjeudi 4 août 2011StatutMembreDernière intervention24 août 20111 5 août 2011 à 09:37
Bonjour lolokun et Gerard,
merci pour vos reponses.
Desole c'est la premiere fois que je poste quelque chose sur un forum ! Donc je suis partie sur le meme code que pour charger un graphique en fonction de la valeur de la combobox. Car lorsque je choisi une valeur dans la combobox je doit faire apparaitre a la fois un graphique et une image de la ville (donc pour le graphique ca fonctionne a merveille mais pas pour l'image)
Private Sub ComboBox1_Change()
Set CurrentChart = Sheets("Graphic").ChartObjects(ComboBox1.Column(0)).Chart
Filename = ThisWorkbook.Path & "\temp2.gif"
CurrentChart.Export Filename:=Filename, FilterName:="GIF"
Image1.AutoSize = True
Image1.Picture = LoadPicture(Filename)
End sub
Sauf que a la place j'ai mis ca:
Private Sub ComboBox1_Change()
Set CurrentPicture = Sheets("City").ChartObjects(ComboBox1.Column(0)).Chart
Filename = ThisWorkbook.Path & "\temp3.gif"
CurrentCPicture.Export Filename:=Filename, FilterName:="GIF"
Image5.AutoSize = True
Image5.Picture = LoadPicture(Filename)
End sub
Gerard, j'ai teste le lien que tu m'a envoye mais je ne trouve pas la solution pour l'adapter a mon cas. En effet, tous mes elements ce situe dans un USF et non dans une sheet.
Merci de votre aide
Vous n’avez pas trouvé la réponse que vous recherchez ?
Nat44200
Messages postés24Date d'inscriptionjeudi 4 août 2011StatutMembreDernière intervention24 août 20111 5 août 2011 à 10:32
Merci de votre reactivitee !!
Oui en effet, Gerard, j'ai oublie le C dans mon code mais ca ne fonctionnement pas non plus.
Donc, l'idee de lolokun me convient si vous pouvez me proposer un code (car pour le coup je n'ai aucune idee, je debute dans le VBA !!).
L'idee serait donc de dl les images stockees sur mon disk. Les images sont enregistrees dans le meme dossier que mon doc Excel et portent exactement le meme nom que les villes a selectionner dans ma combobox.
Le but serait donc de dl l'image dans le cadre Image5 de ma USF correspondant a la ville que j'ai selectionnee dans ma CommboBox1.
lolokun
Messages postés1241Date d'inscriptionmardi 10 octobre 2006StatutMembreDernière intervention27 août 20137 5 août 2011 à 13:29
Bonjour,
Je ne suis pas expert en vba, mais cette ligne-là ne devrait-elle pas être remplacée également:
Set CurrentPicture = Sheets("City").ChartObjects(ComboBox1.Column(0)).Chart
Ps : sinon as-tu essayé d'enregistrer le code grâce à l'enregistreur de maacros :
Tu fais la manipulation manuellement et ensuite tu adaptes le code obtenu avec tes variables
L'expérience, c'est une connerie par jour, mais jamais la même..
Nat44200
Messages postés24Date d'inscriptionjeudi 4 août 2011StatutMembreDernière intervention24 août 20111 5 août 2011 à 18:46
Desole de vous repondre si tard mais j'etait bien occupee avec mon travail !!!
Donc c'est bien cette ligne la qui ne fonctionne pas mais meme en testant vos differentes solutions j'ai toujours la meme erreur.
Je seche completement sur ce probleme. Et je ne vois pas comment le contourner.
Peut etre que vous auriez une solution a me proposer si je sauvegarde mes images dans le meme dossier que l'application excel et non sur une feuille de mon excel. Si vous avez la solution pour ca, ce sera parfait pour moi.
Nat44200
Messages postés24Date d'inscriptionjeudi 4 août 2011StatutMembreDernière intervention24 août 20111 6 août 2011 à 14:37
Bonjour,
en effet, je suis bien dans une USF !!!
Je viens de tester ta solution, Gerard, et ca marche tres bien. Je suis ravie car ca faisait plusieurs jours que j'etait dessus !!! J'ai juste change l’extension car mes images sont en jpg .
c'est la premiere fois que je participe a un forum et les personnes s'acharnent jusqu'a trouver une solution. Je trouve ca vraiment sympa !!
Merci beaucoup de votre aide a tous les 2 et peut etre a bientot pour une autre énigme