Bonjour a tous et a toutes !!
Je suis en train de créer un programme en VBA qui permet d'afficher une image dans une feuille selon une condition sur une cellule.
Mon problème est que je n'arrive pas a supprimer l'ancienne image lorsque je veux en faire apparaître une autre.
Voila mon petit bout de programme:
Sub InsertPicture()
Dim MyPicture As Picture
Dim image$
Sheets("DS1").Select
If Range("F28").Value = "102" Then
Sheets("DS2").Select
Range("A1").Select
image = "c:\logoserv.JPG"
Set MyPicture = ActiveSheet.Pictures.Insert(image)
End If
If Range("F28").Value = "103" Then
Sheets("DS2").Select
Range("A1").Select
image = "c:\logodesriac2.JPG"
Set MyPicture = ActiveSheet.Pictures.Insert(image)
End If
End Sub
Merci beaucoup a vous !