Insérer une image dans un Userform

Bonjour
ci joint petite démo

l'userform
https://mon-partage.fr/f/zMqdl04x/
prévu pour des photos au format JPG mais on peut mixer avec plusieurs formats (me faire signe)

le code de l'usf

Private Sub ComboBox1_Change()
photo = ThisWorkbook.Path & "\" & ComboBox1.Value & ".jpg"
If Dir(photo) = "" Then
Image1.Picture = LoadPicture("")
Else
Image1.Picture = LoadPicture(photo)
End If
End Sub

Private Sub UserForm_Initialize()
lig = 18
While Not IsEmpty(Cells(lig, 1))
ComboBox1.AddItem Cells(lig, 1)
lig = lig + 1
Wend
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

les photos doivent ^tre dans le m^me dossier que l'usf
tu remplaces ma liste ( A18:A24)par le nom de tes photos

en espèrant que ça aura été utile

 Michel

Bonjour,

voir ceci:

http://www.homeandlearn.org/load_an_image_into_an_imagebox.html

avec la traduction:

Si vous deviez cliquer sur le bouton gris avec les trois points, vous verrez apparaître une boîte de dialogue vous permettant de choisir une image pour votre image.

Voici donc la solution que j'ai trouvé pour mon problème.

J'avais ce code pour redimensionner l'userform en plein écran. J'avais un bug lorsque qu'on était rendu à redimensionner les contrôles Image. J'ai donc ajouté le "On Error Resume Next"

Dim ctl As Control
Dim ratiow As String
Dim ratioh As String

ratiow = Application.Width / Me.Width
ratioh = Application.Height / Me.Height
Me.Left = 0
Me.Top = 0
Me.Width = Application.Width
Me.Height = Application.Height
For Each ctl In Me.Controls
On Error Resume Next
ctl.Left = ctl.Left * ratiow
ctl.Top = ctl.Top * ratioh
ctl.Width = ctl.Width * ratiow
ctl.Height = ctl.Height * ratioh
ctl.FontSize = ctl.FontSize * ratioh
Next