tester si une sheet existe

Une façon indirecte : tester une erreur :

Sub zz_testF()
If [iserror(Feuil4!A1)] Then
MsgBox "Feuil4 n'existe pas"
Else: MsgBox "feuil4 existe"
End If
End Sub

AV
"balou" <balou@voila.fr> a écrit dans le message news:
0a3901c36700$4b62c150$a401280a@phx.gbl...
Bonjour,
je souhaite supprimer une feuille et pour cela effectuer
un test pour vérifier qu'elle existe ?
Je ne trouve pas en vba le code qui le permet
merci d'avance pour vos réponses.

Bonjour

Le plus simple est de la supprimer avec une gestion d'erreur

Dans la procédure Test, si la feuille n'existe pas, rien ne se passe
Dans la procédure Test1, un message apparaît.

Le DisplayAlert = False est facultatif mais empêche le message
d'avertissement avant la suppression

Sub Test()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("feuil4").Delete
Application.DisplayAlerts = True
End Sub

Sub Test1()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("feuil4").Delete
If Err() <> 0 Then MsgBox "Feuille inexistante"
Application.DisplayAlerts = True
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)


balou wrote:

Bonjour,
je souhaite supprimer une feuille et pour cela effectuer
un test pour vérifier qu'elle existe ?
Je ne trouve pas en vba le code qui le permet
merci d'avance pour vos réponses.