Effacer toutes les feuilles sauf une

[guitarde]

J'aimerais avoir une macro qui efface toutes les feuilles sauf la feuille qui est active.

Avec le code suivant ca devrait marcher sauf que je ne sais pas commment trouver la valeur de I pour la feuille courante. Je vais ensuite ajouter un IF pour deleter les feuilles qui n'ont pas le I de la page courante au départ.



Sub macro()
Dim I As Byte

For I = 1 To Worksheets.Count

Sheets(I).Delete


Next I
End Sub

 

[Hervé]

Bonsoir

essaye comme ceci :

Sub macro()
Dim ws As Worksheet

Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True

End Sub

salut

 

[guitarde]

Ca semble bien marcher.

Merci
Eric

 

[Robert]

Bonsoir Guitarde, bonsoir le forum,

Il doit y avoir un code plus simple mais je te propose cette macro :

Sub Macro1()
Dim nomfeuil As String 'déclare la variable nomfeuil
Dim sh As Worksheet 'déclare la variable sh
Application.DisplayAlerts = False 'masque les messages excel (Les feuilles seront supprimées définitivement...blablabla)
nomfeuil = ActiveSheet.Name 'définit la variable nomfeuil
For Each sh In Sheets 'boucle sur toutes les feuilles du classeur
'condition : si le nom de la feuille est différent de nomfeuil, supprime la feuille
If sh.Name <> nomfeuil Then sh.Delete
Next sh 'prochaine feuille du calsseur
Application.DisplayAlerts = True 'réaffiche les messages excel
End Sub

&Eacute;dition

Damned Hervé m'a grillé encore un fois...

Message édité par: Robert, à: 31/05/2005 23:00