Effacer contenu si feuille existe

Bonjour.

J'ai à effacer le contenu complet d'un classeur. Est-ce qu'il y a une facon d'effacer le contenu complet d'un classeur ?

Si je dois sélectionner chacune des feuilles et faire un cells.clearContents, comment faire pour mettre un if and then pour qu'il effectue le clearContent seulement si la feuille existe.

Merci de votre support

Sub clean()

If WsExist("Observation_fail") Then
Cells.ClearContents

If WsExist("Observation_pass") Then
Cells.ClearContents
End Sub

Bonjour,

J'ai à effacer le contenu complet d'un classeur.
Si je dois sélectionner chacune des feuilles et faire un cells.clearContents, comment faire pour mettre un if and then pour qu'il effectue le clearContent seulement si la feuille existe.

Puisque c'est le classeur complet, vous n'êtes pas obligé de vérifier si la feuille existe ou pas

Avec ce code vous supprimerez tout le contenu des feuilles de votre fichier

Sub test()
Dim i As Byte

For i = 1 To Sheets.Count
    Sheets(i).Cells.ClearContents
Next i
End Sub

Si ok -->

Cordialement

Merci Dan.

Ca fonctionne super bien. Je conserve ca pour d'autres fichiers