Executer code sur cellule protègé

[Startus]

Bonsoir à tous,

Dans une feuille, je souhaiterai vider le contenu de toutes les cellules non protègés...

J'ai essayé ceci, mais sans succès ?

Sub Test()
Dim c As Range
For Each c In Range('Données')
If c = xlUnlockedCells Then
c.ClearContents
End If
Next c
End Sub

Merci, pour votre aide

 

[Davidc57]

Bonjour Startus et les autres,

Remplace ta ligne 'If ... Then' par celle ci :

If c.Locked = False Then

A+
David

 

[Startus]

Salut David,

Réponse un peu tardive, mais déplacement professionnel pas prévue...

C'est tout bon , Nickel

Merci...