Savoir si une feuille existe

**Eric93** · 14/01/2008, 14h09

Bonjour,

Comment savoir si une feuille existe déja, pour pouvoir éventuellement la détruire avant de la créer

Merci d'avance

**Dolphy35** · 14/01/2008, 14h26

Bonjour,

http://www.developpez.net/forums/showthread.php?t=58976

pensez à effectuer des recherches

http://www.developpez.net/forums/search.php

Dolphy

**Eric93** · 14/01/2008, 15h53

Merci du lien, mais cette solution se base sur On Error, j'y avais pensé et je voulais éviter.

Par exemple sous VBA Word je connais l'instruction

Code :

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

If ActiveDocument.Bookmarks.Exists(signet) = True

pour savoir si un signet existe, je pensais que ce genre d'instruction existait probablement aussi sous VBA Excel pour une feuille, d'ailleur j'en au aussi besoin pour savoir si un classeur existe.

Merci

**Eric93** · 14/01/2008, 15h59

Autre question, comment connaitre le nombre de feuille ?

C'est une autre solution pour résoudre mon problème,, je supprime toute les feuille de la 3 à la nème, avant de lancer ma macro.

Mais la réponse à la première question m'interesse aussi, pour ma culture personnellle

**RemiT** · 14/01/2008, 16h10

tu peux avoir le nombre de feuille d'un classeur avec :

Code :

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

1
2
 
Sheets.Count

**Eric93** · 14/01/2008, 16h34

Merci

J'ai essayé de faire

Code :

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

1
2
For i = 1 To Sheets.Count
    Worksheets(i).Delete

Next

Mais ca ne marche pas car quand j'en Delete un les autres changent de numéro

Comment faire la boucle inverse

Code :

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

1
2
3
For i = Sheets.Count To 2
    Worksheets(i).Delete
Next

et décrémenter i (by -1 ??)

**laloune** · 14/01/2008, 16h40

Code :

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

For i = Sheets.Count To 2 Step - 1

enjoy

**Eric93** · 14/01/2008, 16h41

Autant pour moi, j'ai posé la question trop vite

Code :

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

1
2
3
For i = Sheets.Count To 2 Step -1
    Worksheets(i).Delete
Next

Ceci m'amène à une autre question, pour chaque Delete il me demande une confirmation, comment l'eviter ?

**cavo789** · 14/01/2008, 16h45

Dans l'objet Applicaztion de Excel, il existe une propriété pour désactiver la demande de confirmation.
Lors du delete des feuilles, fais gaffe à au moins en laisser une. Excel exige qu'un workbook contienne au moins une feuille
Il n'existe pas à ma connaissance de truc plus simple qu'un ON ERROR pour détecter si une feuille existe ou non. Tu pourrais lister toutes les feuilles mais c'est plus long et à programmer et à exécuter.

**Eric93** · 14/01/2008, 16h48

Ok merci, je laisse bien une feuille car je fais Until i = 2 par contre comment on fait pour désactiver la confirmation de la suppression par l'objet application ?

Je fait To 2, lol, je mélange les langages