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

2 réponses

Réponse 1 / 2
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
Réponse 2 / 2
tetradon Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Ok et merci
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses