Discussion :

[stounouslous]

Bonjour,

sur une feuille aménagée en formulaire de saisie, existe-il une solution autre qu'une boucle EACH FOR sur toutes les cellules pour obtenir la liste des cellules non verrouillées en saisie.

j'ai essayé:

Code :

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

1
2
3
4
 
FOR EACH C in ThisWorkbook.Worksheets("Page 1").EnableSelection
  result = C.value
Next C

mais ça marche pas !

Merci

[fring]

Bonjour,

Essaye ceci :

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim C As Range, result$
For Each C In Sheets("Page 1").Range("A1:AA500") '<-- à adapter
If C.Locked = False Then result = result & " " & C.Address
Next
MsgBox "les cellules déverrouillées sont" & result
End Sub

[stounouslous]

Très sympa.

ça marche.

Mille Merci