Discussion :

[edelweisseric]

Bonjour à tous

J'ai une image sur ma feuille "mafeuille" qui se nomme "monimage".
J'aimerai que, lorsque je quitte cette feuille, "monimage" soit effacée.
J'ai donc mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Deactivate()	'ou Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
	Sheets("mafeuille").Shapes("monimage").Delete
End Sub

mais cela ne fonctionne pas.
Quel code dois-je employer ?

Merci d'avance
Eric

[Qwazerty]

Salut

Ton code fonctionne chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Deactivate()
ThisWorkbook.Sheets("Feuil1").Shapes("Image 1").Delete
End Sub

Toutefois, ce code ne sera exécute que lorsque tu active une autre feuille bien-sûr, le fait de changer de classeur ne provoque pas le Desactivate de ta feuille active?

N'aurais tu pas une protection sur la feuille ou le classeur?
As-tu un message d'erreur?

++
Qwaz

[edelweisseric]

Bonsoir à tous
Bonsoir Qwazerty

Mais c'est bien sur ......
Ma feuille est protégée
Merci beaucoup

Eric