Code pour vider les cellules dans plusieurs feuilles

Bonjour,

Voici un bout de code que je n'arrive pas à utiliser...

For i = 1 To Sheets.Count

If Sheets(i).Name <> "période 1" Then

Sheets(i).Range("E7:E65535").ClearContents

End If

Ce que je veux, c'est que les cellules de E7 à E65535 soit vidée de leur contenu, dans la feuille nommée "période 1". Je voudrais que le même boulot soit fait pour la feuille "période 2", "période 3", "période 4" et "période 5".

Pourriez-vous m'aider?

GReg

Bonsoir Greg,

Teste ce qui suit mais dans une copie de ton classeur :

Sub Nettoyer()

    Dim Fe As Worksheet

    For Each Fe In ThisWorkbook

        Select Case Fe.Name

         Case "période 1", "période 2", "période 3", "période 4", "période 5"
            Fe.[E7:E65535].ClearContents

        End Select

    Next Fe

End If

End Sub

Hervé.

Bonsoir et merci Hervé pour ta réponse rapide.

Le code que je cherche viendra à l'intérieur d'un autre... c'est bien un bout de code, non une macro à part entière.

Je l'ai testé à elle seule, et ça ne fonctionne pas : "propriété ou méthode non gérée".

Greg

-- Jeu Jan 27, 2011 8:46 pm --

A vrai dire, le bout de code que j'ai envoyé au départ fonctionnait, mais doit certainement être un peu retouché.

Bonsoir,

efface E7:E.... jusqu'en bas

sur toutes les feuilles sauf "période 1"

Sub ViderFeuilles()
Dim Lg%, i%
    For i = 1 To Worksheets.Count
        With Worksheets(i)
            Lg = .Range("e65536").End(xlUp).Row
            If .Name <> "période 1" Then
                .Range("e7:e" & Lg).ClearContents
            End If
        End With
    Next
End Sub

Amicalement

Claude

Génial! Merci Daniel!

-- Jeu Jan 27, 2011 9:00 pm --

Oh! pardon!!! Merci CLAUDE...

Prends le bon réflexe

Oh! pardon!!! Merci CLAUDE...