problème en liant des images à une liste déroulante

[balzou]

Bonjour à tous,

j'ai récupéré un code qui permet de lié des images à différentes case d'une liste déroulante et ceci fonctionne parfaitement.

Mon soucis c'est que si je tape un chiffre dans n'importe quelle cellule du tableur, une image apparaît!!!

voici le code :



Private Sub Worksheet_Change(ByVal Target As Range)
Set images = Sheets("images")

If Target.Count = 1 Then

' supression de l'image précédente
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
s.Delete
End If
End If
Next s

If Target <> "" Then
On Error Resume Next
images.Shapes(Target).Copy
If Err = 0 Then
Target.Offset(0, 1).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 20

Selection.ShapeRange.Top = ActiveCell.Top
Target.Select
End If
End If
End If


Quelqu'un a t il une solution pour éviter l'apparition d'image intempestive ?

merci

balzou

 

[balzou]

Re : problème en liant des images à une liste déroulante

un petit up

 

[balzou]

Re : problème en liant des images à une liste déroulante

personne ne voit pourquoi une image apparaît quand on écrit un chiffre dans une cellule ?

 

[balzou]

Re : problème en liant des images à une liste déroulante

lonely... I'm so lonely !

vraiment personne alors ?

parce ça gâche quand même beaucoup mon programme