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:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
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