Re : Afficher une image en fonction du contenu de la cellule
J'ai parlé un peu vite...
Une dernière question relative au code de la macro, j'ai besoin d'un cours de programmation :
Je souhaite adapter ton code, qui fonctionne dans le fichier Affiche Image Suivant Cellule, à mon fichier de suivi... Pour cela, j'ai copié l'onglet Images dans mon classeur, et ton code dans Visual Basic ; j'ai ensuite remplacé les cellules "C4:J9" par "I12:R362" mais ça ne fonctionne pas (Impossible de lire la propriété blablabla)...
Quelles sont les autres valeurs du code à adapter en fonction de mon tableau, car pour moi tout ça c'est du charabia...?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim valeur As String, i As Integer
If Not Intersect(Target, Range("
C4:J9")) Is Nothing Then
On Error Resume Next
ActiveSheet.Shapes("Image" & Target.Address).Delete
On Error GoTo 0
If UCase(Target) = "X" Then
valeur = Cells(3, Target.Column)
With Sheets("Images")
For i = 1 To 50
If valeur = .Range("A" & i) Then valeur = .Range("B" & i)
Next i
End With
Target.Select
ActiveSheet.Pictures.Insert(valeur).Select ' je cree une image
Selection.ShapeRange.AlternativeText = " "
Selection.Name = "Image" & Target.Address ' J'identifie l'image pour une eventuelle suppression
Selection.Width = Target.Width
Selection.Height = Target.Height
Target.Select
End If
End If
End Sub
Merci