Discussion :

[MacMac08300]

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

[DeaD78]

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

[Krovax]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MacMac08300]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

Chez moi ca fonctionne au poil si je peut dire

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MacMac08300]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

essaye ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MacMac08300]

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

[Krovax]

Ben il plante

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

Bonjour à tous,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MacMac08300]

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