Images sur Formulaire

[maval]

Bonjour

J'ai dans un dossier nommer "film" un sous dossier "jaquette" "J:\jaquette" des images correspondant au nom des films
qui se trouve sur une feuille excel nommer "Données" une liste de nom de films en "B2:B250" et dans mon J'ai créer un formulaire avec des Object Image;
Est-il possible a l'aide du bouton valider qui se trouve sur le formulaire d'avoir toutes les images en fonction de la liste de nom de films en "B2:B250".

Je vous remercie de votre aide

 

[maval]

Re : Images sur Formulaire

Re,

Y a t-il une possibilité ou cela n'est pas possible

@+

 

[maval]

Re : Images sur Formulaire

Re,

J'ai trouvé a bidouiller mon code je le trouve lent si quelqu'un pourrait me dire comment réduire le temps
Je vous remercie d'avance

 Dim Nom(300) As String
    For i = 0 To ListBox2.ListCount - 1
        Nom(i) = ListBox2.List(i)
    Next
    
    Dim image As Control
    Dim nb As Integer
    nb = 0
         répertoire = "J:\Jaquettes\"

 For Each image In UserForm1.Controls
      If TypeName(image) Like "Image" Then
          image.Picture = LoadPicture(répertoire & Nom(nb) & ".jpg")
          
        'Redimenssioner la jaquette au format de l'image
        image.PictureSizeMode = 3 '  0=partiel, 1 = étirer, 3= proportionnel
         On Error Resume Next
         nb = nb + 1
      End If
  Next

Bonne journée à tous

 

[maval]

Re : Images sur Formulaire

Re,
Nouvelle demande

Bonne journée à tous

 

[ChTi160]

Re : Images sur Formulaire

Bonjour Max
Bonjour el Fil
Bonjour le forum

Combien de Contrôles Image as tu sur ton Userform ?
si Un seul Contrôle Image pas besoin de Boucle .
dans l'attente
Bonne Journée
Amicalement
Jean marie

 

[maval]

Re : Images sur Formulaire

Bonjour Jean Marie

Je te remercie de ton intervention J'ai environ 450 Contrôles Image sur mon Userform

Bonne Journée et merci