effacer données plusieurs feuilles

[ccpapy]

bonjour,
je cherche à effacer des données sur tous mes onglets à l'exeption de quelques feuilles.

un debut de code que je n'arrive pas à finaliser

For each Sh in sheets
if Sh.Name = "Base" then exit sub
If Sh.Name = "Matrice" then exit sub

'etc pour mes 8 feuilles....

Sh.Range ("D8:M50")= ""
next Sh
end sub

merci pour votre aide

 

[Pierrot93]

Re : effacer données plusieurs feuilles

Bonjour,

essaye ceci à utiliser dans un module standard :

Option Explicit
Sub test()
Dim ws As Worksheet, t() As Variant
t = Array("feuil1", "feuil2")
For Each ws In Worksheets
    If IsError(Application.Match(ws.Name, t, 0)) Then ws.Range("D8:M50").ClearContents
Next ws
End Sub

bonne soirée
@+

 

[ccpapy]

Re : effacer données plusieurs feuilles

testé, adapté à mon fichier
tout fonctionne à merveille
merci pour cette réponse rapide
bonne soirée