cellulles deverouilles efface donnée

nico131 · 16 Mai 2017

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 · 17 Mai 2017

Bonjour, nico131, le Forum,

Comme ceci ?

VB:

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 · 17 Mai 2017

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 · 17 Mai 2017

Re-bonjour,

nico131 à dit:
... 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 🙂

cellulles deverouilles efface donnée

nico131

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

nico131

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

Discussions similaires

cellulles deverouilles efface donnée

nico131

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

nico131

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency