Suppression feuille

Résolu/Fermé

Herta - 7 oct. 2016 à 13:12
Herta - 10 oct. 2016 à 07:59

Bonjour, à tous,
J'aimerai savoir pourquoi le code macro suivant ne fonctionne pas.Il s'agit de supprimer toutes les feuilles sauf les deux feuilles dénomés "Brouillon" et "Bulletin"

Merci d'avance pour votre aide

Application.DisplayAlerts = False
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Sheets
If Sht.Name <> "brouillon" Or Sht.Name <> "Bulletin" Then
MsgBox Sht.Name
Sht.Select
ActiveSheet.Delete
End If
Next Sht

Rows("7:1000").Select
Selection.Delete Shift:=xlUp
Range("A7").Select
Application.DisplayAlerts = True

End Sub

A voir également:

Suppression feuille
Forcer suppression fichier - Guide
Feuille de pointage excel - Télécharger - Tableur
Suppression page word - Guide
Suppression compte instagram - Guide
Feuille a5 - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
7 oct. 2016 à 15:29

Bonjour Herta,

Essaye avec ce code VBA :


Sub Essai()

  Dim Sht As Worksheet

  Application.DisplayAlerts = False

  For Each Sht In Worksheets
    With Sht
      If .Name <> "Brouillon" And .Name <> "Bulletin" Then .Delete
    End With
  Next Sht

  Rows("7:1000").Delete Shift:=xlUp: [A7].Select
  Application.DisplayAlerts = True

End Sub

Dis-moi ce que tu en penses, et si ça marche.
Sinon, indiques-moi ce qui ne vas pas.

Cordialement. 😊

Herta
10 oct. 2016 à 07:59

Bjr Albkan;

J'ai testé le macro que tu m'a proposé et ça marche parfaitement.
Je te remercie pour ton aide

A plus

Discussions similaires

Feuille de score belote

Reporter valeur sur autre feuille avec critere

feuille excel de gestion belote

Discussions similaires

Newsletters