Macro Excel Résolu

Question

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

cousinhub · Answer

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

tetradon · Answer

Ok et merci

Macro Excel

2 réponses

Votre réponse

Discussions similaires

Newsletters