supprimer des feuilles

luisf · 15 Mai 2008

bonjour

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

j'ai trouver le code suivant:

Code:

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 · 15 Mai 2008

Re : supprimer des feuilles

Essaye :

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

luisf · 15 Mai 2008

Re : supprimer des feuilles

impec sa marche nikel

merci

luisf · 15 Mai 2008

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

Code:

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

tototiti2008 · 15 Mai 2008

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 · 15 Mai 2008

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 · 15 Mai 2008

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 · 15 Mai 2008

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 · 15 Mai 2008

Re : supprimer des feuilles

Pas d'idée...

luisf · 15 Mai 2008

Re : supprimer des feuilles

ok merci quand meme

tototiti2008 · 15 Mai 2008

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 · 15 Mai 2008

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 · 16 Mai 2008

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

supprimer des feuilles

luisf

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

luisf

XLDnaute Occasionnel

luisf

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

luisf

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

luisf

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

luisf

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

luisf

XLDnaute Occasionnel

luisf

XLDnaute Occasionnel

Discussions similaires