supprimer un groupe de feuilles en une fois

[albert]

Bonjour à tous, bonjour forum,

Le code suivant supprime une par une des feuilles choisies (3 à – 8)
Je cherche à supprimer ce groupe de feuilles en une seule fois.

J’ai cherché des solutions comme par exemple Loop Until mais à chaque fois il y a bogue et F8 ne me donne pas la soluce (on peut pas tout avoir)


Sub KillSheet2()
Compteur = Worksheets.Count - 8
A = Compteur
B = 3
'-----------------------------------
For i = 2 To A

Sheets(B).Select

FeuilToKill = B
Application.DisplayAlerts = False
On Error GoTo Out
Sheets(FeuilToKill).Delete
Application.DisplayAlerts = True
B = B + 1
'-----------------------------------


Exit Sub
Out:
MsgBox "La Feuille : " & FeuilToKill & " n'existe pas"
Next i
End Sub


merci d'avance

albert

 

[sousou]

Voici comment selectionner 2 feuilles et les effacer.
J'espère que cela t'aidera


Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.Delete

 

[albert]

Merci sousou,

Sheets(Array("Feuil1", "Feuil2")).Select : j'ai appliqé avec une boucle, ce qui me donne également une suppression une par une

J'ai finalement trouvé le code suivant, qui fonctionne bien :


Sub SuppSheets()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Worksheets
If sht.Name <> "Rendements" And sht.Name <> "X" _
And sht.Name <> "bzz" And sht.Name <> "brr" _
And sht.Name <> "Feuil2" And sht.Name <> "Feuil1" _
And sht.Name <> "Statistiques" And sht.Name <> "mode d'emploi" _
And sht.Name <> "Calculs" Then sht.Delete
Next
End Sub

 

[Papey]

Sélection

- Bonjour à vous tous!
Je commence à m'intéresser à Excel et aux macros.
Je cherche le moyen de sélectionner la dernière feuille d'un classeur sans stipuler son nom.
Merci d'avance.

 

[Le rital]

Bonsoir,

Pourquoi ne pas supprimer un groupe de feuille en les selectionnant

"Ctrl+Shift+Pg.suiv" clique droit supprimer.

Cordialement

Le rittal

 

[albert]

Re: Sélection

bonjour popey, bonjour rital et forum,
bonne occasion pour revisiter
http://perso.wanadoo.fr/frederic.sigonneau/office.htm

un exemple en pièce jointe : cherchFeuil.zip 12 Ko

 

[Le rital]

Salut,

Exellent ce site

Merci

Cordialement

Le rital