Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Petite question sur les images

  • Initiateur de la discussion Initiateur de la discussion mahamalily
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

mahamalily

Guest
Bonjour à tous,

J'aurais besoin de votre aide.

J'aimerais afficher une image sous Excel 2007 mais pas n'importe comment...

L'utilisateur aura une combobox (liste proposée par l'administrateur par exemple avec A, B, C et D) .

Et quand il aura choisi l'un des items, il faudrait que l'image concernant cette information s'affiche !

Exemple : Je veux sélectionner l'élément D qui va m'afficher une image D décoré comme si c'était pour les petits enfants.

Et oui, cette image doit être associée à cet élément...

Merci à l'avance pour votre aide...
 
Re : Petite question sur les images

Bonjour mahamalily, re-salut tototiti,

C'est simple si dans la feuille les seuls objets sont les images (renommées) et la ComboBox :

Code:
Private Sub ComboBox1_Change()
Dim s As Object
For Each s In Me.Shapes
  If Not s.Name Like "ComboBox*" Then s.Visible = False
Next
Me.Shapes(ComboBox1).Visible = True
End Sub

Edit : sur mon fichier de test les images sont des objets de Type = 13 = msoPicture

On peut donc utiliser cette macro :

Code:
Private Sub ComboBox1_Change()
Dim s As Object
For Each s In Me.Shapes
  If s.Type = msoPicture Then s.Visible = False
Next
Me.Shapes(ComboBox1).Visible = True
End Sub
A+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…