Effacer toutes les feuilles

Bonjour à tous,

il y a - il un code pour effacer toues les feuilles d'un classeur ? ou effacer les feuilles que nous souhaitons ?

Merci

Hi,

En partant du principe que tu veux garder les feuilles mais effacer le contenu :

Dim WS as worksheet

For each WS in thisworkbook.worksheets
    WS.usedrange.clearcontent
next WS

Si tu veux seulement effacer certaines feuilles (ici les feuilles aaa et bbb) :

Dim WS as worksheet

For each WS in thisworkbook.worksheets
    if WS.name = "aaa" or WS.name = "bbb" then    
        WS.usedrange.clearcontent
    end if
next WS

Salut Kit,

lorsque j'utilise ton code, il y a une erreur qui sélectionne la ligne: WS.usedrange.clearcontent (en jaune) et qui dit: propriété ou méthode non gérée par cet objet.

Merci

Manque un s

.clearcontents

.clear marche aussi (plus efficace mais plus lent)

Merci Kit,

ton code est propre. Il marche à merveille. Merci.

Merci à tous

Bonjour jeunixe,

Attention à cette différence importante (par exemple pour une cellule) :

.ClearContents efface le contenu d'une cellule et seulement ça (idem appui sur la touche suppression)

.Clear efface tout : contenu, et tous les attributs de cellule qu'on peut mettre via la fenêtre

« Format de cellule », onglets Nombre, Alignement, Police, Bordure, Remplissage, Protection ;

commande équivalente : onglet Accueil, groupe Édition, Effacer, Effacer tout.

C'est cette différence qui fait que .Clear est plus lent que .ClearContents !

Ce qui précède vaut bien sûr pour une plage de cellules,

et aussi pour toutes les cellules d'une feuille entière.

Cordialement