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

[nancy]

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]

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 :

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