présence feuille [VB EXCEL] - VB/VBA/VBS - Programmation
Marsh Posté le 27-02-2004 à 04:20:15
Bonjour,
Fonction pour verifier qu'une feuille existe bien dans un classeur (la casse n'est pas importante):
Function existence_feuille(nomfeuille As String) As Boolean
For Each sh In Sheets
If UCase(sh.Name) = UCase(nomfeuille) Then
existence_feuille = True
Exit Function
Else
existence_feuille = False
End If
Next
End Function
Et pour supprimer une feuille sans alerte:
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
I.
Marsh Posté le 27-02-2004 à 04:33:53
Tiens ou une autre fonction (qui ne me semble pas plus rapide, mais qui est plus courte):
Function feuille(nomfeuille As String) As Boolean
On Error Resume Next
feuille = Len(Worksheets(nomfeuille).Name) > 0
End Function
I.
Marsh Posté le 26-02-2004 à 22:21:03
Bjr,
je n'arrive pas à trouver la fonction qui permet de vérifier si une feuille est bien dans le classeur.
Ps: ah oui j'oubliais, savez comment effacer une feuille sans avoir la fenête de confirmation?
Merci