Suppression contenu feuille

Résolu
Signaler
Messages postés
43
Date d'inscription
mercredi 9 avril 2008
Statut
Membre
Dernière intervention
9 septembre 2008
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour,
Je souhaite à l'aide d'un bouton effacer le contenu et la mise en forme de 2 feuilles nommés "statistiques" et "traitement" et fermer mon programme ne sauvegardant.
J'ai donc fait la formule suivante:

Private Sub CommandButton4_Click()
Sheets("Statistiques").select
Cells.Delete

Sheets("Traitement").select
Cells.Delete

Application.Quit
ThisWorkbook.Close savechanges:=True

End Sub

Mais sa ne marche pas car sa efface pas le contenu et la mise en forme des 2 feuilles mais en plus sa efface des images que j'ai mise sur une autre feuille et sa déplace tous les boutons de cette feuille (cependant mon fichier se ferme bien)
Quelqu'un à t'il la solution?
Merci d'avance pour votre aide

1 réponse

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Essaie peu etre

Cells.ClearContents
Cells.ClearFormats
ThisWorkbook.Close savechanges:=True
Application.Quit, ----
[code.aspx?ID=41455 By Renfield]

NOTE: j'inverserait ces deux ligne sinon tu quit excel avant de faire SaveChanges

@+: Ju£i€n
Pensez: Réponse acceptée