pb de delete de feuilles

[bracq]

bonsoir le forum,

je dois delete une feuille dont j connais le nom quand j appuie sur un bouton de userform, pour celq j utilise le code suivant:

Function FeuilleExiste1(Nom$) As Boolean
On Error Resume Next
FeuilleExiste1 = Sheets(Nom).Name <> ""
Err.Clear
End Function

Private Sub CommandButton5_Click()
If FeuilleExiste1("Ideal force Etot Tabelle1") = True Then
Sheets("Ideal force Etot Tabelle1").Delete
End If

et ce code ne fonctionne pas...
merci

 

[jon]

bonjour

chez moi ce la fonctionne !

où obtiens tu une erreur ?
avais-tu bien mis la déclaration de fin de la procédure CommandButton5_Click ?

Function FeuilleExiste1(Nom$) As Boolean
On Error Resume Next
FeuilleExiste1 = Sheets(Nom).Name <> ""
Err.Clear
End Function

Private Sub CommandButton5_Click()
If FeuilleExiste1("Ideal force Etot Tabelle1") = True Then
Sheets("Ideal force Etot Tabelle1").Delete
End If
end sub