Microsoft 365 Fermeture feuille et reinitialisation

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #2

Bonsoir le fil, Moreno076

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

 

Vote positif 0 Vote négatif

Solution

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #3

Staple1600 à dit:

Bonsoir le fil, Moreno076

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

Cliquez pour agrandir...

Rapide et efficace merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #5

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #6

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #7

Re

Reste la reinitialisation du bouton en haut

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #8

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #9

Re

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #10

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?

 

Pièces jointes

• V600.xlsm

  379.2 KB · Affichages: 1
• V600b.xlsm

  414.4 KB · Affichages: 2

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #11

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"

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #13

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 ?

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 23 Février 2020

• #14

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"

Cliquez pour agrandir...

Je n'ai rien compris lol

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Février 2020

• #15

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. 😉

 

Vote positif 0 Vote négatif