image dans un UF

[ayoub]

salut T le monde

j'ai un grande problème, je veux faire d'un UF un moteur de recherche
qui me donne une images lorsque j'entre son numéro ou son nom, et ces images seront dans un repertoire dans le disque dur.
SVP aidez-moi
SOS SOS SOS SOS SOS

 

[Zon]

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+++