Empêcher saisie dans cellule fériés ou semaine

Bonsoir à tous

J'ai cherché sur le forum mais je n'ai pas trouvé mon bonheur

Je souhaite trouver une solution me permettant de bloquer la saisie dans un calendrier ou les cellules sont colorées à cause de samedi dimanche ou fériés.

Les cellules n'étant pas figées et changeant en fonction du mois du calendrier, je ne sais comment traiter ça.

Merci pour votre aide ou piste. Je vous joins le fichier exemple.

Cordialement

12cellules.xlsm (26.65 Ko)

Bonjour,
Une procédure évènementielle.
Cdlt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dt, n, nn
Const R As String = "C3:W14"
    If Not Intersect(Target, Me.Range(R)) Is Nothing And Target.Count = 1 Then
        dt = Me.Cells(1, Target.Column).Value2
        n = Application.Match(dt, Range("feries"), 0)
        nn = VBA.Weekday(dt, vbMonday)
        If Not IsError(n) Or nn > 5 Then Target.Offset(, -1).Select
    End If
End Sub

Wouahou !!! C'est extra quand on maitrise le vba et tellement plus simple Merci infiniment JC

Dès que j'aurai du temps, je me pencherai sur les cours VBA du site

Cordialement

Rechercher des sujets similaires à "empecher saisie feries semaine"