Discussion :

[tyndare36]

Bonjour à tous et à toutes,

Je souhaite avec un code VBA sous Excel 2010 faire la chose suivante :
Sur la feuille1 effacer les valeurs des cellules NON VERROUILLÉES qui sont dans la plage « A2 : AC2000 »
Je dois conserver dans cette feuille la ligne des titres « A1 : AC1 » et toutes les formules qui sont dans les cellules VERROUILLÉES de la plage « A2 : AC2000 »

Merci à vous

[defluc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim cel As Range
For Each cel In Range("A2 : AC2000 ")
    If Not cel.Locked Then cel.ClearContents
Next cel

[tyndare36]

Bonjour defluc,

Merci pour cette aide.
Cel.Locked faisait défaut dans ma base de connaissant du langage VBA. Cette base est assez réduite.

Merci encore