XL 2016 Contrôles ImageList / ImageCombo

[Pounet95]

Bonsoir,
J'ai quelques soucis pour faire fonctionner ces 2 contrôles. Quand je veux utiliser la propriété Personnalisé j'ai le message d'erreur ci-après qui s'affiche.
J'ai bien tenter de trouver une solution sur la toile, mais je dois être bien couillon car je n'arrive pas à mettre en oeuvre les solutions proposées
via l'utilisation de l'invite de commande en mode administrateur.

Dans mes recherches, inclus le fil Installation mscomctl.ocx de 2012.
Là, erreur :
PC sous Windows 10 64 bits Excel 2016 32bits

Merci d'avance de vos suggestions

 

[Pounet95]

Bonjour,
Comment supprimer ce fil qui n'a pas de réponse, qui n'en aura jamais mais qui prend (un peu ) de place?
Merci

 

[Staple1600]

Bonjour le fil, Pounet95

•>Pounet95
Maintenant elle a une réponse 😉

PS: je suis dans le même cas que toi.
Mais si j'ai la nostalgie du ImageList/ImageCombo, je suis obligé de retourner dans le passé (avec la machine idoine 😉)
(cf XP virtualisé avec XL2003 etc...)

 

[Pounet95]

Bonjour Staple1600
Comme on dit, je vais faire sans.
Ne les ayant jamais utilisés, je pensais que c'était nouveau. Bah non !!!!
Bonne journée

 

[Staple1600]

Re,

•>Pounet95
Si on ne peut pas accéder à la propriété (Personnalisé), on peut néanmoins utiliser le contrôle.
Petit exemple ci-dessous (test OK - XL 2013 32 bits et W10 64 bits)
Un userform avec un contrôle ImageList + 1 contrôle Label + 1 contrôle Image

Private Sub UserForm_Initialize()
Me.ImageList1.ListImages.Add 1, "A", LoadPicture("C:\Users\STAPLE\Pictures\Img_01.jpg") '<-changer le path et nom fichier image
Me.ImageList1.ListImages.Add 2, "B", LoadPicture("C:\Users\STAPLE\Pictures\Img_02.jpg")
Me.ImageList1.ListImages.Add 3, "C", LoadPicture("C:\Users\STAPLE\Pictures\Img_03.jpg")
Me.Image1.Picture = ImageList1.ListImages(1).Picture
Label1.Picture = ImageList1.ListImages(2).Picture
End Sub
Private Sub Image1_Click()
Me.Image1.Picture = ImageList1.ListImages(3).Picture
Me.Repaint
End Sub

Private Sub Label1_Click()
Label1.Picture = ImageList1.ListImages(1).Picture
End Sub

 

[Pounet95]

Re,
Et bien je vais pouvoir essayer.
Merci