XL 2013 Macro fermer feuille

Modeste

XLDnaute Barbatruc

• 26 Février 2016

• #2

Re : Macro fermer feuille

Bonjour Etn,

J'ai cherché mais je ne trouve que des macros pour fermer des classeurs entiers et non uniquement une feuille

Cliquez pour agrandir...

Peut-être que tu ne trouves pas ... parce que ce n'est pas possible

Si tu cherches en utilisant le terme "Masquer", plutôt que "Fermer" une feuille, tu auras peut-être plus de succès?

 

Vote positif 0 Vote négatif

E

Etn

XLDnaute Occasionnel

• 26 Février 2016

• #3

Re : Macro fermer feuille

Bonjour Modeste,

C'est fou tout ce qu'on peut faire avec le vba, mais qu'il soit impossible de fermer une feuille de classeur haha.

Le problème c'est qu'il est nécessaire que les feuilles soient fermées (supprimées) et pas seulement masquées.

Merci quand même pour ton aide.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 26 Février 2016

• #4

Re : Macro fermer feuille

Ben Supprimer, c'est encore différent de Fermer ou Masquer!

Utilise le bon terme dans tes recherches et tu obtiendras la réponse (Sheets(x).Delete) dans le cas présent

Dans un module standard, quelque chose comme

Code:

Sub masquer()
tabSh = Array("NOM", "PRENOM", "AGE")
For Each sh In ThisWorkbook.Sheets
    If Not IsError(Application.Match(sh.Name, tabSh, 0)) Then sh.Delete
Next sh
End Sub

...devrait fonctionner

 

Vote positif 0 Vote négatif

E

Etn

XLDnaute Occasionnel

• 26 Février 2016

• #5

Re : Macro fermer feuille

Cela fonctionne, j'aimerais juste que le message :
"Vous ne pouvez pas annuler la suppression de feuilles, car il est possible que vous supprimiez certaines données. Si vous n'en avez plus besoin cliquez sur Supprimer."
ne s'affiche plus si possible.

D'autre part je ne comprends pas la différence entre supprimer et fermer une feuille.

 

Vote positif 0 Vote négatif

N

nunizgb

XLDnaute Junior

• 26 Février 2016

• #6

Re : Macro fermer feuille

Etn à dit:

D'autre part je ne comprends pas la différence entre supprimer et fermer une feuille.

Cliquez pour agrandir...

Supprimer veux dire que tu ne peux plus retrouver ta feuille

Ferme veux dire que tu puisse la retrouver à nouveau en excel fermer=Masquer

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 26 Février 2016

• #7

Re : Macro fermer feuille

Bonjour Etn.
Pour éviter que le message de confirmation n'apparaisse, tu peux placer :

Application.DisplayAlerts = False

Cliquez pour agrandir...

Et en fin de procédure :

Application.DisplayAlerts = True

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

E

Etn

XLDnaute Occasionnel

• 26 Février 2016

• #8

Re : Macro fermer feuille

Aah très bien je pensais que fermer = Supprimer, désolé de la confusion.

D'autre part j'ai trouvé comment contourner le message de confirmation (j'ai utilisé Application.displayAlerts = False)

Merci pour votre aide et bonne journée !

EDIT : Bonjour theBenoit59, je viens de voir ton message. Cela fonctionne

Code:

Sub DeleteFeuille()
 tabSh = Array("Feuil2", "Feuil3")
 For Each sh In ThisWorkbook.Sheets
     If Not IsError(Application.Match(sh.Name, tabSh, 0)) Then sh.Delete
     Application.DisplayAlerts = False
 Next sh
 End Sub

Cela fonctionne alors devrais-je quand même ajouter Application.DisplayAlerts = True ?

Cordialement,

Etn

 

Dernière modification par un modérateur: 26 Février 2016

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 26 Février 2016

• #9

Re : Macro fermer feuille

N'oublie pas de le réactiver, sinon tu n'auras plus de messages par la suite.

 

Vote positif 0 Vote négatif

E

Etn

XLDnaute Occasionnel

• 26 Février 2016

• #10

Re : Macro fermer feuille

Ah très bien j'ai compris, merci

Donc quelque chose comme ça ?

Code:

Sub DeleteFeuille()
  tabSh = Array("Feuil2", "Feuil3")
  For Each sh In ThisWorkbook.Sheets
      If Not IsError(Application.Match(sh.Name, tabSh, 0)) Then sh.Delete
      Application.DisplayAlerts = False
  Next sh

     Application.DisplayAlerts = True
  End Sub

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 26 Février 2016

• #11

Re : Macro fermer feuille

Je ferai plutôt comme ça :

Code:

Sub DeleteFeuille()
Application.DisplayAlerts = False
  tabSh = Array("Feuil2", "Feuil3")
  For Each sh In ThisWorkbook.Sheets
      If Not IsError(Application.Match(sh.Name, tabSh, 0)) Then sh.Delete
  Next sh
Application.DisplayAlerts = True
  End Sub

 

Vote positif 0 Vote négatif

E

Etn

XLDnaute Occasionnel

• 26 Février 2016

• #12

Re : Macro fermer feuille

Ok, ça marche parfaitement, merci à vous et bonne journée !

 

Vote positif 0 Vote négatif