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 🙂