Macro excel
Bonjour,
Je suis en train de faire un macro pour la supression automatique de certaines feuilles du classeur
j'aime supprimer toutes les feuilles au format "moisAnnée"
Exemple : "Février2008", "janvier2008"
mon code est le suivant :
sub suppression ()
Sheets("" & Format(Date, yyyy)).Delete
end sub
Apparemment c'est pas suffisant
Quelqu'un à une idée
Merci d'avance
Je suis en train de faire un macro pour la supression automatique de certaines feuilles du classeur
j'aime supprimer toutes les feuilles au format "moisAnnée"
Exemple : "Février2008", "janvier2008"
mon code est le suivant :
sub suppression ()
Sheets("" & Format(Date, yyyy)).Delete
end sub
Apparemment c'est pas suffisant
Quelqu'un à une idée
Merci d'avance
Configuration: Windows XP Firefox 2.0.0.12
2 réponses
-
Sub suppression()
On Error Resume Next
Dim madate As Long
madate = InputBox("Année a supprimmer", "Feuille à supprimer", "2008")
Sheets("janvier" & madate & "").Delete
Sheets("février" & madate & "").Delete
End Sub -
C'est normal, parce que tu lui demandes de supprimer la feuille nommée 2008, et il n'y en a pas...
Essaye quelque chose comme ça:
Sub Macro3()
Dim Compteur as Integer
Compteur = 1
Sheets("Nom de le première feuille du classeur").Select
While Compteur < Sheets.Count
If ActiveSheet.Name Like ("*" & format(date(),"yyyy")) Then
ActiveSheet.Delete
End If
ActiveSheet.Next.Select
Compteur = Compteur + 1
Wend
End Sub
