Afficher photos selon sélection listbox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Licaon
Membre fidèle
Membre fidèle
Messages : 152
Inscrit le : 4 novembre 2010
Version d'Excel : 2007 FR

Message par Licaon » 22 septembre 2018, 09:10

Bonjour les amis du Forum.

Pour mon projet, à partir d'un listbox, par un clic sur une ligne, j'aimerai afficher l'image qui y est associée.
Je ne dois pas avoir les bons termes de recherche pour m'aider, où alors les codes glanés ici et là, ne me sont pas familier et trop complexe avec le code déjà présent dans mon classeur de projet de travail.

Par la suite, j'aimerai par double clic sur le contrôle image, ouvrir et alimenter l'userform2 par l'image affichée et les informations de la ligne sélectionnée en listbox.

Un petit fichier vaut mieux qu'un grand bla bla ...
photo listbox.zip
(31.24 Kio) Téléchargé 4 fois
Merci de l'aide apportée.

Licaon
Avatar du membre
paritec
Passionné d'Excel
Passionné d'Excel
Messages : 3'864
Appréciations reçues : 389
Inscrit le : 7 juin 2011
Version d'Excel : W10 - 2003 FR - 2010 FR

Message par paritec » 22 septembre 2018, 09:53

Bonjour Licaon le forum
ton dossier en retour, tu testes et tu me redis
a+
Papou :)
Licaon photo listbox.zip
(36.45 Kio) Téléchargé 14 fois
Des bonnes explications et des petits fichiers représentatifs vont nous aider à vous aider !!!!
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'783
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 22 septembre 2018, 10:07

Salut,
Je te propose mon retour,

A me redire,

le code est à adapter à ton environnement
Private Sub ListBox1_Click()
Dim chemin As String

On Error Resume Next

'on definie une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous
chemin = Me.ListBox1.List(ListBox1.ListIndex, 2) 'donc chemin = valeur sélectionnée dans listbox
'pour afficher l'image, nous avons la ligne suivante
UserForm1.Image1.Picture = LoadPicture("C:\Users\Propriétaire\Desktop\photo listbox\Photos\" & chemin & ".JPG")
'ou nous retrouvons le repertoire par defaut des images et notre variable

For i = 1 To 3 'sur 3 colonnes
    Me("textbox" & i).Value = Me.ListBox1.List(ListBox1.ListIndex, i - 1)
Next i

End Sub
Surtout la ligne
UserForm1.Image1.Picture = LoadPicture("C:\Users\Propriétaire\Desktop\photo listbox\Photos\" & chemin & ".JPG")

Leakim

Salut Paritec ta proposition est bien plus pro que la mien :appl:
photo listboxV2.xlsm
(28.66 Kio) Téléchargé 10 fois
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
Licaon
Membre fidèle
Membre fidèle
Messages : 152
Inscrit le : 4 novembre 2010
Version d'Excel : 2007 FR

Message par Licaon » 22 septembre 2018, 18:54

Bonjour Papou, Leakim et le Forum.

Merci à tout les deux pour vos réponses.
Je retiens la proposition de Papou, plus facile à comprendre pour mon niveau.
Un bug apparaît lorsque l'image n'est pas présente.J'ai bien compris que pour y remédier, on pouvait charger une image donnée par défaut , mais je n'arrive pas à les adapter sur ce code.
Le nom de l'image est "Defaut".

Encore un petit coup de pouce ?

Licaon.
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'783
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 22 septembre 2018, 19:18

Salut,
Juste pour la gestion des erreur tu poses dans ton début de code
On Error Resume Next
Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
paritec
Passionné d'Excel
Passionné d'Excel
Messages : 3'864
Appréciations reçues : 389
Inscrit le : 7 juin 2011
Version d'Excel : W10 - 2003 FR - 2010 FR

Message par paritec » 22 septembre 2018, 19:30

Bonsoir Licaon leakim le forum
Ta solution Leakim est bonne à mettre à la poubelle!!!! Et en plus en aucun cas elle ne va permettre d'afficher la photo défaut comme le demande Licaon !!!
Si tu gères du vba de la sorte tu ne vas pas aller loin!!!
On error Resume next, est à utiliser quand on ne peut pas faire autrement, car botter en touche c'est facile, mais cela ne règle rien!!!
Licaon ton fichier en retour
a+
Papou :)
Licaon photo listbox.zip
(42.72 Kio) Téléchargé 25 fois
Des bonnes explications et des petits fichiers représentatifs vont nous aider à vous aider !!!!
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'783
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 23 septembre 2018, 09:29

Salut,
J'avoue avoir répondu trop vite :...:

Bonne suite à vous,
Cordialement,

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Avatar du membre
Licaon
Membre fidèle
Membre fidèle
Messages : 152
Inscrit le : 4 novembre 2010
Version d'Excel : 2007 FR

Message par Licaon » 1 octobre 2018, 22:49

Bonsoir Paritec, leakim, le Forum.
Désolé pour ce post différé, le professionnel a pris le dessus.

La solution de Paritec est ce que je désirais.

Merci de votre implication pour solutionner ce projet.

A bientôt sur le forum.

Licaon.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message