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

Douane · 14 Juillet 2009

Bonjour, j'ai cette macro sous la main :

Code:

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 · 14 Juillet 2009

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

Code:

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 · 14 Juillet 2009

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 :

Code:

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

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

Douane

Guest

chris

XLDnaute Barbatruc

Douane

Guest

Discussions similaires

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

Douane

Guest

chris

XLDnaute Barbatruc

Douane

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency