Effacer toutes les cellules déverrouiller d'une plage

bonjour à tous svp comment faire pour supprimer intégralement les cellules déverrouiller d'une plage quelconque sélection. Je ne sais même pas si c'est réalisable ou pas . Dans tous les cas je sais que si c'est réalisable j'aurai bientôt la formule. Comme ça peut être long si met ma plage en question , je vais adapter le code à ma plage s'il en existe .

cordialement

Si tu veux effacer la plage A5:D5 de la feuille "Feuil1" tu mets dans une macro :

    Worksheets("Feuil1").Range("A1:D5").Clear

Tu peux aussi vider de façon ciblée ta plage avec les méthodes suivantes (à la place de Clear) :

.ClearContents
.ClearComments
.ClearFormats
.ClearNotes
.ClearOutline

Bonjour,

Une proposition à adapter.

Cdlt.

Public Sub CleanUnlockedCells()
Dim WorkRng As Range, OutRng As Range, Cell As Range
    On Error Resume Next
    Set WorkRng = Application.ActiveSheet.UsedRange
    Application.ScreenUpdating = False
    For Each Cell In WorkRng
        If Cell.Locked = False Then
            If OutRng.Count = 0 Then
                Set OutRng = Cell
            Else
                Set OutRng = Union(OutRng, Cell)
            End If
        End If
    Next
    If OutRng.Count > 0 Then OutRng.ClearContents
End Sub

https://forum.excel-pratique.com/membre/18632

merci bien j'adapte et je te reviens