MFC VBA joursem et fèriés

Bonjour à toutes et tous.

Je souhaiterais appliquer une mise en forme conditionnel sur un planning avec une macro, mais je n'arrive pas a l'adapter à mes besoins.

Le planning sera utilisé par des plus novices que mois d’où l’utilité de cette macro car je me suis aperçus que par les formules sont régulièrement effacées.

Résultat souhaité : en colonnes fond couleur 40 pour les weekend et fériés, police couleur rouge pour les fériés.

Voir la possibilité d'adapter cette macro sur un autre planning, peut_être avec un range(b5:af50)

Voir fichier joins.

Merci d'avance et bonne fête national a tout le monde.

Bonjour,

Je souhaiterais appliquer une mise en forme conditionnel sur un planning avec une macro, mais je n'arrive pas a l'adapter à mes besoins.

Le planning sera utilisé par des plus novices que mois d’où l’utilité de cette macro car je me suis aperçus que par les formules sont régulièrement effacées.

Il faut aller la chercher pour la supprimer une MFC, ce n'est pas une formule dans une cellule.

Ce n'est plus être novice, c'est du vice là... Ca tiendrait plus du sabotage.

Je crois que tu cherches à te compliquer la vie pour pas grand chose non ?

eric

"Il faut aller la chercher pour la supprimer une MFC, ce n'est pas une formule dans une cellule."

Le simple fait d'utiliser le pinceaux permet d'effacer la mfc.

"Je crois que tu cherches à te compliquer la vie pour pas grand chose non ?"

Peut-être oui.

Merci quand même d'avoir lu le post.

Bonne journée à vous

Protéger la feuille ne te plait pas ?

eric

avec l'enregistreur de macro sa donne sa :

Sub Macro4()
    Range("B5:AF36").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOIS(B$5)>$A$2"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).StopIfTrue = True
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=OU(JOURSEM(B$5)=7;JOURSEM(B$5)=1;NB.SI(B$5;jours_fériés)>0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399945066682943
    End With

End Sub

Je vais me débrouiller avec.

Merci eriiic