EFFACER CONTENU D'UNE FEUILLE

[FRED]

Bonsoir,

Pourriez vous me donner un truc pour effacer le contenu d'une feuille par le biais d'une macro bouton;

J'ai déjà crée le bouton (ce qu'il y a de plus simple) mais pour la macro je sèche.

Merci et bon Week end

 

[Pedrolito00]

bonjour
Savez vous comment appliquer ce code :

Sub ClearOnlyContains()
Cells.ClearContents
End Sub

mais pour une plage définie et une série d'onglets définis?

Merci par avance pour votre aide

 

[DoubleZero]

Bonjour à toutes et à tous,

...pour une plage définie et une série d'onglets définis?..

Si la "plage définie" est la même pour la "série d'onglets"...

Option Explicit
Sub Effacer()
    Dim o As Object
    For Each o In Worksheets
        ' noms d'onglets non concernés lister
        If o.Name <> "a" And o.Name <> "b" And o.Name <> "c" Then
            ' plage de cellules préciser
            o.Range("a1:d26").ClearContents
        End If
    Next
End Sub

A bientôt