Discussion :

[chrisaccess]

Bonsoir,

Je cherche, avant d'éxécuter une macro en vba à vérifier si la feuille "tata" (exemple) n'existe pas dans le classeur. Cette feuille peut avoir été créer auparavant par une autre macro.

Mon but final est qu'en cas qu'elle existe je la supprime avant d'éxécuter ma macro, par la fonction

Code :

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

sheets("tata").delete

J'ai rien trouver dans le faq et les propositions sur internet ne fonctionne pas. Comme je ne connaissais pas ces fonctions et qu'excel 2007 non plus j'ai laissé tombé ces solutions.


Merci pour votre aide

[GBardou]

Code :

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

1
2
3
4
5
dim ws
 
for each ws in worksheets
if ws.name = "Tata" then ws.delete
next ws

[kiki29]

Salut, qqch dans le genre, à adapter à ton contexte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Function FeuilleExiste(sNom As String) As Boolean
    On Error Resume Next
    FeuilleExiste = Sheets(sNom).Name <> ""
    Err.Clear
End Function
 
Sub Tst()
    Debug.Print FeuilleExiste("Essai")
End Sub

[mercatog]

Ou par gestion d'erreur

Code :

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

1
2
3
4
5
Application.DisplayAlerts = False
On Error Resume Next
Sheets("tata").Delete
On Error GoTo 0
Application.DisplayAlerts = True

[Didier Gonard]

Bonjour,

@ chrisaccess => sujets récents identiques

http://www.developpez.net/forums/d12...he-sil-existe/

Tester si des feuilles existent

cordialement,

Didier

[chrisaccess]

Ou par gestion d'erreur

Code :

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

1
2
3
4
5
Application.DisplayAlerts = False
On Error Resume Next
Sheets("tata").Delete
On Error GoTo 0
Application.DisplayAlerts = True

bonjour,
excellent ce code et tout a fait adapter.

Par contre je le comprends pas
je me suis servis de l'aide d'excel concernant les fonctions sans pour autant comprendre.

Pouvez vous m'aider ou m'indiquer un tutoriel qui m'aiderai à comprendre ?

[mercatog]

Quand tu veux manuellement supprimer une feuille contenant des donnée, tu as un message d'alerte d'Excel t'indiquant que le feuille contient des données et si tu veux vraiment la supprimer (pour confirmation)
Pour désactiver l'affichage des messages d'Excel, on utilise la ligne

Code :

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

Application.DisplayAlerts = False

à la fin il faut la remettre à True pour qu'Excel continuerait d'afficher ses messages.


La ligne

Code :

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

Sheets("tata").Delete

permet de supprimer la feuille nommée tata
2 cas de figure: tata existe, la suppression s'effectue sans problème
tata n'existe pas, il y a une erreur!

Pour surpasser l'éventuelle erreur, on utilise

Code :

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

1
2
3
On Error Resume Next
'ici les erreur sont sautée
On Error GoTo 0

Toute erreur entre les 2 instructions est ignorée.

Dans notre cas, si tata n'existe pas, l'erreur engendrée est tout simplement ignorée.

[Pierre Fauconnier]

Salut.

Attention que la gestion d'erreurs n'est pas le top dans ce cas de figure, car l'erreur peut être générée par un autre cas que l'inexistence de la feuille. Dans ce cas, aucune erreur n'est signalée, mais la feuille n'est pas supprimée pour autant.

On devrait toujours se passer de la gestion d'erreur quand c'est possible, et privilégier un code qui évalue les différents cas de figure.

@ GBardou

Je préférerais

Code :

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

for each ws in sheets

au cas où l'on voudrait supprimer une feuille de type graph