cellulles deverouilles efface donnée

[nico131]

Bonjour,
je souhaite verouille des cellules et creer une macro pour pouvoir efface les données des cellules deverouilles.
Est ce que c'est possible ?
J'attends vos reponse avec impatiente

cdlt

 

[DoubleZero]

Bonjour, nico131, le Forum,

Comme ceci ?

Option Explicit
Sub Protéger()
    Cells.Locked = False
    Range("a1:d7").Locked = True    ' à adapter
    ActiveSheet.Protect "toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Effacer()
    On Error Resume Next
    Cells = ""
End Sub

A bientôt

 

[nico131]

Ok merci la ça efface les cellules verrouillés si j'ai bien compris.
Comme j'ai plusieurs plage de cellules à verrouillés je voulais passer directement par la feuille et non par une macro.
Sauf si j'ai rien compris

De plus si j'ai plusieurs place de cellules je dois repeter la ligne range de votre macro

Cdlt

 

[DoubleZero]

Re-bonjour,

... si j'ai plusieurs place de cellules je dois repeter la ligne range de votre macro...

Si j'ai bien compris, n'utiliser que la macro "Effacer".

A bientôt