charger image grâce valeur listbox

Question

Bonsoir
Dans un userform j'ai un listbox, une image et un bouton.
J'aimerai lorsque je choisi un item de ma listbox que l'image correspondant a l'item apparaisse
voici le morceau de code que j'ai écrit

Private Sub CommandButton5_Click()
Dim Photo As String
Dim nom As String
nom = listbox1.Value
Image5.Picture = LoadPicture()
Photo = "C:\Documents and Settings\samuel\Mes documents\mon élevage
om.jpg"
Image5.Picture = LoadPicture(Photo)

cs_Le Pivert · Answer

Le Pivert
Voici le code pour ouvrir une image en cliquant dans la listBox, adaptable avec un bouton:


Public img As String
Private Sub ListBox1_Click()

' Quand l'utilisateur clique sur un nom de la lisBox
' l'image est chargée et placée dans image1
' -------------------------------------------------------------
On Error GoTo erreur
img = ListBox1.Value ' Nom du fichier image
' Charger l'image
Me.Image1.Picture = LoadPicture(chemin & img)
Exit Sub
erreur:
    Resume Next
End Sub
J'ai fait pas mal de programmes sur le sujet en VBA Excel
@+ Le Pivert

sam22210 · Answer

Bonsoir
Merci de m'avoir repondu
J'ai essayé le code que tu m'as proposé mais je n'est pas pu le faire fonctionné
a mon avis:(chemin & img) ne donne pas l'emplacement exact de l'image
J'ai depuis essayé d'autre combinaison mais en vain

1er essai
Private Sub CommandButton3_Click()
Dim Photo As String
Dim Nom As String
Dim photofais As String
Nom = ComboBox1.Text
photofais = "Nom" & ".jpg"
Image1.Picture = LoadPicture()
On Error Resume Next
Photo = ActiveWorkbook.Path & "" & photofais
Image1.Picture = LoadPicture(Photo)
End Sub

2eme essai

Private Sub CommandButton1_Click()
Dim Photo As String
Image1.Picture = LoadPicture()
Photo = "C:\Documents and Settings\samuel\Mes documents\faisans\image1.jpg"
Image1.Picture = LoadPicture(Photo)
End Sub

3eme essai

Private Sub CommandButton2_Click()
Dim Photo As String
Image1.Picture = LoadPicture()
Photo = ActiveWorkbook.Path & "" & image3 & ".jpg"
Image1.Picture = LoadPicture(Photo)
End Sub

ton code

Private Sub comboBox1_Click()
Dim img As String
' Quand l'utilisateur clique sur un nom de la lisBox
' l'image est chargée et placée dans image1
' -------------------------------------------------------------
On Error GoTo erreur
img = ListBox1.Value ' Nom du fichier image
' Charger l'image
Me.Image1.Picture = LoadPicture("C:\Documents and Settings\samuel\Mes documents\faisans\img")
Exit Sub
erreur:
Resume Next
End Sub

le remplissage de la combobox
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "image1"
.AddItem "image2"
.AddItem "image3"
.AddItem "image4"
End With

Peux tu encore m'aiguiller?
merci

cs_Le Pivert · Answer

Bonsoir
L'erreur se trouve dans le chemin,
Il faut mettre le chemin du dossier & img comme cela:
Me.Image1.Picture = LoadPicture("C:\Documents and Settings\samuel\Mes documents\faisans" & img) 
("Chemin du dossier" & img) qui est déclaré avant:
img = ListBox1.Value ' Nom du fichier image
Voici une source qui traite le sujet: 
http://www.vbfrance.com/codes/RENOMMER-FICHIERS-AVEC-VIEWER_48325.aspx 
elle est en VB.Net et en VBA Excel
@+ Le Pivert

sam22210 · Answer

merci pour tes conseils ça marche nickel
jai butté sur le\
le code est le suivant
Private Sub comboBox1_Click()


Dim img As String


' Quand l'utilisateur clique sur un nom de la lisBox
' l'image est chargée et placée dans image1
' -------------------------------------------------------------
'On Error GoTo erreur
img = ComboBox1.Value ' Nom du fichier image
' Charger l'image
Me.Image1.Picture = LoadPicture("C:\Documents and Settings\samuel\Mes documents\faisans" & img)
Exit Sub
erreur:
Resume Next
End Sub



les valeurs de la combobox doivent etre enregistrées de cette façon: non de l'image.non de l'extention
par exemple: mon image.jpg

Charger image grâce valeur listbox

4 réponses

Votre réponse

Discussions similaires