image dans un UF

Salut,

Je peux pas te poster d'exemple (50 Ko oblige) mais pour tester nommes 2 boutons Suivant et Precedent, rajoutes un controle IMage nommé Image1 dans userform( si tu ne l'as pas clic droit sur la boite à outils controles supplémentaires , coches Microsoft forms 2 image) et colles le code suivant dans le module de ton userform.

Option Explicit
Const Chemin$ = "C:\Monrepertoire"
Dim NBimageS As Byte, J As Byte
Dim T
Private Sub Precedent_Click()
J = IIf(J > 0, J - 1, NBimageS)
MiseAjour
End Sub

Private Sub Suivant_Click()
J = IIf(J < NBimageS, J + 1, 0)
MiseAjour
End Sub

Private Sub UserForm_Initialize()
T = Array("Nomimage1.gif", "Nomimage2.jpg", "Nomimage3.bmp")'mettre le nom des fichiers images
NBimageS = UBound(T)
J = 0
MiseAjour
End Sub
Private Sub MiseAjour()
Image1.Picture = LoadPicture(Chemin & T(J))
End Sub


A+++