Protéger une ligne avec condition

[alcalzone]

Bonjour à tous,

Est-il possible de protéger des lignes seulement si dans la colonne B la date indiquée tombe un week end ou un jour férié.
Il faudrai aussi qu'une mise à jour se fasse au changement d'année en B10

Je vous soumets un morceau du planning pour essai
Merci de votre aide

 

[ROGER2327]

Re : Protéger une ligne avec condition

Bonjour alcalzone

Pour les samedis et les dimanches, essayez :

[COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range
   If Target.Cells(1, 1).Address = "$B$10" Then
      For Each oCel In Range("C11:C20").Cells
         Rows(oCel.Row).Locked = (Weekday(oCel.Value2, vbMonday) > 5)
      Next oCel
   End If
End Sub[/COLOR]

Pour les jours fériés, je ne vois pas trop... Il faudra probablement en donner la liste quelque part dans votre classeur.​

ROGER2327
#1889

 

[alcalzone]

Re : Protéger une ligne avec condition

Bonjour Roger2723,

Merci pour votre réponse qui fonctionne à merveille.