Discussion :

[ptitepo]

Bjr,

Je cherche a faire quelque chose du genre,
pour chaque feuille du classeur
si la feuille a un nom autre que synthese,
alors on la supprime
(sachant que le nom de mes feuilles varie souvent, et que je veux toute les suprimé mais garder la feuille synthèse.)

Donc j'ai com code for each ... if.... <> sythèse then ....Delete
voila lol ca fait peu, pe être vous aller m'aidé. Merci

[OrDonc]

Bonjour,

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub efface()
  Dim N As Byte
  For N = 1 To Sheets.Count
    If Sheets(N).Name <> "synthese" Then Sheets(N).Delete
  Next N
End Sub

[Invité]

Bonjour,

Vous pouvez ajouter en début de procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

si vous ne voulez pas devoir répondre au message qui va s'afficher à chaque fois.

En fin de procédure vous ajoutez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = True

[ptitepo]

J'ai tester, la condition "If Sheets(N).Name <> "Synthèse" Then" marche uniquement pour les feuilles au numero impair, il me met un message d'erreur, "L'indice n'appartient pas a la selection".
Ce qui est bizare, c'est quant le relancant juste après il efface quelques feuilles et remet le même message, est ce normal?

[Gorfael]

Salut ptitepo

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

J'ai tester, la condition "If Sheets(N).Name <> "Synthèse" Then" marche uniquement pour les feuilles au numero impair

Excel obéit toujours et fait "bêtement" ce qu'on lui demande
10 feuilles : Excel déclare la boucle de 1 à 10
t'en supprime 1, la 10 devient la neuf, mais Excel ne recalcule pas et comme tu viens de supprimer l'indice 1, il passe à l'indice 2, ex-indice 3
(dans ton cas, Synthèse doit être en 1, ce qui déplace le problème).
Solution : changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For N = 1 To Sheets.Count

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For N = Sheets.Count to 1 step -1

du dernier indice au premier en décrémentant
A+

[ptitepo]

J'ai mi ma feuille Synthèse en 1er position, mais il me mets, "Dépassement de capacité", et avec le 1er coe, je l'est mise en dernier, et toujours le même message, "L'indice n'appartient pas a la selection"