Worksheet Delete

[CyK]

Est ce que quelqu'un peut m'expliquer cela

Dans un classeur je teste l'existence de certaines feuilles et je les efface j'ai d'abord essayé ceci :

    Dim Ws As Worksheet
    Application.DisplayAlerts = False
    For Each Ws In ActiveWorkbook.Sheets
    If Ws.Name = 'Expés 10 Jours Ouvrés'  Then
    Ws.Delete
    End If
    If Ws.Name = 'Stocks sur Expés' Then
    Ws.Delete
    End If
    If Ws.Name = 'Ruptures Expés' Then
    Ws.Delete
    End If
    Next
    Application.DisplayAlerts = True

Qui me retourne une belle erreur d'execution dont le code est incompréhensible si par contre je fais ceci :

    Dim Ws As Worksheet
    Application.DisplayAlerts = False
    For Each Ws In ActiveWorkbook.Sheets
    If Ws.Name = 'Expés 10 Jours Ouvrés' Or Ws.Name = 'Stocks sur Expés' Or Ws.Name = 'Ruptures Expés' Then
    Ws.Delete
    End If
    Next
    Application.DisplayAlerts = True

Tout fonctionne nickel !!!

Une idée sur l'explication de cette Erreur ?

 

[PascalXLD]

Bonjour

Cela parait normal car si ta première ou ta deuxième condition est remplie il supprime ta feuille. Donc ta feuille n'existant plus il n'y a plus de ws.name d'où un bug lorsque tu arrive à la condition suivante If ws.name

Par contre dans ta 2ème macro il n'y a pas de problème tu fais le test qu'une fois

Si tu veux mettre des if à la suite il faut passer par des elseif

 For Each Ws In ActiveWorkbook.Sheets

    If Ws.Name = 'Expés 10 Jours Ouvrés'  Then

    Ws.Delete



   ElseIf Ws.Name = 'Stocks sur Expés' Then

    Ws.Delete



    ElseIf Ws.Name = 'Ruptures Expés' Then

    Ws.Delete

    End If

    Next

Bon courage

 

[CyK]

Ok la confusion viens du fait que j'ai confondue l'effacement entre l'objet et le contenu de l'objet

Merci Beaucoup.