Signaler

Suppression feuille [Résolu]

Posez votre question Herta - Dernière réponse le 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
Afficher la suite 
Utile
+0
moins plus
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
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !