XL 2010 tester l'existence d'une feuille en vue de la supprimer

[philmaure]

Bonjour,

est il possible de tester si une feuille existe pour la supprimer ou si elle n'existe pas il faut alors poursuivre la macro sans message d'erreur excel ?

Merci pour votre aide

Cdlt
Philmaure

 

[Paf]

Bonjour philmaure,

A quoi peut bien nous servir ce joli classeur vide !!

Une solution possible, à insérer quelque part dans votre macro.

If IsError(Evaluate("='" & nomFeuille & "'!A1"))  Then  'renvoie vrai si n'existe pas

A+

 

[philmaure]

bonjour Paf et merci pour la réponse.
Pour supprimer la feuil3 j'ai fait une macro.
Je souhaitais la modification de la macro pour tester si la feuil3 existait ou pas.
Cdlt
Philmaure

 

[Paf]

re,

ne connaissant pas la macro, je ne peux qu'apporter ces précisions :

nomFeuille ="Feuil3"
If IsError(Evaluate("='" & nomFeuille & "'!A1"))  Then  'renvoie vrai si n'existe pas
       code si feuille n'existe pas
else
       code si feuille existe
end if

ou

If IsError(Evaluate("=Feuil3!A1"))  Then  'renvoie vrai si n'existe pas
       code si feuille n'existe pas
else
       code si feuille existe
end if

ou

If Not IsError(Evaluate("=Feuil3!A1"))  Then  
       code si feuille existe
else
       code si feuille n'existe pas
end if

A+

 

[job75]

Bonjour philmaure, Paf,

Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuil3").Delete
On Error GoTo 0

Si la feuille nommée "Feuil3" existe elle est supprimée.

A+

 

[philmaure]

re,
super un grand merci à vous deux .
Je vais pouvoir adapter vos solutions à mon fichier
Bon a-m
Cdlt
Philmaure

 

[philmaure]

re bonjour,

je relance la demande car je ne parviens pas à mes fins. Je dois sans doute oublier quelque chose
Le but est de tester si l'onglet Paris existe :
- s'il existe je le renomme en PARIS2

- s'il n'existe pas je continue la macro (dans mon vrai fichier il y une suite à la macro)

Merci pour aide
Cdlt
Philippe

 

[Paf]

re et bonjour job75

nomFeuille = "PARIS"
If Not IsError(Evaluate("='" & nomFeuille & "'!A1")) Then Sheets("PARIS").Name = "PARIS2"

à encadrer des instructions :
Application.DisplayAlerts = False et Application.DisplayAlerts = True
s'il y avait un message système .

A+

 

[philmaure]

re et merci pour la réponse. sur mon fichier test cela fonctionne mais sur mon fichier perso j'ai le message d'erreur suivant :
Variable non défini => la macro bogue sur : nomFeuille =

Cdlt
Philmaure

 

[Paf]

re,

Comme le dit le message, la variable n'est pas définie, donc il faut la définir; en début de macro, déclarer la variable par:

Dim NomFeuille as String

A+

 

[job75]

Re,

Faudrait savoir ce que vous voulez philmaure !!!

Et ça sert à quoi de vous aider si vous ne faites aucun effort pour comprendre un code hyper-simple ?

On Error Resume Next
Sheets("PARIS").Name = "PARIS2"
If Err = 0 Then Exit Sub 'si nécessaire
On Error GoTo 0
'---suite du code---

A+

 

[philmaure]

bonjour grand merci à vous deux.

bonne journée
Cdlt
Philmaure