Gestion d'images dans un userform

Bonjour,

Je n'arrive pas à faire ce que je veux.

j'ai un userform avec 10 images de IM1 à IM10

dans mon tableur je retrouve en "A" les IM et en "B" un numéro 1-2 ou 3.

je voudrais donc que suivant la valeur en "B" l'image correspondante s'affiche dans l'IM.

par avance un grand merci.

Bonjour,

Les images sont incorporées dans la feuille. Ce ne sont pas des fichiers et donc elles ne peuvent pas être référencées dans le userform. Il faut que tu donnes le chemin et le nom es images pour que je puisse remplir le userform.

Daniel

Bonjour,

Les images sont dans le même répertoire que le fichier comme ça s'il faut déplacer le fichier c'est plus facile).

les fichiers sont nommés : 01.JPG, 02.JPG, 03.JPG comme dans la page excel..

Merci bien

Mets ce code dans le userform :

Private Sub UserForm_Activate()
  Dim C As Range
  For i = 1 To 10
    Me.Controls("IM" & i).Picture = LoadPicture(ThisWorkbook.Path & "\" & Format(i, "00\.JPG"))
    Me.Controls("IM" & i).PictureSizeMode = 1
  Next i
End Sub

Daniel

il n'affiche que les 3 premières images et ensuite erreur?

d'après ce que je comprend il chercher une image qu'il ne trouve pas.

en fait il ne se sert pas de la colonne "B" pour choisir l'image enfin je pense.

pour faire plus simple je peux changer et appeler les images 1-2-3 comme ça cela correspond au numéro dans "B"

Oui, désolé, j'ai oublié ça. Essaie:

Private Sub UserForm_Activate()
  Dim C As Range
  For i = 1 To 10
    Me.Controls("IM" & i).Picture = LoadPicture(ThisWorkbook.Path & "\" & _
      Format(Cells(i + 1, 2).Value, "00\.JPG"))
    Me.Controls("IM" & i).PictureSizeMode = 1
  Next i
End Sub

Daniel

yes super.

Un grand merci d'un Daniel aussi et bonne continuation.