Discussion :

[toutletoutim]

Bonjoir a tous je soihaite supprimer tous les onglets d'un classeur sauf l'onglet "recap" et "bdd"
Merci pour votre aide
Je ne souhaite pas confirmer la suppression elle doit etre transparente

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim ws as worksheet
application.displayalerts = false
application.screenupdating=false
for each ws in worksheets
    if ws.name <> "bdd" and ws.name<>"recap" then ws.delete
next
application.displayalerts = true

[PeyePo]

Bonjour

A mon avis il faudrait mieux mettre un opérateur Or que And

PeyePo

[toutletoutim]

Merci le cide propose par mercatog fonctionne