effacer données plusieurs feuilles

ccpapy · 30 Octobre 2012

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 · 30 Octobre 2012

Re : effacer données plusieurs feuilles

Bonjour,

essaye ceci à utiliser dans un module standard :

Code:

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 · 30 Octobre 2012

Re : effacer données plusieurs feuilles

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

effacer données plusieurs feuilles

ccpapy

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Discussions similaires

effacer données plusieurs feuilles

ccpapy

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency