Effacer toutes les feuilles du classeurs sauf deux feuilles ?

[avoriaz]

salut le forum,

alors vous avez passé un bon noel ? j'espere que oui !!!!!


et bien voila ma question: je desire effacer toute les feuilles de mon classeurs sur un seul bouton....
sauf deux feuilles la feuille menu et la feuille resultat ....

qq1 peut t'il venir a mon aide ?

merci a vous

avo

 

[Hervé]

Bonsoir

un truc dans ce style :

Public Sub vev()
Dim ws As Object

Application.DisplayAlerts = False

For Each ws In Worksheets
If ws.Name <> "Menu" And ws.Name <> "Resultat" Then
ws.Delete
End If
Next ws

Application.DisplayAlerts = True

End Sub


Salut
Hervé

 

[avoriaz]

merci hervé pour ta reponse aussi rapide ..

j'ai essayé il me remonte une erreur de compilation then and goto

bizzard ....

If ws.Name "Menu" And ws.Name "Resultat" Then cette phrase passe en rouge ....

merci

 

[ChTi'160]

Salut "avoriaz "et " Hervé"
je pense que tu n'as pas bien recopier la procèdure qu' Hervé t'a donné
If Ws .Name <>"Menu "il faut un opérateur = ,<, > etc pour la suite de la procèdure
A+++
Jean Marie

 

[Hervé]

re

jean-marie à raison, vérifie ta synthaxe.

Salut
Hervé

 

[avoriaz]

bizzard j'ai copié coller du coup ...
je vous donne un essais histoire de voir ..

merci a vous, jean marie , et herve

 

[ChTi'160]

re
la syntaxe n'était donc pas bonne ensuite il te faut faire attention à la case Menu n'est pas menu

Private Sub CommandButton1_Click()

Dim ws As Object

Application.DisplayAlerts = False

For Each ws In Worksheets
If ws.Name<> "menu" And ws.Name <> "resultat"Then
ws.Delete
End If
Next ws
Exit Sub
Application.DisplayAlerts = True

End Sub
A+++
Jean Marie

 

[ChTi'160]

re une autre version trouvée sur
<http://www.info-3000.com/vbvba/onglet.php>
Sub EffacementTouteFeuille ()
For Ctr = Sheets.Count To 1 Step -1
If Sheets (Ctr).Name <> "menu" And Sheets (Ctr).Name <> "resultat"Then
Sheets (Ctr).Delete
End If
Next
End Sub
Pourquoi avoir écrit Sheets.Count To 1 Step -1 au lieu de 1 To Sheets.Count?
Parce qu’à chaque tour de boucle, on efface chaque fois une feuille, et Sheets.Count devient chaque fois plus petit. Au bout d'un moment, VBA ne trouve plus les feuilles. C'est subtil !

A+++
Jean Marie

 

[avoriaz]

superbe ca marche!!

encore un grand merci a toi et herve pour votre aide et mille escuse pour la synthaxe !!!

avoriaz