Affichage

[DeDe]

Je souhaite afficher une image en fonction du contenu d'une cellule;

Exemple A1 contient 1 afficher toto.jpg
A1 contient 2 afficher tata.jpg

SalutationS

 

[Lord Nelson]

Salut Dede,

Tu peux faire comme ceci, par exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 1 Then
Image1.Picture = LoadPicture("D:\HC\Images\Bateaux\HMS Victory.jpg")
Else
Image1.Picture = LoadPicture("D:\HC\Images\Bateaux\HMS Rose.jpg")
End If
End If
End Sub

Bien sûr, il faudra adapater les chemins et noms de fichiers.

A+
Horatio