Bonjour,

grâce à vous, j'ai une macro me permettant d'afficher une image en fonction du contenu d'une cellule. Cette cellule est remplie automatique à l'aide d'une liste déroulante. Mais pour que la photo apparaisse, il faut que j'utilise un bouton pour lancer la macro.

J'aimerai que les photos apparaissent et disparaissent automatiquement en utilisant la liste déroulante.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub InsImg()
 
    Img = Range("E4").Value & ".jpg"
 
    Set objFeuille = ActiveSheet
    Set objPict = objFeuille.Pictures.Insert("\....\Mon répertoire" & Img)
 
    With objPict
 
        .Left = Range("M4:S20").Left
        .Top = Range("M4:S20").Top
        .Width = Range("M4:S20").Width
        .Height = Range("M4:S20").Height
 
    End With
 
End Sub

2eme point, je souhaiterai avoir une photo "par défaut" qui s'affiche lorsque je ne possède pas le fichier ".jpg" dans Mon Répertoire.

Voici à quoi ressemble ma feuille xls :




Si quelqu'un peut m'aider sur ces 2 points...

Merci d'avance.