Discussion :

[akmer]

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

[Daranc]

essayes avec

Code :

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

cells.clearcontent

ça devrait dans un premier temps virer le contenu de tes cellules
bon je n'ai pas excel sous la mains
mais il doit y avoir un truc pour remettre le format des cellules en standard