Discussion :

[Pierre_PP]

Bonjour à tous,

Je cherche à enregistrer des images dans un tableur pour ensuite les réutiliser dans un "ImageList", qui sert à afficher des images dans un "ImageBox" en fonction de la valeur d'une liste déroulante. Je ne veux pas à avoir à recharger ces images à chaque fois que j'ouvre mon classeur.

En lisant le tutoriel sur les "ImageList" j'ai cru comprendre que c'était possible :

"Il est toujours préférable de charger des images externes. Evitez (si possible) de sauvegarder les images dans le classeur pour ne pas en augmenter le poids."

Après plusieurs heures de recherche je n'ai toujours pas trouvé la solution que je cherche. Je charge mes images dans la liste et elles s'affichent bien dans mon "UserForm" mais dès que je ferme celui-ci tout est perdu je suis obligé de recharger les images. Comment faire pour qu'elles restent stockées ?

J'ai bien trouvé une solution dans ce sujet : ICI en stockant mes images dans un deuxième userform mais je souhaiterais trouver une solution "plus propre".

Quelqu'un peut-il m'aider ? Est-ce possible ?

Merci d'avance.

Pierre

[Nullosse]

Salut,
je ne pense pas qu'on puisse stocker des images dans une imagelist d'un formulaire. Par contre on peut stocker des images dans une imagelist quand elle est dans une feuille de classeur.
Voici comment utiliser une imagelist à images stockées dans un formulaire :
1 - Insérer une imagelist dans une des feuilles du classeur.
2 - Ecrire une macro qui charge l'imagelist (à n'exécuter qu'une fois) exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub ChargerImage()
ImageList31.ListImages.Add , , LoadPicture("M:\Test\Images\11c.bmp")
ImageList31.ListImages.Add , , LoadPicture("M:\Test\Images\12c.bmp")
ImageList31.ListImages.Add , , LoadPicture("M:\Test\Images\13c.bmp")
End Sub

3 - Utiliser l'imagelist de la feuille dans son formulaire. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim CompteurImage As Integer
 
Private Sub CommandButton1_Click()
Me.Image1.Picture = ThisWorkbook.Worksheets(2).ImageList31.ListImages(CompteurImage).Picture
CompteurImage = CompteurImage + 1
If CompteurImage > ThisWorkbook.Worksheets(2).ImageList31.ListImages.Count Then CompteurImage = 1
End Sub
 
Private Sub UserForm_Initialize()
CompteurImage = 1
End Sub

Rendre l'imagelist de la feuille invisible une fois que tout est OK.

Résultat :




Nullosse, le plus nul des apprentis programmeur

[Pierre_PP]

Excellent ça marche parfaitement ! Je n'ai même pas eu a masquer l'imagelist sur ma feuille dès que j'ai chargé mes images elle a disparu d'elle même.

Pas mal pour "le plus nul des apprentis programmeur"

Merci encore.

Pierre