bonsoir Pias
il n'y a pas d'evenement "Change" pour les Label
Label1.ListIndex , n'est pas possible non plus
dans le premier exemple , l'affichage etait synchronisé entre les index de la comboBox et de l'ImageList : ce qui ne peut pas fonctionner avec un Label puisqu'il s'git d'un simple texte
une solution pourrait consister à attribuer pour chaque element de l'ImageList , une clé ( l'element "Key" dans les proprietes "Personnalisé" de l'ImageList) qui correspond au texte du Label qui doit déclencher l'affichage
dans le champs "Key" de chaque image tu saisis donc le texte équivalent qui va s'afficher dans le label
ce qui donnerait ensuite dans la macro:
…
Label1.Caption = Sheets("base1").Range("A2").Value
Dim j As Byte
For j = 1 To ImageList1.ListImages.Count
If ImageList1.ListImages(j).Key = Label1 Then
Me.Image1.Picture = ImageList1.ListImages(j).Picture
Exit For
End If
Next j
…
bonne soiree
MichelXld