Image dans userform

Bonjour le Forum

Voila je creer un userform dont a l'interieur je possede une combobox dans laquelle il y a une liste de chiens je voudrez qu'il y est une image a cote quand je selectionne le chien me donne sa photo merci de vos reponse sur le sujet


Merci MacMac08300

Bonjour,

Utilise Microsoft ImageCombobox Control 6.0 (SP4) et Microsoft ImageList Control 6.0 (SP4). Tu pourras les trouver dans MSCOMCTL.OCX.

Bonne chance.

EDIT : et vu que je suis prêt à parier très cher que tu vas me poser la question, dans l'éditeur VBA, tu fais Outils/Références/Parcourir puis tu sélectionnes les fichiers de type Contrôles ActiveX(*.ocx). Tu trouveras alors MSCOMCTL.OCX dans system32. En ce qui concerne la façon d'utiliser cela, je te laisse dans les mains de Google. C'est un ami à moi qui se débrouille pas trop mal :mouarf:

Une autre interprétation
La photo s'affiche dans un autre endroit après que tu ai selectionné un chien

Code:

---

1 2 3 4 5

Private Sub ComboBox1_Change() dim fichier as string fichier="c:\tonrepertoire\" & ComboBox1 & ".jpg" Image1.Picture = LoadPicture(fichier) End Sub

---

Si tes image s'aplle nomduchien.jpg

Re bonjour le Forum ,

Merci de ces reponses
voila je viens adapter ce code par rapport a mes paramettre mais cela ne fonctionne pas Krovax pourrais tu m'eclaicir car je suis assez novice en la matiere .

voila le code modifier regarde si je ne me trompe pas

Code:

---

1 2 3 4 5

Private Sub ComboBox1_Change() Dim fichier As String fichier = "E:\Jeu\Ptit Dog\Application\Race de chiens" & ComboBox1 & ".Gif" Image1.Picture = LoadPicture(fichier) End Sub

---

mais je croit que cela viendrez pluto que ma combo je prend la source dans une feuille de l'application je met direct un fichier exemple se sera plus simple je pense


Merci

MacMac08300

Chez moi ca fonctionne au poil si je peut dire :mouarf:

Par contre je suis sur que tes images ne s'appelle pas
Race de chienAidi .Gif

Dans ta combo tu as des espace après certaine nom et tu n'as pas d'espace entre chien et la race
On rajoute un expasce après chien et on met un trim pour supprimer les espace au début et a la fin de la chaine de caractère

Code:

---

fichier = "E:\Jeu\Ptit Dog\Application\Race de chiens " & trim(ComboBox1) & ".Gif"

---

Par contre la prochaine fois avance en mode pas a pas et affiche la valeur de tes variable soit avec un espion soit dans le menue affichage en affichant les variable locales. Tu aurais rapidement vu que ton nom d'image ne colle pas

Re ,,


Krovax merci de me donner un peu de ton temp pour m'aidez

mais voila je suis tres novice en la matiere voila je vien de copiez la correction que tu m'a donnez mais cela ne fonctionne toujour pas j'ai une ligne

Code:

---

Image1.Picture = LoadPicture(fichier)

---

qui se colorise en jaune

ensuite pour te reponde au nom de chien non mes images son nome comme sa Aidi .gif

je comprend plus rien

desolez de t'ennuyer mais pourrez tu encor m'aidez un peu


Merci MacMac08300

essaye ce code

Code:

---

1 2 3 4 5

Dim fichier As String fichier = "E:\Jeu\Ptit Dog\Application\Race de chiens " & ComboBox1 & ".Gif" msgbox fichier Image1.Picture = LoadPicture(fichier) End Sub

---

Le mode pas a pas tu vas sur le code de ton userform et tu appui sur f8
a chaque apui tu avance dune ligne

mais regarde le chemin d'accès vers ton image s'il correspond exactement a ton image. C'est au niveau des espace ton problème
et si ton image s'apelle AIdi .gid et non Race de chien Aidi.gif
Il te manque un \

Code:

---

fichier = "E:\Jeu\Ptit Dog\Application\Race de chiens\" & ComboBox1 & ".Gif"

---

Re ,,,


Voila exelent je viens de trouvez les erreur grace a toi et j e parviens a met fin

Encor grand merci pour ton aide vais pouvoir avancez par contre j'ai une question si jamais je n'ai pas de photo par raport au chiens que cela vas t'il se passez



merci

Ben il plante :mouarf:

On va faire un peu de gestion d'erreur (on aurait aussi pu tester si le fichier existe mais ca m'amuse moins)
essaye

Code:

---

1 2 3 4 5 6 7 8

Dim fichier As String fichier = "E:\Jeu\Ptit Dog\Application\Race de chiens " & ComboBox1 & ".Gif" On Error Resume Next Image1.Picture = LoadPicture(fichier)   If Err <> 0 Then MsgBox "Image indisponible pour le " & ComboBox1 & chr(13) & "Vérifier le chemin :" & chr(13) & fichier, vbExclamation End If

---

Bonjour à tous,

Citation:

---

que cela vas t'il se passez

---

en premier lieu je dirai test et dis nous ;)

Krovax a été trop rapide cependant, j'allai fournir un exemple pour aller rechercher le chemin d'une image et ensuite comparer a toute fin utile je le met quand même !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Chemin_image()   Dim ficimg As Variant Chemin = ThisWorkbook.Path ChDir ThisWorkbook.Path & Application.PathSeparator   On Error Resume Next ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image") On Error GoTo 0   If CStr(ficimg) Then Chemin = ficimg End If   Debug.Print Chemin MsgBox Chemin   End Sub

---

edit : vraiment trop rapide

re ,,

je ne peut que m'incliner en voyant sa vous etes trop fort

merci sa fonctionne parfectement sa me met un message et je peut allez a la suivante car je ne possede pas toutes les images encor je pense qu'on pourrez mettre une image par deffaut quand on la pas mais deja comme sa c'est super

grand merci a vous pour exelente aide

MacMac

Bien sur tout est dans la gestion d'erreur

Code:

---

1 2 3 4 5 6

If Err <> 0 Then MsgBox "Image indisponible pour le " & ComboBox1 & chr(13) & "Vérifier le chemin :" & chr(13) & fichier, vbExclamation fichier="c:\ton image par default" Image1.Picture = LoadPicture(fichier) End If

---

Mais ceci sera plus joli

Code:

---

1 2 3 4 5 6 7 8 9

Dim fichier As String fichier = "E:\Jeu\Ptit Dog\Application\Race de chiens " & ComboBox1 & ".Gif" On Error goto gesterr Image1.Picture = LoadPicture(fichier) exit sub gesterr:: fichier="c:\Tonimage par default" resume

---

Met une pause au tout début du code (le point rouge dans la marge) et lance ta macro sur une image que tu nas pas
puis appuis sur f8 pour voir pas a pas par ou il passe

En gros je dit si il y a une erreur va a la ligne
gesterr::
donc si le programme plante car pas d'image il va a gesterr:: il continue la on lui dit fichier ="limage par default" puis resume lui dit retourne a la ligne qui ta fait planté

Regarde le tuto Support de cour complet la rubrique gestion d'erreur est très bien faite (les autres aussi d'ailleur)

re


je te remercie une fois de plus cela sera complet je vais regardez un peu le liens que tu ma donnez pour m'informez un peu

mais je pationne a cherchez avec de l'aide biensur sinon je ne serez pas a cette hauteur


encor merci a toi d'etre occupez de mon histoire avec patience


MacMaac08300