suppression feuille

[David]

Bonjour le forum

Une petite question toute simple :
J'ai crée cette procédure qui me permet de supprimer des feuilles à partir
de la 3ème
Le problème est que :il prend la feuil3 comme point de repère et si dans
mon classeur, j'ai 50 feuilles et, que je veux supprimer toutes les
feuilles à l'exception donc des 3 1ères , il y arrive un moment ou il me supprime la feuil3 et si, il me reste 25 feuilles, je me trouve avec le message :
"L'indice n'appartient pas à la selection", normal, mais pour moi, ce n'est
pas ce que je souhaite.

Ce que je fais :

je crée un fichier à partir d'un autre
je veux garder les 3 premières feuilles du fichier et supprimer celles qui
s trouvent après, mais problème
Merci de votre aide.


Dim i As Integer
For i = 3 To Worksheets.Count
Application.DisplayAlerts = False
Worksheets(i).Delete
Next i
Application.DisplayAlerts = True
end sub

 

[Arnaud]

salut,

essaye un truc comme ça :

Application.DisplayAlerts = False
Do While ActiveWorkbook.Worksheets.Count > 3
ActiveWorkbook.Worksheets(4).Delete
Loop
Application.DisplayAlerts = True

 

[yeahou]

Bonjour david, le forum

toujours le même problème pour les suppressions en boucle, la suppresion de la feuille 3 fait passer la feuille 4 en indice 3, hors le compteur étant passé à 4, la nouvelle feuille 3 n'est pas supprimée. Ce code supprime une feuille sur deux. Pour régler, partir de la fin.

A+

Dim i As Integer
Dim n As Integer
n=Worksheets.Count
Application.DisplayAlerts = False
For i =n to 3 step -1
Worksheets(i).Delete
Next i
Application.DisplayAlerts = True
end sub

 

[David]

Bonjour Arnaud, Bonjour yeahou

Voici de quoi apporter un peu de piment pour mes prochaines applications.

Vos idées me plaisent, je les adopte toutes les deux et vous remercie.
A plus

 

[Attila]

Je rajoutes un Thx ^^ j'avais exactement le meme probleme en ce moment et j'etais entrain de chercher... et je penses pas que j'aurais trouver la soluce lol

Thx le Forum

 

[jmps]

Bonjour vous tous,

Attila, l'herbe ne te suffit plus, maintenant tu t'attaques aux feuilles ?!! :°)))

Bonne journée.

José