Image indiqué par un textbox dans USF

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

Bonjour,

Je fais un petit up

Avec plus de détails, car j’ai certainement mal expliqué mon besoin.

Actuellement avec le fichier

Lorsque je sélectionne les noms, une image apparait (lorsque celle-ci est disponible (elle apparait parce que cette image porte le même nom que le nom que celui sélectionné))

Pour des raisons de doublons en prénom je souhaiterais que lorsque je sélectionne un prénom il recherche l’id de celui-ci.

Par exemple je sélectionne pascale et c’est le fichier 26 qui se charge 26 correspond à l’id (txt_ClubNumenr].

Voilà cette fois-ci, je pense, avoir été plus clair.

Il y as-t-il une personne qui pourrait m’aider ?

43usf.rar (267.20 Ko)

Bonjour

Une autre solution

Dans la ListBox on récupère l'ID et on affiche l'image correspondante

A tester

Bonsoir Banzai64

Merci pour ton aide

Si j’ai bien compris

Tu as corrigé

Sur Private Sub lbNoms_Click()

monImage = ThisWorkbook.Path & "\" & lbNoms.List(Me.lbNoms.ListIndex, 1) & ".jpg"

& sur Private Sub Affiche_Club()

.List(.ListCount - 1, 1) = WsBase.Range("A" & Ligne)

Esce possible de de tout faire dans un seule priviate sub ?

Parce que dans ma version finale j’utilise un moteur de recherche et donc je n’utilise plus le Private Sub Affiche_Club()

Du coup je suis piégé et je ne trouve pas où placer cette ligne.

Bonsoir

La Private Sub Affiche_Club() sert à alimenter ta ListBox

Il faut placer la ligne à l'endroit où sera alimentée la ListBox

En plus il y a aussi modification dans Userform_Initialize

Merci pour tes informations Banzai64

J’ai reproduit tes codes

Mais avec ma version recherche

L’ID ne correspond pas au nom

Est-ce à cause de ma partie recherche ?

Merci pour tes efforts

Bonjour

Pourquoi le 1er fichier n'avais pas la même structure que celui-ci ?

Quelle perte de temps

A tester

Bonsoir Banzai64,

Oui effectivement c’est une perte de temps, désolé

J’ai pris une ancienne version, car elle contenait peu d’information. (Donc plus simple à poster)

Ce qui me permettait de ne pas faire le tri.

Car les pièces jointes sont limitées en taille.

A la base le fichier original fait plus de 5 Mo donc j’ai du enlever certains modules pour pouvoir le poster.

Merci Banzai 64

Ça fonctionne encore une fois très bien

Merci pour ta réactivité et efficacité.

Rechercher des sujets similaires à "image indique textbox usf"