select les cellules dévérouillées

Dans un module standard, tu copies ce qui suit :
'-------------------
Function IsLock(rg As Range) As Boolean
If rg.Locked = False Then IsLock = True
End Function
'-------------------

En enlevant la protection de ta feuille, tu définis une mise
en forme conditionnelle en utilisant la fonction.
Formule = IsLock(A1)

Tu peux par la suite, protéger ta feuille....

Il ne te reste plus qu'à prendre en note, les plages que tu désires.

Je ne connais pas de commande qui puisse sélectionner toute un ensemble
de cellule à partir de la propriété "Locked" des cellules...évidemment il
y a toujours la boucle si ta plage est restreinte.




"boblebob" <nospam-00-boblebob@voila.fr> a écrit dans le message de news:
uQNqlNk4GHA.1492@TK2MSFTNGP05.phx.gbl...
bjr,
j'ai dévérouillé certaines cellules et comme je ne sais pas où elles sont je
voudrai une macro qui ferait la sélection de cellules dévérouillées.
voici ce que j'ai qui ne marche pas
Sub Macro1()
'
For Each C In Range("A1:I1000")

If C.Locked = False Then
C.Select
End If


Next C
End Sub


avez-vous mieux svp ?
merci
a+

Bonjour.
Essaie :
Sub Macro()
Dim Premier As Boolean
Premier = True
For Each c In Range("A1:I1000")
If c.Locked = False Then
If Premier = True Then
c.Select
Premier = False
Else
Union(c, Selection).Select
End If
End If
Next c
End Sub
Cordialement.
Daniel
"boblebob" <nospam-00-boblebob@voila.fr> a écrit dans le message de news:
uQNqlNk4GHA.1492@TK2MSFTNGP05.phx.gbl...

bjr,
j'ai dévérouillé certaines cellules et comme je ne sais pas où elles sont
je voudrai une macro qui ferait la sélection de cellules dévérouillées.
voici ce que j'ai qui ne marche pas
Sub Macro1()
'
For Each C In Range("A1:I1000")

If C.Locked = False Then
C.Select
End If


Next C
End Sub


avez-vous mieux svp ?
merci
a+