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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2025

• #2

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

VB:

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

 

Pièces jointes

• Classeur2.xlsm

  18.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 28 Décembre 2025

• #3

Bonsoir berru76, sylvanu,

VB:

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+

 

Vote positif 0 Vote négatif

B

berru76

XLDnaute Occasionnel

• 28 Décembre 2025

• #4

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

 

Dernière édition: 28 Décembre 2025

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Occasionnel

• 29 Décembre 2025

• #5

Hello sylvanu et job75,

vous avez tous les 2 utilisé

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

Cliquez pour agrandir...

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

VB:

Range(C.Address).ClearContents

?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Décembre 2025

• #6

Bonjour Nain porte quoi,

Testez sur une colonne A vide :

VB:

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+

 

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Occasionnel

• 29 Décembre 2025

• #7

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

 

Vote positif 0 Vote négatif