Microsoft 365 Les weeks-ends en couleur sur EXCEL

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 !

Tibewan

XLDnaute Nouveau
Bonjour,

Je suis à la recherche d’aide pour mon calendrier 2026. Dans la cellule C3, lorsque je change l’année en 2027, cela se met automatiquement à jour pour l’année 2027. Cependant, j’aimerais savoir comment faire pour qu’une couleur apparaisse automatiquement lorsque c’est un samedi ou un dimanche.

Étant débutant, je ne suis pas sûr si cela est possible avec la “mise en forme conditionnelle”. Si quelqu’un peut m’expliquer comment procéder ou me donner des conseils, ce serait vraiment apprécié !

Merci d’avance pour votre aide !

Voici un exemple ci-dessous :

1764346141162.png
 

Pièces jointes

Bonsoir.

VB:
Sub MFC_ToutesMatrices()

    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim Plages As Variant
    Dim i As Long
    Dim formule As String
    Dim fcIndex As Long
    
    ' Liste des matrices et première colonne à tester
    Plages = Array( _
        Array("$A$3:$C$33", "A"), _
        Array("$E$3:$G$33", "E"), _
        Array("$I$3:$K$33", "I"), _
        Array("$M$3:$O$33", "M"), _
        Array("$Q$3:$S$33", "Q"), _
        Array("$U$3:$X$33", "U"), _
        Array("$Y$3:$AA$33", "Y"), _
        Array("$AC$3:$AD$33", "AC"), _
        Array("$AG$3:$AI$33", "AG"), _
        Array("$AK$3:$AM$33", "AK"), _
        Array("$AO$3:$AQ$33", "AO"), _
        Array("$AS$3:$AU$33", "AS") _
    )
    
    ' Supprime toutes les MFC existantes
    ws.Cells.FormatConditions.Delete
    
    ' Boucle sur toutes les matrices
    For i = LBound(Plages) To UBound(Plages)
        
        ' Construire la formule
            formule = "=OU($" & Plages(i)(1) & "3=""SA"";$" & Plages(i)(1) & "3=""DI"")"
        
        ' Sélectionner la plage
            'ws.Range(Plages(i)(0)).Select
        
        ' Ajouter la MFC
            ws.Range(Plages(i)(0)).FormatConditions.Add _
                     Type:=xlExpression, _
                     Formula1:=formule
                     'Pour Info (formule) --->>> Formula1:="=OU($A3=""SA"";$A3=""DI"")"
        
            fcIndex = ws.Range(Plages(i)(0)).FormatConditions.Count
        
        ' Mettre en première priorité
            ws.Range(Plages(i)(0)).FormatConditions(fcIndex).SetFirstPriority
        
        ' Police : gras
            With ws.Range(Plages(i)(0)).FormatConditions(fcIndex).Font
                .Bold = True
            End With
        
        ' Remplissage vert très clair
            With ws.Range(Plages(i)(0)).FormatConditions(fcIndex).Interior
                .PatternColorIndex = xlAutomatic
                .Color = RGB(198, 239, 206)
            End With
        
        ' StopIfTrue = False
            ws.Range(Plages(i)(0)).FormatConditions(fcIndex).StopIfTrue = False
    Next i
    
    ' Replacer le curseur sur A1
        ws.Range("A1").Select
    
        MsgBox "MFC appliquée sur toutes les matrices !", vbInformation
End Sub
 
Dernière édition:
Je reviens vers vous encore pour une dernière aide, est-il possible que le titre : "calendrier 2025 " se change automatiquement en année suivante en fonctionne de la case C3 ?
Je n'osais le dire, mais ce sont en fait chaque "premier du mois" qu'il faudrait modifier pour que ton calendrier s'adapte automatiquement en fonction de l'année qui serait indiquée dans une seule et unique cellule.

Perso, je ne suis pas persuadé que le look du titre soit très important, donc je mettrai simplement le titre dans une cellule qui contiendrait l'année, et le "problème" serait résolu. 😉


En pièce jointe proposition de modification, avec saisie de l'année en B1 et gestion du 29 février en fonction de l'année.



ps : sais-tu me dire pourquoi je vois des traits verticaux sur la feuille, alors qu'ils semblent ne pas exister ?
 

Pièces jointes

Dernière édition:
Bonjour TooFatBoy,

Merci beaucoup pour ton intervention, concernant ta question je ne peux pas te répondre car je ne sais pas. Par contre je ne sais pas comment tu as fait mais est ce que tu peux le refaire sur le modèle que je te joints, tout en gardant les couleurs qu'il y a dessus.

En te remerciant,
 

Pièces jointes

concernant ta question je ne peux pas te répondre car je ne sais pas.
OK. Mais vois-tu également ces lignes verticales sur ta feuille ?


Par contre je ne sais pas comment tu as fait mais est ce que tu peux le refaire sur le modèle que je te joints, tout en gardant les couleurs qu'il y a dessus.
J'ai supprimé la zone de texte, j'ai saisi l'année en A1, j'ai centrée sur plusieurs colonne la plage A1:AU1, et j'ai utilisé un format personnalisé en A1.
J'ai mis une formule le premier jour de chaque mois (C3, G3, K3, etc.) pour en calculer la date en fonction de l'année saisie en A1.
J'ai mis des formules en E31 et G31 pour gérer automatiquement le 29 février, selon si l'année est bissextile ou non.
Et c'est tout. 😉
[edit] Je donne ici les adresses des cellules par rapport à ton dernier classeur et non par rapport à celui que j'ai posté car j'ai peut-être bien aussi inséré une colonne à gauche du tableau pour faire plus joli. [/edit]

Avec ça tu devrais arriver à faire la modification toi-même.
Mais si tu n'y arrives pas, dis-le-moi.
 
Dernière édition:
J'ai modifié le classeur de #6, mais il y a des choses que je n'arrive pas à comprendre...
J'ai colorié les jours en gris po voir ce que ça donnait, mais tu peux bin évidemment supprimé ça.


Pourquoi la MFC ne s'applique-t-elle pas le 29 février ?
Pourquoi voit-on des trais verticaux ? (voir capture d'écran)

Calendier.png
 

Pièces jointes

Pourquoi la MFC ne s'applique-t-elle pas le 29 février ?
Sans doute parce qu'il n'y a pas de 29 février en 2026 - lol
Pourquoi voit-on des trais verticaux ? (voir capture d'écran)
Les traits verticaux sont ceux du quadrillage des cellules, non ?
Par contre, ils devraient aussi apparaître sur la colonne D et ce n'est pas le cas, bizarre !
Et si je n'ai pas tout compris aux questions que tu as posées, ne t'imagine pas que je me moque de toi mais essaye de faire comprendre mieux au vieux que je suis ce que tu attends de lui 😉
 
- 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
5
Affichages
4 K
Réponses
22
Affichages
3 K
Z
Réponses
19
Affichages
3 K
J
Retour