Repérer cellules protégées

Slt Philippe, et le forum (un peu malade!!)

Pour tester toute chaque cellule d'une selection tu peux utiliser une boucle ce qui te donne :

Sub TestVerouillage()
Dim CELLULE As Range
'Déclaration de la variable qui va passer sur chaque cellule

For Each CELLULE In Selection
'Boucle sur ta selection
If CELLULE.Locked = False Then CELLULE = "xxx"
'Test Verouillage
Next CELLULE
End Sub

Tu verras des xxx arriver dans toutes les cellules non vérouillées

@ bientôt
Valérie

C'est exactement ce qu'il me faut, j'avais essayé d'écrire quelque chose qui ressemblait à ce que tu as mis mais je m'étais trompé dans la syntaxe.

Je te remercie

Philippe