Macro Excel

Résolu/Fermé

tetradon Messages postés 11 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 3 octobre 2010 - 10 août 2010 à 12:25
tetradon Messages postés 11 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 3 octobre 2010 - 13 août 2010 à 13:16

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:

Macro Excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

cousinhub
10 août 2010 à 12:44

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

Réponse 2 / 2

tetradon Messages postés 11 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 3 octobre 2010
13 août 2010 à 13:16

Ok et merci

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro