Macro Excel

Résolu
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerai supprimer des feuilles dans un classeur se finissant pour mon exemple par '2010' en sachant que cette date change tous les ans.

Merci
A voir également:

2 réponses

cousinhub
 
Bonjour,

Essaie ce code :

Sub suppr()
Dim Sh As Worksheet
Application.DisplayAlerts = False
For Each Sh In Sheets
    If Val(Right(Sh.Name, 4)) = Year(Date) Then
            ' ou Year(Date) - 1, pour l'année précédente
        If Sheets.Count > 1 Then Sh.Delete
    End If
Next Sh
End Sub


Bonne journée
0
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Ok et merci
0