Afficher image en fonction de la valeur d'une cellule

[Percentile]

Bonjour,

Je cherche à afficher une image dans mon tableau excel en fonction d'un valeur.

Par exemple si A1="chien" afficher image1.jpg qui se trouve dans c:mes documents, etc...

J'ai vu plusieurs post qui parle de ça mais j'ai pas vraiment réussi.

Je suis super débutant en VBA.

Merci pour votre aide.

 

[excalibur]

Re : Afficher image en fonction de la valeur d'une cellule

bonjour Percentile le forum fait une recherche dans les archives du forum pas mal d infos sur le sujet ....recherche puis afficher image go

 

[BOISGONTIER]

Re : Afficher image en fonction de la valeur d'une cellule

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("b2")) Is Nothing Then
    repertoire = ThisWorkbook.Path & "\"
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    p = Application.Match([B2], [NOMS], 0)
    If Not IsError(p) Then
      image = Range("images")(p)
      Range("B7").Select
      monimage = ActiveSheet.Pictures.Insert(repertoire & image).Select
      Selection.Name = "monimage"
    End If
    [B2].Select
  End If
End Sub

JB
Formation Excel VBA JB

 

[Percentile]

Re : Afficher image en fonction de la valeur d'une cellule

Merci pour l'aide. J'ai réussi a faire ce que je voulais.