(RESOLU)affichage d'image selon la valeur d'une cellule

[chaelie2015]

Bonjour Forum
Je cherche à faire apparaitre des images (9 images) dans la feuille1 (exemple) selon la valeur de la cellule A1
si A1=1 alors afficher Picture1
si A1=2 alors afficher Picture2
etc.

Salutations
edit : fichier joint

 

[Lone-wolf]

Re : affichage d'image selon la valeur d'une cellule

Bonjour chaelie

Voilà. Je te laisse apporter les modifications nécessaires.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("a2:a11").ClearContents
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, lig As Long, nom As String, _
répertoirePhoto, img

Application.EnableEvents = False
 lig = ActiveSheet.Range("a65536").End(xlUp).Row + 1
 ActiveSheet.DrawingObjects.Delete
 
lig = Range("a65536").End(xlUp).Row + 1
For i = 2 To lig
   nom = Range("a" & i)
If nom <> "" Then
  répertoirePhoto = ThisWorkbook.Path & "\" & nom & ".gif"
  Set img = ActiveSheet.Pictures.Insert(répertoirePhoto)
  img.Left = Range("b" & i).Width / 2
  img.Top = Range("b" & i).Top + 2
  img.Name = nom
  End If
  Next
  i = i + 1

Application.EnableEvents = True

End Sub

 

[chaelie2015]

Re : affichage d'image selon la valeur d'une cellule

Bonjour lone wolf
merci pour la réponse mais elle est très compliquée ( je pense ?) par rapport a mon souci ?
merci par avance

 

[chaelie2015]

Re : affichage d'image selon la valeur d'une cellule

Bonjour Forum
ci dessous les code

Private Sub Worksheet_Change(ByVal Target As Range)
 Sheets("Feuil1").Shapes("Picture 1").Visible = [a1] = 1
Sheets("Feuil1").Shapes("Picture 2").Visible = [a1] = 2
End Sub

merci Job
a+

 

[Lone-wolf]

Re : affichage d'image selon la valeur d'une cellule

Re chaelie

bein, comme tu n'avait pas mis le classeur, comment savoir que les images étaient sur la feuille.