Fonction clear

[Michel68000]

Bonjour
Je voudrais utiliser la fonction clear sur une feuille protégée, un user remplis certaines cellules non verrouillées de cette feuille et après impression par exemple je voudrais que ces données s'effacent..
Je bute terriblement la dessus et la j'ai besoin de votre aide.Merci à tous.

 

[FROLLINDE]

Re : Fonction clear

Bonsoir Michel,

Bien sur ta feuille doit être protégé avant de lancer la macro ci-dessous..

Sub clearnonlocked()
Dim case_ver As Range
For Each case_ver In ActiveSheet.UsedRange
' Va aller sur chaque cellule remplie de la feuille active.
On Error Resume Next
case_ver.ClearContents
'va effacer le contenu de la cellule..
'mais si elle est verrouilée alors
'il y a erreur et avec le (On error resume Next)
'ça passe à la suivante.
Next case_ver
End Sub