Supprimes les feuilles selon leur position

[OLAGNE]

Bonjour,

J'ai trouvé dans le forum le code pour supprimer les feuilles selon leur position dans le classeur, malheureusement ça ne fonctionne pas très bien puisque seulement une feuille sur deux est supprimée.
Dans mon classeur je veux supprimer les 16 feuilles qui se trouvent après la feuille "maquette" située en 3ème position.
Merci de votre aide.

"Sub SuppFeuille_Sauf()
Dim n As Integer

On Error Resume Next
Application.DisplayAlerts = False
For n = 1 To Sheets.Count
If n > 3 Then Sheets(n).Delete
Next
Application.DisplayAlerts = True
End Sub"

 

[phlaurent55]

Re : Supprimes les feuilles selon leur position

Bonjour Olagne,

fais un essai avec:

For n = Sheets.Count To 1 Step-1
je n'ai pas testé

à+
Philippe

 

[CHALET53]

Re : Supprimes les feuilles selon leur position

Bonsoir,

Sans être sûr, peut-être que le Sheets.Count est dérouté après chaque Delete
Je procéderai autrement, puisqu'il y a 3 feuilles que tu ne veux pas détruire, insère un test dans la boucle du style :
if sheet.name ="toto" then goto suite (une étiquette que tu positionnes juste devant le next ainsi : suite🙂

et ainsi pour les trois feuilles

a+

pS: Bonjour Phlaurent : sans doute une bonne suggestion
a+

 

[OLAGNE]

Re : Supprimes les feuilles selon leur position

Merci beaucoup à vous deux.

j'ai testé ta solution Philippe, c'est super ça fonctionne à merveille.

Je conserve aussi le solution de CHALET (ça peut toujours servir).

Encore merci
a+