VBA pour Excel

Résolu
Signaler
Messages postés
4
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2005
-
Messages postés
4
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2005
-
Comment tester la présence d'une feuille de calcul "RECAP" dans un classeur avant toute creation pour éviter une erreur

If Worksheets("Recap").xxxxxxx = False Then ????????


Set NewSheet = Worksheets.Add
NewSheet.Name = "Recap"
EndIf

Merci

3 réponses

Messages postés
402
Date d'inscription
jeudi 25 novembre 2004
Statut
Membre
Dernière intervention
7 juin 2009
5
A chaque fois que j'ai dû tester l'existence d'un élément dans une collection, j'ai fait une fonction à part. Ce qui donne :

Public Sub gsub_Test()
If Not fct_ExisteFeuille("Feuil12") Then
Debug.Print "pas de feuille"
End If
End Sub


Public Function fct_ExisteFeuille(a_Feuille As String) As Boolean
On Error GoTo NoSheet
'Si la feuille n'existe pas => Gestion d'erreur
If Not Worksheets(a_Feuille) Is Nothing Then
fct_ExisteFeuille = True
End If
Exit Function

NoSheet:
fct_ExisteFeuille = False
End Function
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
28
Date d'inscription
dimanche 29 décembre 2002
Statut
Membre
Dernière intervention
24 février 2008

tout simplement aussi:

On Error GoTo cre_sheet
Sheets("Recap").Select


.......code.........


Exit Sub


cre_sheet:
Err.Clear
n = Worksheets.Count
ActiveWorkbook.Sheets.Add Before:=Worksheets(n)
ActiveWorkbook.Sheets(n).Name = "Recap"
Resume

Si la feuille n'existe pas, elle sera créée
JO
Messages postés
4
Date d'inscription
mardi 25 janvier 2005
Statut
Membre
Dernière intervention
27 janvier 2005

Merci beaucoup