feuille a supprimer ou non ?

[Nevil]

encore moi ...

Comment faire pour que une macro détecte si la feuille 'X' existe ou pas. Si elle existe, il la supprime, si elle n'existe pas, il la crée.

Merci de votre aide


Julien

 

[Jacques87]

Bonjour Julien

Voici un bout de code qui devrait répondre à ta question

For I = 1 To Sheets.Count
If Worksheets(I).Name = 'Feuil2' Then
Sheets(I).Delete
End If
Next I

il permet de supprimer la feuille 2

Bon courage

 

[Nevil]

Le probleme est qu'une fois qu'il a supprimer la feuil2, il repart dans la boucle et vu que la feuil2 n'existe plus vu qu'il la supprimé, il y a une erreur d'indice.

Comment palier a ce probleme ...

En tout cas merci, je tiens le bon bout

 

[coco_lapin]

Bonjour Nevil.

Va voir sur ce fil tout frais.

Ce lien n'existe plus

 

[Jacques87]

re Julien

Tu ajoutes un : Exit Sub après la destruction, la procédure se terminera

For I = 1 To Sheets.Count
If Worksheets(I).Name = 'Feuil2' Then
Sheets(I).Delete
Exit Sub
End If
Next I

Claude, si je ne me trompes, j'irai voir sur le fil tout frais, j'ai voulu de façon évidente compléter ma réponse avant

Cordialement

 

[Nevil]

voila mon code:

For k = 1 To Worksheets.Count
fhfh = Worksheets(k).Name
If Worksheets(k).Name = '' & i & '' Then
Worksheets(k).Delete
End If
Next k
ActiveWorkbook.Worksheets.Add.Name = '' & i & ''



i étant le nom de la feuille que je veux créer.

Le probleme est le suivant:
Quand la Macro trouve le feuille 'i' il la supprime, une fois qu'elle est supprimée, il faudrait que ca sorte de la boucle et que ca crée une feuille de nom 'i'.

Merci

 

[Jacques87]

pour sortir de la boucle je te l'ai expliqué au dessus
et pour construire une autre feuille avant de sortir, tu écris
Worksheets(son nom ou son index selon ton choix).Add
juste avant Exit Sub

 

[Nevil]

oui mais quand je dis sortir de la boucle je veux dire qu'il arrete sa boucle infernale mais qu'il continu a faire les instructions en desous de ActiveWorkbook.Worksheets.Add.Name = '' & i & ''.

parsqu'avec exit sub, c'est sur qu'il sort de la boucle, il sort meme de la macro, et c'est pas mon but.

 

[Jacques87]

alors petite astuce

tu remplaces Exit Sub par :
Goto suite
et où tu veux que ta procédure reprenne tu écris
suite :
et la suite en dessous

Message édité par: Jacques87, à: 10/01/2006 17:01