supprimer des feuilles

[luisf]

bonjour

je voudrais supprimer des feuilles en cliquant sur un bouton les feuilles s'appelle fiche1, fiche2...

j'ai trouver le code suivant:

For j = 1 To Sheets.Count
    If Sheets(j).Name Like "fiche*" Then Sheets(j).Delete
Next j

ce code fonctionne mais mon souci c'est que la feuille qui s'appelle fiche ne doit pas etre supprimer

est ce qu'il y a un code qui dit supprimer les feuilles sauf la feuille "fiche"????

merci

 

[tototiti2008]

Re : supprimer des feuilles

Essaye :

For j = 1 To Sheets.Count
If Sheets(j).Name Like "fiche?*" Then Sheets(j).Delete
Next j

 

[luisf]

Re : supprimer des feuilles

impec sa marche nikel

merci

 

[luisf]

Re : supprimer des feuilles

une autre question:

je veux aussi supprimer les feuilles qui s'appelle graphique du 13 mai , graphique du 15 mai....
donc j'ai essayé avec le meme code mais sa ne fonctionne pas

For l = 1 To Sheets.Count
    If Sheets(l).Name Like "graphique du ? " Then Sheets(l).Delete
Next l

 

[tototiti2008]

Re : supprimer des feuilles

For l = 1 To Sheets.Count
If Sheets(l).Name Like "graphique du *" Then Sheets(l).Delete
Next l

Le joker * représente un nombre indéfini de caractères inconnus (y compris 0)
Le joker ? représente 1 caractère inconnu

 

[luisf]

Re : supprimer des feuilles

le code fonctionne en partie.
il me supprime le graphique du 13 mai, mais pas celui du 15 mai j'ai un message qui dit :

erreur d'exécution '9'
l'indice n'appartient pas à la sélection

 

[tototiti2008]

Re : supprimer des feuilles

Bizarre l'erreur d'execution???
Peux-tu me donner le nom exact de tes feuilles ? (respecte les minuscules et majuscules)

 

[luisf]

Re : supprimer des feuilles

oui moi aussi je trouve sa bizarre car je ne vois pas pourquoi il en supprime une et pas l'autre.
le nom exact c'est:
- graphique du 13 mai
- graphique du 15 mai
- ......

 

[tototiti2008]

Re : supprimer des feuilles

Pas d'idée...

 

[luisf]

Re : supprimer des feuilles

ok merci quand meme

 

[tototiti2008]

Re : supprimer des feuilles

essaye un débogage pour voir sur quelle ligne il plante et met un espion sur Sheets(l).Name pour voir sur quel nom de feuille ça plante...
Une idée : un classeur doit comporter au moins une Feuille

 

[luisf]

Re : supprimer des feuilles

je ne peux pas cliquer sur debogage sur la fenetre de l'erreur.

quand tu dis mettre un espion sa veux dire quoi??

 

[luisf]

Re : supprimer des feuilles

ce qui se passe c'est que quand je clique sur le bouton il supprime une feuille puis j'ai le message (l'indice n'appartient pas....) je suis obliger de cliquer sur fin. si je re clique sur le bouton c'est pareil il supprime l'autre feuille et le message apparait de nouveau et ainsi de suite!

quelqu'un aurait une idée pour ce problème??

merci