permettre d'effacer toutes les données non vérouillées d'un coup

nancy · 6 Octobre 2011

Bonjour, les feuilles de temps sont sur excel. Plusieurs calculs se font automatiquement et je voudrais les protéger. Mais lorsqu'arrive une nouvelle semaine, j'aimerais pouvoir dire «sélectionner et effacer» toutes les cellules non vérouillées.

Dans le fichier joint, seulement la première feuille de temps est vérouillée.
Merci à l'avance!

tototiti2008 · 6 Octobre 2011

Re : permettre d'effacer toutes les données non vérouillées d'un coup

Bonjour nancy,

Je n'ai pas trouvé de méthode avec SpecialCells (ou alors pas assez cherché), peut-être comme ça :

Code:

Sub Efface_Deverrouillé()
Dim Cellule As Range
    For Each Cellule In ActiveSheet.UsedRange
        If Not Cellule.Locked Then Cellule.ClearContents
    Next Cellule
End Sub

permettre d'effacer toutes les données non vérouillées d'un coup

nancy

XLDnaute Nouveau

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Discussions similaires