effacer des feuilles

[darib52]

bonsoir à tous,
je suis à la recherche d'une macro qui permette d'effacer toutes les feuilles d'un classeur sauf les feuilles 'modele', 'accueil' et 'constantes'.
si l'une ou l'un d'entre vous a ça en magasin, je prends.
merci d'avance.

 

[Marc_du_78]

Bonsoir darib52, le Forum,

Je te donne le code tel que (Macro enregistrée par anuky)

Sub Macro1()
Application.DisplayAlerts = False 'évite le message excel
On Error Resume Next 'en cas de bug passe à la ligne suivante
Sheets('Feui4').Delete 'supprime onglet 'Feuil4'
à adapter
Application.DisplayAlerts = True 'remet les message excel
End Sub
Bon dimanche

 

[Temjeh]

Bonjour

http://pages.videotron.com/temjeh/bug.htm

 

[Hervé]

Bonsoir darib, marc, temjeh

en piece jointe une proposition.

salut [file name=Classeur1_20060121190114.zip size=6736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060121190114.zip[/file]

 

[Temjeh]

Salut hervé

Comment fait-tu pour poster je suis incappable depuis 20min si je met un code

Temjeh

 

[darib]

merci de vos réponses.
bravo à Hervé qui a résolu de main de maitre mon p'tit pb.

bonne soirée

 

[Hervé]

re tout le monde

temjeh, en ce moment le serveur n'accepte pas les codes contenant le signe different de .

par contre il n'y a pas de souci pour les pièces jointes.

salut