XL 2019 Sur une feuille protégée effacer les cellules déverrouillées par macro

[berru76]

Bonjour
Si cela est possible sur la feuille protégée en cours effacer que les cellules déverrouillées par macro

Dans l'exemple ci-joint code feuille "1"

Merci de votre aide

 

[sylvanu]

Bonjour Berru,
Votre fichier n'a pas de Feuil1, laquelle est ce ?
Pourquoi ne pas faire un PJ simple.
En PJ un essai avec :

Sub EffacCellDévérouillées()
    Dim C As Range
    For Each C In ActiveSheet.UsedRange
        If C.Locked = False Then Range(C.Address) = ""
    Next C
End Sub

 

[job75]

Bonsoir berru76, sylvanu,

Sub EffacCellDévérouillées()
    Dim C As Range
    For Each C In ActiveSheet.UsedRange
        If Not C.Locked Then C = ""
    Next C
End Sub

A+

 

[berru76]

Bonsoir
J'ai testé les deux fonctionnent très bien
Un grand merci

 

[Nain porte quoi]

Hello sylvanu et job75,

vous avez tous les 2 utilisé

Range(C.Address) ="" ou C = ""

Est-ce qu'il y a une différence avec

Range(C.Address).ClearContents

?

 

[job75]

Bonjour Nain porte quoi,

Testez sur une colonne A vide :

Sub test1()
Dim t, c As Range
t = Timer
For Each c In [A1:A50000]
    c = ""
Next
MsgBox Timer - t
End Sub

Sub test2()
Dim t, c As Range
t = Timer
For Each c In [A1:A50000]
    Range(c.Address) = ""
Next
MsgBox Timer - t
End Sub

Sub test3()
Dim t, c As Range
t = Timer
For Each c In [A1:A50000]
    c.ClearContents
Next
MsgBox Timer - t
End Sub

A+

 

[Nain porte quoi]

OK, c'est clair, merci pour la démo.
J'aurais cru que le fait de mettre "" (rien) dans une cellule était différent de la vider avec ClearContents