Mise en forme conditionnelle weekend et jours fériés

  • Initiateur de la discussion Initiateur de la discussion DANIEL360
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DANIEL360

XLDnaute Nouveau
Bonjour à tous,
Dans mon fichier, feuilles 3 et 4, je souhaiterais mettre les lignes horizontales correspondant au samedi en une couleur, le dimanche en une autre couleur et les jours fériés en une troisième couleur.
J'ai déjà fais de nombreux essais mais sans résultats.

Quelqu'un pourrait-il m'aider ?
D'avance un tout grand merci.
 

Pièces jointes

Re : Mise en forme conditionnelle weekend et jours fériés

Bonjour chris,

j'avais développer se bout de code pour créer un calendrier avec les week end en couleur il y a un moment en l'adaptant du doit pouvoir arriver a quelque chose.

Code:
Sub calendrier()
Dim nbf As Integer 'déclare un entier
Dim f As Integer
Dim m As Integer

nbf = Sheets.Count 'compte le nombre de feuille

For f = 1 To 12 - nbf
    Sheets.Add After:=Sheets(Sheets.Count) 'ajoute une feuille après la dernière
Next

For m = 1 To 12
    Sheets(m).Name = Format(DateSerial(Year(Date), m, 1), "mmmm") 'nomme la feuille de janvier à décembre


    For j = 1 To 31
        If Month(DateSerial(Year(Date), m, j)) <> m Then 'teste si le jour fait partie du mois
                Exit For
            Else
            Sheets(m).Cells(j, 1) = DateSerial(Year(Date), m, j) 'ajoute le nombre de jour par mois
            If Weekday(DateSerial(Year(Date), m, j), vbMonday) > 5 Then 'mais en couleur sr les week end
                Sheets(m).Cells(j, 1).Interior.Color = vbGreen 'week end vert
            Else
                Sheets(m).Cells(j, 1).Interior.Color = xlNone 'jour ouvrée pas de couleur
            End If
        End If
    Next
Next



End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
61
Réponses
3
Affichages
220
Réponses
6
Affichages
82
Réponses
8
Affichages
89
Retour