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
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