Vérifier la présence d'une feuille

un exemple

Sub Macro3()

If sheetExist("aaa") Then
MsgBox "existe"
Else
MsgBox "n'existe pas"
End If

End Sub

Function sheetExist(nam As String) As Boolean

On Error Resume Next
Set sh = Sheets(nam)
If Err = 0 Then sheetExist = True

End Function

A+

Bonjour Roger,
Une façon:

'''**************
Sub tstf()
If IsEmpty(verifeuil("aaa")) Then
MsgBox "la feuille n'est pas là"
Else
MsgBox "la feuille est bien là"
End If

End Sub

Function verifeuil(nomf As String)
On Error Resume Next
verifeuil = Sheets(nomf).Name
On Error GoTo 0
End Function
'''*************

'lSteph

"Roger" <Roger@discussions.microsoft.com> a écrit dans le message de news:
F6A2424C-374F-475E-8D6D-FF120E2D4318@microsoft.com...

Bonjour,

Ma question est : quel est le code VBA que je pourrais utiliser pour
vérifier la présence d'une feuille nommée aaa dans mon classeur avec
déclenchement d'une action si vrai et d'une autre action si faux.
D'avance merci pour votre aide,

Roger.