Effacer toutes les feuilles du classeurs sauf deux feuilles ?

H

Hervé

Guest

• 28 Décembre 2004

• #2

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é

 

Vote positif 0 Vote négatif

A

avoriaz

Guest

• 28 Décembre 2004

• #3

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

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 28 Décembre 2004

• #4

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

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 28 Décembre 2004

• #5

re

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

Salut
Hervé

 

Vote positif 0 Vote négatif

A

avoriaz

Guest

• 28 Décembre 2004

• #6

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

merci a vous, jean marie , et herve

 

Pièces jointes

• Bureau.zip

  8.3 KB · Affichages: 51
• Bureau.zip

  8.3 KB · Affichages: 45
• Bureau.zip

  8.3 KB · Affichages: 43

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 28 Décembre 2004

• #7

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

 

Vote positif 0 Vote négatif

C

ChTi'160

Guest

• 28 Décembre 2004

• #8

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

 

Vote positif 0 Vote négatif

A

avoriaz

Guest

• 29 Décembre 2004

• #9

superbe ca marche!!

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

avoriaz

 

Vote positif 0 Vote négatif