Michel, le forum
Merci pour ton aide, j'utilise en faite ton code que tu as mis dans le TextBox, en mettant a la place de ListBox , TextBox, comme ceci.
Private Sub ListBox1_Click()
Dim Cell As Object
On Error GoTo gestion
With Range("A2:A" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(ListBox1, LookIn:=xlValues)
Label1 = Cell.Offset(0, 1)
Label2 = Cell.Offset(0, 2)
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cell & ".jpg")
End With
Exit Sub
gestion: 'si pas d'image disponible pour chargement
If Err.Number = 53 Then
Label1.Caption = ""
Image1.Picture = LoadPicture()
End If
End Sub
Et je met a la place :
Private Sub TextBox1_Change()
Dim Cell As Object
On Error GoTo gestion
With Range("A8:A" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(TextBox1, LookIn:=xlValues)
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & Cell & ".jpg")
End With
Exit Sub
gestion: 'si pas d'image disponible pour chargement
If Err.Number = 53 Then
Label1.Caption = ""
Image1.Picture = LoadPicture()
End If
End Sub
Par contre je n'arrive pas a faire fonctionner le test, pour le cas ou il n'y a pas d'image disponible pour une référence.
Je te remercie, pour ton aide, G'Claire