Gestion d'images

Question

Bonjour

Je tourne en rond depuis passé une semaine. Je me résouds à demander votre aide.

Je vous décris mon problème.

Nous avons une base de données de bon nombre d'outils pour des travaux spéciaux. Celle ci contenait beaucoup d'information mais comme il y a beaucoup de classements divers, c'était compliqué.

J'ai donc développé une boite de dialgue qui se charge de faire les recherches diverses en fonction des critères de recherche donnés par l'utilisateur et les affiches dans une listebox (une ligne par outil).
Ca, ça marche bien.

Chaque outil possède une feuille descriptive du même classeur excel avec les composants, des données techniques et une ou plusieurs image(s) de l'outil.

On me demande d'afficher la / les image(s) dans la boîte de dialogue lorsqu'on sélectionne l'outil dans la liste.

En fait je ne sais pas quelles fonctions utiliser pour aller chercher l'image dans la feuille(OUTIL).

Il me faut une programmation du genre:

userform1.image1 = sheets(OUTIL).image(LA PREMIERE DE LA FEUILLE)

Il va sans dire que je ne connais pas à l'avance le futur nom des images car ce n'est pas moi qui gérerai cette base de données.

Merci beaucoup pour votre aide

cs_yabobo · Answer

a tres bientot

brownly · Answer

[^^clinoeil1][^^langue3][^^mad5][^^mad5][^^mad5][^^mad5][size=300]/size

cs_Le Pivert · Answer

Bonjour,
 Il faut que vos images soient dans un dossier avec le classeur, voici le code:

Private Sub ListBox1_Click()
On Error Resume Next
Dim img As String
img = ListBox1.Value
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "" & img & ".jpg")
End Sub



@+ Le Pivert

cs_Le Pivert · Answer

J'ai oublié de dire que le nom des images soit exactement le même que celui affiché dans la ListBox, cela va de soi
img = ListBox1.Value

Le Pivert

cs_balisto2 · Answer

Merci beaucoup, ça marche du tonerre. Mais quel est le code pour "désafficher" l'image?

cs_Le Pivert · Answer

Image1.Picture = Nothing


Le Pivert

cs_balisto2 · Answer

Meri beaucoup

Gestion d'images

7 réponses

Votre réponse

Discussions similaires