XL 2016 bon de commande

Bonjour
Une première ébauche à améliorer (mais là je dois partir)
A+ François

re,
Alors les images doivent être dans le même répertoire que ce fichier
Les noms correspondants sont en colonne E
Au lieu de saisir une référence tu clic sur un article dans la listbox
T1, image1 et T3 vont se mettre à jour...

Tu essaie et tu me tiens au courant....
A+ François

Bonjour
J' ai tester j'ai que les 4 premières qui s'affiche
Certaines ligne n’aurons pas de photo
Lorsque deux lignes sont sélectionner une erreur

Pour l'affichage: je pense que tu dois avoir une ligne vide...
Pour le problème des images ajoute "Me.Image1.Picture = LoadPicture() " dans la macro listbox1.click (comme ci dessous)
pour effacer l'image existante...
Private Sub ListBox1_Click()
Dim mavar As String
mavar = ActiveWorkbook.Path & "\" & Cells(ListBox1.ListIndex + 2, 5).Value
T1.Value = ListBox1.Value
T3.Value = Cells(ListBox1.ListIndex + 2, 4).Value
Me.Image1.Picture = LoadPicture()
If Len(Cells(ListBox1.ListIndex + 2, 5).Value) > 0 Then Me.Image1.Picture = LoadPicture(mavar)
End Sub

Par contre comment tu fait pour selectionner 2 lignes? je n'y suis pas arrivé...
A+ François

Re
j'ai 4 lignes en ouvrant l'userform par le bouton
si j'ouvre le fichier par Private Sub Workbook_Open() j'ai tout
Mais si j'ouvre et ferme l'userform j' ai 4 lignes
à la dernière question c'est quant je ferme l'userform sans avoir cliquer sur ajouter et si j'ouvre et que je sélectionne une nouvelle ligne qui donne erreur

Quel bouton?
Par contre pour lancer l'userform on ajoute à la feuille Référence une macro
Pour ce faire clic droit sur l'onglet Référence
selectionner visualiser le code
ajouter la macro ci dessous
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
REFERENCE.Show
End Sub

et quand tu double clic sur la feuille ça lance le formulaire...
A+ François