Discussion :

[awa123]

Bonjour,

je cherche à afficher une petite image en fonction de la valeur qu'on choisi à partir de la liste déroulante

pour créer la liste déroulante, je sais faire : je selectionne la cellule --> "données"dans la barre du menu excel --> "validation des données" --> et dans option je selectionne "liste" puis je rentre les différentes valeurs dans source (cf image jointe)

mais je voudrais que en fonction de la valeur que je choisis dans la liste déroulante un petite image s'affiche en dessous, et ça je sais pas faire...


si quelqu'un peut m'aider svp

merci beaucoup

[antonysansh]

Bonjour awa123,

Je ne sais pas si c'est possible de mettre des images dans une validation de données.
Mais en VB c'est possible :

• Dans ta liste tu mets le nom des images qui doivent pouvoir être affichées.
• Un code déclenché lorsque la cellule qui contient la liste change de valeur (à mettre dans le code de la feuille en question) :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("B1") Then Call Changer_Image
End Sub

• Un code qui change l'image :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Changer_Image()
    Dim pic As Picture, Nom$, Rg_Liste As Range
    Nom = "MonImage"
    Set Rg_Liste = [B1]
    Set pic = ActiveSheet.Pictures(Nom):    pic.Delete
    Set pic = ActiveSheet.Pictures.Insert("C:\Users\***\Pictures\" & Rg_Liste & ".png")
‘à adapter à ton chemin (tu peux aussi mettre les extensions de tes fichiers images directement dans la liste s’il ne sont pas tous au même format)
        pic.Left = [B2].Left
        pic.Top = [B2].Top
        pic.Name = Nom
fin:
    Set pic = Nothing
    Set Rg_Liste = Nothing
End Sub

J'ai mis la liste en B1 et je mets l'image en B2.
Mon image présente au départ s'appelle "MonImage" (/!\ Il faut absolument qu'il y est une image nommée MonImage sur la feuille)

Il te reste à adapter à ton cas.

[awa123]

merci beaucoup pour ce joli code (je le garde précieusement)

mais je suis convaincu qu'on peut faire ça sans utiliser le VBA, et c'est ce que j'aimerai découvrir en priorité

merci pour votre aide

[antonysansh]

Tu as raison c'est possible j'avais oublié l'appareil photo d'Excel !

Je vais essayer de ne pas me perdre dans mes explications.

• Tu as une liste en B1 de Feuil2 qui fait référence à la colonne A de la Feuil3
• En Feuil3 une matrice avec la liste en colonne A, les images dans les cellules de la colonne B et en colonne C les adresses de la colonne B.

Tu définis le nom "Image" comme ça:


Ensuite avec l'outil Excel "Appareil Photo" (pas natif, il faut l'ajouter au ruban)
Tu inserts une photo de n’importe quel cellule et ensuite tu modifie la référence :

[awa123]

Merci Antony