HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

[balzou]

Bonjour à tous,

j'ai récupéré un code qui permet d'associer des images aux différentes cases d'une liste déroulante et cela marche très bien. Cependant dès que j'écris un chiffre dans une cellule, une des images associées à ma liste déroulante apparaît et c'est très frustrant !!

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

End Sub


Voila si une âme charitable pouvait m'aider ce serait fort sympathique de sa part.

balzou

 

[balzou]

Re : HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

personne ne voit d'ou vient le problème ?

 

[Pierrot93]

Re : HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

Bonjour,

bah le code fait ce que tu lui demande de faire.... peut être mettre un test sur l'adresse de la cellule concernée.... A voir, sans plus de détail difficile d'en dire plus...

bonne journée
@+

 

[Compte Supprimé 979]

Re : HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

Bonjour, salut Pierrot

Je rajouterais, sans fichier ça va être difficile !?

A+

 

[balzou]

Re : HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

voila le fichier joint

n'ayant pour compressé le fichier sous la main j'ai du retiré quelques images situées en feuille 2...

en espérant que cela va vous aider

balzou

 

[Pierrot93]

Re : HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

Re, bonjour Bruno

peut être ceci :

If Target <> "" And Not IsNumeric(Target) Then

en lieu et place de :

If Target <> ""

 

[balzou]

Re : HELP ! Une image apparaît quand j'écris un chiffre dans une cellule !!

merci Pierrot tu me sauves la vie !!!

au plaisir

balzou