Bonjour j'aimerais pouvoir modifier le format dans une feuille protejer mais sur un range defini j'ai essayer un truc mais sa change rien ^^'
Sub Selection()
Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Select
.Selection.Locked = False
WS.Protect PW
Next
End Sub
Je suis prenneur de conseil merci
Alors un conseil : évites les Select inutiles !
Sub Selection()
Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Locked = False
WS.Protect PW
Next
End Sub
Ceci dit, il n'est pas possible de limiter l'autorisation de modification du format à une plage de cellules, soit c'est toute la feuille (voir la réponse de I20100) soit c'est rien.