Vider les cellules non veroullées

Le
Nito
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #6664711
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" news:%23$
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




JB
Le #6666251
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"
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


Publicité
Poster une réponse
Anonyme