raz document

[julie999]

bonjour
je cherche un code vba pour selectionnées toutes les cellules deverouillées d'une feuille et les effacées
en effet au lieu d'avoir un code pour selectionner chaque cellule puis les effacer une a une je suis persuadée qu'il y a un code pour ca mais je ne le trouve pas
quelq'un aurait une idée
merci julie
le reste des cellules est proteger car elle contiennent des formules

 

[Compte Supprimé 979]

Re : raz document

Bonjour Julie999

Tu peux bien être "persuadée" 🙄 (c'est bien un truc de fille ...)

Mais cela n'existe pas, il faut parcourir toutes les cellules pour le savoir

Exemple, pour une plage de cellules allant de A1 à E10

Sub test()
  Dim C As Range, X As String  For Each C In Range("A1:E10")
    If C.Locked = False Then
      X = X & C.Address(0, 0) & ","
    End If
  Next
  If X <> "" Then
    X = Left(X, Len(X) - 1)
    Range(X).Select
  End If
End Sub

A+

 

[MJ13]

Re : raz document

Bonjour Julie, Bruno

Le plus simple serait de donner un nom à ta plage. Ainsi, tu pourras effacer la plage avec une ligne de code.

Ex:

Range("MaPlage").clear