Tester l existance d une feuille

Voici de quoi tester l'existance d"une feuille dans la collection des feuilles de ce classeur

nomfeuille=input$("entrez le nom de la fdeuille")
for each i in thisworkbook.worksheets
if i.name =nomfeuille then existe=true
next
msgbox existe

tien voila un code ki te renvoi un boolean
vrai si la feuille existe , faux si la feuille n'exsite pas et l'a crée

public function TestExistSheet(byval iSheetName as string) as boolean
on error goto ExistSheetError
dim LocalWorkSheet as WorkSheet
set LocalWorkSheet = activeworkbook.worksheets(iSheetName)
TestExistSheet = true
exit function
ExistSheetError:
Sheets.add.name = iSheetName
TestExistSheet = false
end function

si ta besoin d'autre chose ds la même optique je pense pouvoir t'aider,

merci beaucoup !

ca marche nickel merci beaucoup !
ben si j ai un autre probleme, je te demanderai Merci !

une autre approche de mon cru


Sub demo()
If Not ObjetDonnePresent_ounon("Feuil4", Among:=sheets) Then 'ou bien activeworkbook.sheets
returnvalue = GUI_Message_Temporaire("Objet absent", 1, "Attention")
Else: returnvalue = GUI_Message_Temporaire("Objet présent", 1, "Attention")
End If
End Sub

Function ObjetDonnePresent_ounon(itemName As String, Among As Object) As Boolean
Dim Item As Object
For Each Item In Among
ObjetDonnePresent_ounon = (itemName = Item.Name)
If ObjetDonnePresent_ounon Then Exit For 'exit early if found
Next Item
End Function
Function GUI_Message_Temporaire(Message As String, TpsenSeconde As Integer, TitreMessage As String)
CreateObject("WScript.Shell").PopUp Message, TpsenSeconde, TitreMessage
'temps en secondes. référence dés fois nécessaire à Windows host scripting)
End Function