[VB EXCEL] présence feuille

présence feuille [VB EXCEL] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 26-02-2004 à 22:21:03   

Reply

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.

Reply

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.

Reply

Marsh Posté le 27-02-2004 à 14:47:41    

Merci bcp!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed