Microsoft 365 Les weeks-ends en couleur sur EXCEL

[Tibewan]

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 :

 

[JHA]

Bonjour à tous,

Voir la MFC de la colonne A. je te laisse continuer

=JOURSEM(C3;2)>5

JHA

 

[Tibewan]

Bonjour à tous,

Voir la MFC de la colonne A. je te laisse continuer

=JOURSEM(C3;2)>5

JHA

Bonjour JHA,

Merci pour ton intervention, j'ai vu qu'il y a seulement sur une seul case et est-il possible de le faire comme sur la photo s'il te plaît ?

 

[riton00]

Bonsoir,

Merci pour ton intervention, j'ai vu qu'il y a seulement sur une seul case et est-il possible de le faire comme sur la photo s'il te plaît ?

Voilà!

Slts

 

[laurent950]

Bonsoir.

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

 

[TooFatBoy]

Bonjour,

Une autre proposition :
- formule : =(MOD(COLONNE();4)<>0)*(DECALER(A3;0;2-MOD(COLONNE()-1;4))<>"")*(JOURSEM(DECALER(A3;0;2-MOD(COLONNE()-1;4));2)>5)
- s'applique à : =$A$3:$AU$33
- format : fond vert

 

[JHA]

Bonjour à tous,

Fichier corrigé.
Bonne continuation.

JHA

 

[Tibewan]

Bonjour,

Merci beaucoup pour vos interventions.

Cordialement,