Vider les cellules non veroullées

Bonjour,

Ceci convient il ?

Sub vide_feuilles()
'MPFE le 20/05/2008
For i = 1 To Sheets.Count
Sheets(i).Activate
For Each c In Sheets(i).UsedRange
If c.Locked = False Then c.ClearContents
Next c
Next i
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Nito" <Nitottt@supaticol.com> a écrit dans le message de
news:%23$VV8CguIHA.3792@TK2MSFTNGP02.phx.gbl...

Bonjour
J'aimerais savoir si c'est possible de vider dans toutes les feuilles les
cellules qui ne sont pas verouillées a l'enrigistrement
Merci pour l'aide
Vous etes super pour moi
Lucie

Bonjour,

http://boisgontierjacques.free.fr/pages_site/protection.htm#Raz


Sub raz()
ActiveSheet.Unprotect Password:="moi"
For Each c In Cells.SpecialCells(xlCellTypeConstants, 23)
If c.Locked = False Then c.Value = Empty
Next c
ActiveSheet.Protect Password:="moi"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub



JB


On 20 mai, 00:36, "Nito" <Nito...@supaticol.com> wrote:

Bonjour
J'aimerais savoir si c'est possible de vider dans toutes les feuilles les
cellules qui ne sont pas verouillées a l'enrigistrement
Merci pour l'aide
Vous etes super pour moi
Lucie