Macro effacer des feuilles n'ayant pas un nom défini

[Douane]

Bonjour, j'ai cette macro sous la main :

For Ctr = Sheets.Count To 1 Step -1
If Not Sheets(Ctr).Name Like "REG V" Then
SendKeys ("{ENTER}")
Sheets(Ctr).Delete
End If
Next

Simplement j'aimerais pouvoir garder plusieurs feuilles et pas seulement REG V. Chaque feuille à son propre nom. Mais je n'y arrive pas... Comme modifier ce petit code pour permettre de garder plusieurs feuille ?

Merci beaucoup et bonne journée !

 

[chris]

Re : Macro effacer des feuilles n'ayant pas un nom défini

Bonjour

Si tes feuilles ont un nom précis, les mettre dans la condition

If Not Sheets(Ctr).Name Like "REG V" or Not Sheets(Ctr).Name Like "nom2"_
or Not Sheets(Ctr).Name Like "nom" then

On peu aussi faire l'inverse et n'effacer que certaines feuilles (selon le nombre)

 

[Douane]

Re : Macro effacer des feuilles n'ayant pas un nom défini

Salut merci pour ta réponse !

Malheuresement ça ne fonctionne pas, il me m'efface toutes les feuilles sauf la première, peut importe le nom... J'ai peut-être fait une erreur...

Salutations !

ça devait être moi...

J'ai finallement une version comme ça :

im ws As Worksheet

For Each ws In Worksheets
If ws.Name <> "REG V" And ws.Name <> "REG VI" And ws.Name <> "REG VIII" Then ws.Delete
Next
Application.DisplayAlerts = True