Protéger une ligne avec condition

alcalzone · 17 Octobre 2009

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 · 17 Octobre 2009

Re : Protéger une ligne avec condition

Bonjour alcalzone

Pour les samedis et les dimanches, essayez :

Code:

[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 · 18 Octobre 2009

Re : Protéger une ligne avec condition

Bonjour Roger2723,

Merci pour votre réponse qui fonctionne à merveille.

Protéger une ligne avec condition

alcalzone

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

alcalzone

XLDnaute Occasionnel

Discussions similaires

Protéger une ligne avec condition

alcalzone

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

alcalzone

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency