Bonjour je forum,
J’ai trouvé comment faire apparaitre une image sur un USF via une listebox
Mais j’aurais voulu pouvoir l’indiquer via un textbox
C’est-à-dire si j’indique un nom qui correspond à ma liste dans le textbox l’image du dossier s’affiche
Ma question qu’elle serait le code ? Puisque j’ai tenté de remplacer le nom « ListBox1 par textbox » dans la partie UserForm_Initialize. Mais ça ne fonctionne pas.
Je suis déjà mauvais en macros, mais en USF c’est pire
Quelque un peut me renseigner ?
Private Sub UserForm_Initialize()
Dim Tab1() As Variant
With Sheets("Feuil1")
Tab1 = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Value
End With
ListBox1.List = Tab1
End Sub
Private Sub ListBox1_Click()
Dim monImage As String
Image1.Picture = LoadPicture()
monImage = ThisWorkbook.Path & "\" & ListBox1.Value & ".jpg"
If Dir(monImage) <> "" Then
Image1.Picture = LoadPicture(monImage)
End If
End Sub