Microsoft 365 Fermeture feuille et reinitialisation

[Moreno076]

Bonjour à tous.

Dans mon classeur, j'ai plusieurs feuilles qui s'ouvrent lorsque je clique sur le bouton du haut.

J'ai crée un bouton RESET qui a pour but de supprimer les feuilles Ruptures ExtractionReappro et X3.
Déjà j'ai un message qui me demande confirmation pour fermer feuille. Comment supprimer ce message?

Ensuite je voudrais que ce même bouton reset permette que le bouton du haut se remette à l'origine pour relancer toutes les macros mais ca je n y arrive pas du tout.
Avez vous des pistes?

Sub ReinitilisationBtn()
Worksheets("Ruptures").Delete
Worksheets("ExtractionReappro").Delete
Worksheets("X3").Delete

End Sub

Merci pour votre collaboration.

 

[Staple1600]

Bonsoir le fil, Moreno076

Pour ne pas avoir le message d'avertissement
Application.DisplayAlerts = False

 

[Moreno076]

Bonsoir le fil, Moreno076

Pour ne pas avoir le message d'avertissement
Application.DisplayAlerts = False

Rapide et efficace merci

 

[Staple1600]

Re

Tu peux aussi écrire ton code de cette façon

Sub ReinitilisationBtn()
Application.DisplayAlerts = False
Sheets(Array("Ruptures", "ExtractionReappro", "X3")).Delete
End Sub

 

[Staple1600]

Re

Et au cas où, tu voudrais supprimer des feuilles qui ont déjà été supprimées

Sub ReinitilisationBtn()
On Error Resume Next
Application.DisplayAlerts = False
Sheets(Array("Ruptures", "ExtractionReappro", "X3")).Delete
Application.DisplayAlerts = True
On Error GoTo 0
End Sub

 

[Moreno076]

Re

Et au cas où, tu voudrais supprimer des feuilles qui ont déjà été supprimées

Sub ReinitilisationBtn()
On Error Resume Next
Application.DisplayAlerts = False
Sheets(Array("Ruptures", "ExtractionReappro", "X3")).Delete
Application.DisplayAlerts = True
On Error GoTo 0
End Sub

La deuxieme formule me va bien ;-) Merci Reste la reinitialisation du bouton en haut

 

[Staple1600]

Re

Reste la reinitialisation du bouton en haut

Tu peux détailler ce problème, stp?
Le bouton se situe sur quelle feuille ?

 

[Moreno076]

Sur la feuille Synthèse. Il est actuellement marqué "gestion terminée"

 

[Staple1600]

Re

Tu veux qu'il soit marqué quoi une fois les feuilles supprimées ?

 

[Moreno076]

Re
En fait je veux que le bouton reset remette le fichier comme quand on l'ouvre.
Peut etre que le plus simple est que ce bouton ferme le classeur sans l'enregistrer et le réouvre en fait? Qu'en penses-tu?

 

[Staple1600]

Re

J'ai cru que tu voulais "switcher" le caption du Button
(comme dans cet exemple)

Private Sub CommandButton1_Click()
Dim CB_c$
CB_c = CommandButton1.Caption
CommandButton1.Caption = IIf(CB_c = "Oui", "Non", "Oui")
End Sub

Au départ (avant de cliquer), Oui est affiché sur le "bouton".
1er clic=> Non s'affiche sur le "bouton"
2nd clic=>Oui s'affiche de nouveau sur le "bouton"

 

[Moreno076]

J'ai fait ca mais ca ne fonctionne pas lol

Sub ReinitilisationBtn()
Workbooks("V700").Close SaveChanges:=False
Workbooks.Open ("C:\Users\Olivier\Desktop\X4\")

End Sub

 

[Staple1600]

Re

C'est logique, il manque le nom du classeur dans cette ligne
Workbooks.Open ("C:\Users\Olivier\Desktop\X4\")

PS: Pas de commentaires de ta part sur ce que j'écrivais dans le message#11 ?

 

[Moreno076]

Re

J'ai cru que tu voulais "switcher" le caption du Button
(comme dans cet exemple)

Private Sub CommandButton1_Click()
Dim CB_c$
CB_c = CommandButton1.Caption
CommandButton1.Caption = IIf(CB_c = "Oui", "Non", "Oui")
End Sub

Au départ (avant de cliquer), Oui est affiché sur le "bouton".
1er clic=> Non s'affiche sur le "bouton"
2nd clic=>Oui s'affiche de nouveau sur le "bouton"

Je n'ai rien compris lol

 

[Staple1600]

Re

Bah, pour comprendre, rien de mieux que de tester, non ?
1) inséres un CommandButton (ActiveX) sur une feuille vierge)
2) Clic-droit-> Propriétés -> saisir Oui dans la zone Caption
(puis fermer la fenêtre: Propriétés)
3) Nouveau clic-droit=> Visualiser le code
4) Copier le code VBA de mon message
5) Revenir dans Excel puis cliquer sur Mode Création (pour en sortir)
Enfin cliquer sur le bouton
Observer ce qui se passe
Cliquer une seconde fois
Observer de nouveau ce qui se passe.

Voilà, désormais vous avez compris.