Microsoft 365 Fermeture feuille et reinitialisation

Moreno076 · 23 Février 2020

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 · 23 Février 2020

Bonsoir le fil, Moreno076

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

Staple1600 · 23 Février 2020

Bonsoir le fil, Moreno076

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

Moreno076 · 23 Février 2020

Staple1600 à dit:
Bonsoir le fil, Moreno076

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

Rapide et efficace merci

Staple1600 · 23 Février 2020

Re

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

VB:

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

Staple1600 · 23 Février 2020

Re

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

VB:

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 · 23 Février 2020

Staple1600 à dit:
Re

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

VB:

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 · 23 Février 2020

Re

Reste la reinitialisation du bouton en haut

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

Moreno076 · 23 Février 2020

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

Staple1600 · 23 Février 2020

Re

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

Moreno076 · 23 Février 2020

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 · 23 Février 2020

Re

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

VB:

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 · 23 Février 2020

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 · 23 Février 2020

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 · 23 Février 2020

Staple1600 à dit:
Re

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

VB:

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 · 23 Février 2020

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.

Microsoft 365 Fermeture feuille et reinitialisation

Moreno076

XLDnaute Impliqué

Pièces jointes

Staple1600

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Discussions similaires