Afficher image de la feuille dans userform via listbox

[Lilijuju]

Bonjour,

Je persiste depuis des semaines à chercher une solution...
J'ai une base de données de personnel (Nom,Prénom, adresse, etc...) avec leur photo sur une feuille "Base".
Je souhaiterais via l'userform afficher leur photo en même temps que leurs données.

J'ai tenté plusieurs méthodes, parcouru le net et je ne suis pas arrivé à "l'adapter" à mon cas.

Est-ce qu'une personne pourrait me diriger sur la partie afficher photo ;-)
Merci par avance.
PS : fichier joint

 

[Paf]

Re,

Désolé n'ayant ni Windows 10, ni sans doute la même version d'Excel, ni le message d'erreur précis, ni la ligne en erreur, ni le classeur provoquant cette erreur, je passe mon tour.

Bonne suite

 

[Lilijuju]

J'ai trouvé lol
L'erreur venait du format textbox pour code postal. J'ai fini par retirer ce code format et saisir les CP en text...
Ça marche partout c'est l'essentiel.
En tout cas merci d'avoir pris du temps pour répondre à ma détresse ;-)

 

[Lilijuju]

Bonjour,
Je reviens vers vous car suite à votre code Paf, je rencontre 2 types d'erreurs que j'arrive à palier à chaque nouvel enregistrement mais cela devient pénible pour tous mes destinataires de refaire les manip à chaque fois. Je vous joins le fichier et les 2 modes opératoires concernant ces erreurs.
Pourriez-vous regarder et m'indiquer ce que je dois modifier ?
Je vous en remercie par avance.

 

[Paf]

bonjour,

en testant votre classeur j'ai relevé deux erreurs:

1) Membre de méthode ou de données introuvable dans Private Sub ListBox1_Click()
à la ligne Me.TextBox169 = Cells(adres, 37) & " " & Cells(adres, 38).Value car TextBox169 n'existe pas (cf image jointe)

2) Projet ou bibliothèque introuvable dans Function NomShapeCellule(adr)
à la ligne For Each s In Sheets("Base").Shapes (a priori l'erreur signalée dans le fichier PDF)

le rajout de la déclaration Dim s As Shape en tête de fonction semble résoudre le problème.


Par ailleurs le fichier PDF est inexploitable (chez moi) :les caractères sont flous et trop petits pour être lus, le zoom n'accentue que le flou.

A+


Edit : ajout des PJ oubliées ...

 

[Lilijuju]

Bonjour,

J'ai omis d'enregistrer la nouvelle version du userform avec la textbox170 car elle existe bien mais pas dans le fichier envoyé.
Pour le point 2, merci ça marche nickel.
Vous êtes super !!!