Discussion :

[FCL31]

Je voudrais supprimer des feuilles portant un nom plus ou moins precis.
En fait, ces feuilles portent le même nom (dans des classeurs différents)
mais quant elles sont dans le même classeur, le nom change :
Nom d'origine : Global
Différent nom a cause des noms identique : Global (1), Global (2), ...

Je fait le code suivant qui ne marche malheureusement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For j = 1 To 20
    For x = 1 To 20
        If Sheets(x).Name = ("Global (" & j & ")") Then Sheets("Global (" & j & ")").Delete
        If Sheets(x).Name = ("Global") Then Sheets("Global").Delete
    Next x
Next j

Dans le code, si je ne me trompe pas, je supprime les feuilles dont le nom est Global avec ou sans quelque chose derrière.
Mais si le feuille n'exista pas, sa plante avec le message suivant : "L'indice n'appartient pas à la sélection"

(Je peu me tromper dans mes déductions)

[aalex_38]

Bonjour,

Je te propose ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub delete_feuilles_global()
Dim WS As Worksheet
On Error GoTo fin
 
Application.DisplayAlerts = False
For Each WS In Worksheets
Debug.Print WS.Name
    If UCase(Left$(WS.Name, 6)) = "GLOBAL" Then 'laisser le nom en majuscule
        WS.Delete
    End If
Next WS
 
fin:
Application.DisplayAlerts = True
End Sub

[FCL31]

Nickel