Tester la présence d'une feuil dans un classeur

Bonjour
Une fonction personnalisée ?
A coller dans un module standard :
Sub test()
MsgBox IIf(FeuilleExiste("zozo"), "La feuille est bien là", "La feuille
n'est pas là")
End Sub

Function FeuilleExiste(shname As String) As Boolean
On Error Resume Next
ActiveWorkbook.Worksheets(shname).Select
FeuilleExiste = (Err = 0)
On Error GoTo 0
End Function

Cordialement
Pascal

"nouaman_elamari@hotmail.com"
<nouaman_elamari@hotmail.com@discussions.microsoft.com> a écrit dans le
message de news:EF3733B5-B196-476F-8BBE-19EFD1B098BE@microsoft.com...

Bonjour,
Mon problème est le suivant:
je récupère des donnes à partir d'une base sous forme d'un tableau Excel,
je

traite les donnes et je les affiche sur une autre feuil que j'appel
"résultat" dans le même classeur, je voulais savoir si elle existe une
fonction qui me permet de tester la présence de ma feuil résultat.
Et merci d'avance

Merci, de l'interet que vous avez accordé a mon problème, mais j'ai pas
compris la boucle, et en plus moi je souhaite si la feuille existe dans le
classeur, donc il faut la supprimer.

Bonjour
Une fonction personnalisée ?
A coller dans un module standard :
Sub test()
MsgBox IIf(FeuilleExiste("zozo"), "La feuille est bien là", "La feuille
n'est pas là")
End Sub

Function FeuilleExiste(shname As String) As Boolean
On Error Resume Next
ActiveWorkbook.Worksheets(shname).Select
FeuilleExiste = (Err = 0)
On Error GoTo 0
End Function

Cordialement
Pascal

"nouaman_elamari@hotmail.com"
<nouaman_elamari@hotmail.com@discussions.microsoft.com> a écrit dans le
message de news:EF3733B5-B196-476F-8BBE-19EFD1B098BE@microsoft.com...

Bonjour,
Mon problème est le suivant:
je récupère des donnes à partir d'une base sous forme d'un tableau Excel,
je

traite les donnes et je les affiche sur une autre feuil que j'appel
"résultat" dans le même classeur, je voulais savoir si elle existe une
fonction qui me permet de tester la présence de ma feuil résultat.
Et merci d'avance

....et en plus moi je souhaite si la feuille existe dans le
classeur, donc il faut la supprimer.

Sub sup()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Résultats").Delete
Application.DisplayAlerts = True
End Sub

AV

merci, c'est exactement ce qu'il me faut

....et en plus moi je souhaite si la feuille existe dans le
classeur, donc il faut la supprimer.

Sub sup()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Résultats").Delete
Application.DisplayAlerts = True
End Sub

AV