Gestion des erreurs

[Sophie11]

Bonjour,
Si je supprime une feuille mais cette feuille n'existe pas, je voudrais que la macro continue de s'exécuter. Comment faire pour ne pas avoir un message d'erreur??? Mercii

Sheets("feuille_sophie").delete

 

[porcinet82]

Re : Gestion des erreurs

Salut,

Je vois 2 solutions, soit tu regardes si la feuille existe en bouclant sur toutes les feuilles et ensuite tu la supprimes si elle existe.
Ou alors, la méthode un peu plus "sauvage" mais que tout le monde utilise, tu encadres le code comme ceci :

On error resume next
Sheets("feuille_sophie").delete
On error goto 0

La première ligne "annule" l'erreur et fait passer la lecture du code à la ligne suivante et la dernière ligne "réactive" la gestion d'erreur.

@+

 

[Sophie11]

Re : Gestion des erreurs

super merci
Et si je veux verifier sur tous les onglets (methode propre)

Dim i As Byte
For i = 1 To Sheets.Count
Sheets(i).????
Next i

 

[porcinet82]

Re : Gestion des erreurs

re,

Je ne comprend pas vraiment ta seconde question. Tu pourrais développer un peu plus stp ?

@+

 

[Gael]

Re : Gestion des erreurs

Bonjour Sophie, Salut porcinet, le forum,

Essaye le code suivant:

For Each ws In Worksheets
If ws.Name = "Feuille_Sophie" Then
ws.delete
exit for
end if
Next

@+

Gael

 

[Sophie11]

Re : Gestion des erreurs

merci pour ta reponse!