VBA pour ExcelRésolu

Question

Comment tester la pr&#233;sence d'une feuille de calcul "RECAP" dans un classeur avant toute creation pour &#233;viter une erreur

If Worksheets("Recap").xxxxxxx = False Then ????????


    Set NewSheet = Worksheets.Add
    NewSheet.Name = "Recap"
EndIf

Merci

mrdep1978 · Accepted Answer

A chaque fois que j'ai d&#251; tester l'existence d'un &#233;l&#233;ment dans une collection, j'ai fait une fonction &#224; 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

cs_jollivie · Answer

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&#233;&#233;e
JO

cs_Garches · Answer

Merci beaucoup

VBA pour Excel

3 réponses

Discussions similaires