Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

suppression feuille

D

David

Guest
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
 
A

Arnaud

Guest
salut,

essaye un truc comme ça :

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

yeahou

Guest
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
 
D

David

Guest
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
 
A

Attila

Guest
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
 

Discussions similaires

Réponses
5
Affichages
271
Réponses
22
Affichages
943
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…