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

  1. 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
  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