bonjour
je fais encore appel à cet excellent site avec ses pros ! j'ai réussi à créer une listbox qui insérere également les photos correspondantes de cette liste. Ces photos sont dans le même dossier où il y la le fichier. Par contre je voulaisfaire l'étape 2 : ces photos sont directement dans la feuille avec le même non que la colonne "produits"
Depuis ce matin je bloque (grrrrrr !)
voici fichier test
j'arrive à retrouver le shapes concerné de la ligne selectionnée :
v = Me.ListBox1.Column(0, i)
MsgBox v 'OK donne le code image selectionnée de la listebox
mais lorsqu'il faut l'insérer dans le userform ( cadre photo) , impossible:
fpath2 = Sheets("PRODUCT").Shapes.Range(Array(v)).Path
Me.pic2.Picture = LoadPicture(fpath2 & "\" & Me.ListBox1.Column(0, i))
je tourne en rond ..... en boucle !
merci pour le genie qui pourra m'aider
je fais encore appel à cet excellent site avec ses pros ! j'ai réussi à créer une listbox qui insérere également les photos correspondantes de cette liste. Ces photos sont dans le même dossier où il y la le fichier. Par contre je voulaisfaire l'étape 2 : ces photos sont directement dans la feuille avec le même non que la colonne "produits"
Depuis ce matin je bloque (grrrrrr !)
voici fichier test
j'arrive à retrouver le shapes concerné de la ligne selectionnée :
v = Me.ListBox1.Column(0, i)
MsgBox v 'OK donne le code image selectionnée de la listebox
mais lorsqu'il faut l'insérer dans le userform ( cadre photo) , impossible:
fpath2 = Sheets("PRODUCT").Shapes.Range(Array(v)).Path
Me.pic2.Picture = LoadPicture(fpath2 & "\" & Me.ListBox1.Column(0, i))
je tourne en rond ..... en boucle !
merci pour le genie qui pourra m'aider