Effacer une image dans un "image (contrôle activeX)"

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

Bonjour

A essayer

    'Image
    Private Sub cboRace_Change()
    ActiveSheet.Image1.Picture = LoadPicture("")
    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

Bonjour Banzai64

Je te remercie mais je m'excuse je me suis mal exprimer. En faite sur mon Formulaire j'ai mis un bouton et a l'aide de se bouton j'aimerai supprimer l'image qu'il y a dans image (contrôle activeX)".

Excuse moi encore et merci de ton aide

Bonne soirée

Max

Bonjour

Et en reliant le code avec ton bouton cela ne fonctionne pas ?

Ton fichier va être utile

Re

Voila sa seras certainement mieux!

@+

Bonsoir

Code à placer dans le code de l'userform

Private Sub CommandButton2_Click()
  ActiveSheet.Image1.Picture = LoadPicture("")
  ' Sans cette instruction l'image n'est pas effacée
  ' Jusqu'à ce que la souris bouge ?????????
  Application.ScreenUpdating = True
End Sub

Re,

J'ai un message d'erreur sur la ligne suivante:

ActiveSheet.Image1.Picture = LoadPicture("")

@+

Bonsoir

Macro dans ton fichier et pas de message d'erreur

Re,

Je ne comprend plus rien moi j'avais un message d'erreur.

Je te remercie et te souhaite une bonne soirée

Max