Bonjour
Je suis à la recherche d'un code pour effacer une image qui se trouve sur ma feuille excel dans un "image (contrôle activeX)"
Mon code pour insérer une image.
'Image
Private Sub cboRace_Change()
On Error Resume Next
ActiveSheet.Image1.PictureSizeMode = fmPictureSizeModeZoom
ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\dossier_Image_Chien\" & Me.cboRace & ".jpg")
If Err <> 0 Then
B = True 'Pour éviter de lancer ma MsGbox
If Not B Then MsgBox Me.cboRace & "Photo introuvable (ou mal orthographié)"
B = False 'Pour éviter de lancer ma MsGbox
End If
End Sub
Je vous remercie de votre aide
Cordialement
Max