Microsoft 365 Demande d'aide pour MFC sur cellules contenant des dates

JHA à dit:

Bonjour à tous,

Peut-être en controlant si la date est dans la plage nommée "Feries"

VB:

=ESTNUM(EQUIV($B5;Feries;0))

JHA

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

La formule est assez facile à comprendre.
Tu as une plage nommée "Feries" qui prend en compte la colonne "date" du tableau "_tb_Fériés".
Avec la fonction equiv(), on recherche l'emplacement de cette date dans la plage nommée. Si cette date est connue, la fonction retourne une position dans la liste (1,2,3,4,etc..), dans le cas contraire, la fonction retourne une erreur(#N/A).
La fonction estnum() retourne "vrai" ou "faux" suivant le résultat de la fonction equiv(), si la date est trouvée, ce sera "vrai" si la fonction equiv() retourne une erreur, ce sera "faux".



JHA

Cliquez pour agrandir...

job75 à dit:

Bonjour LAETI-TOINOU, JHA,

Les MFC c'est bien mais quand il y en a trop comme ici ce n'est vraiment pas l'idéal.

Voyez le fichier joint et ces macros dans le code de la 1ère feuille :

VB:

Private Sub Worksheet_Activate()
Worksheet_Change [AE1] 'lance la macro
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [AE1]) Is Nothing Then Exit Sub
Dim ferie As Range, vacance, ub%, r As Range, i%
Set ferie = [_tb_Fériés[Date]]
vacance = [_tb_ZB].Resize(, 3) 'matrice, plus rapide
ub = UBound(vacance)
Set r = [A5:AC35,A50:AC80] 'plages adaptables
Application.ScreenUpdating = False
r.Interior.ColorIndex = xlNone 'RAZ
For Each r In r
    If IsDate(r) Then
        With r(1, 0).Resize(, 4).Interior
            If Weekday(r, 2) > 5 Then .Color = RGB(217, 225, 242) 'bleu clair
            For i = 1 To ub
                If r >= vacance(i, 2) And r <= vacance(i, 3) Then .Color = RGB(153, 255, 153): Exit For 'vert clair
            Next i
            If IsNumeric(Application.Match(CLng(r), ferie, 0)) Then .Color = RGB(248, 203, 173) 'rose
        End With
    End If
Next r
End Sub

Private Sub CommandButton1_Click() 'bouton RAZ
If MsgBox("Etes-vous sûr de vouloir effacer les libellés ?", vbQuestion + vbYesNo, "Effacer") = 7 Then Exit Sub
On Error Resume Next 'si aucune SpecialCell
With [A5:AC35,A50:AC80] 'plages adaptables
    .SpecialCells(xlCellTypeConstants) = ""
    .SpecialCells(xlCellTypeBlanks).Font.Color = RGB(48, 84, 150)
End With
End Sub

La Worksheet_Change se lance quand on modifie l'année en AE1 ou qu'on active la feuille.

Le bouton RAZ efface tous les libellés.

Il n'y a plus de MFC dans la feuille.

A+

Cliquez pour agrandir...

LAETI-TOINOU à dit:

J'aimerais, en effet, que les vacances scolaires ne soient pas aussi "voyantes", mais apparaissent sur le côté sur les colonnes D / I / N / S / X et AC.

Cliquez pour agrandir...

    If IsDate(r) Then
        With r(1, 0).Resize(, 4).Interior
            If Weekday(r, 2) > 5 Then .Color = RGB(217, 225, 242) 'bleu clair
            If IsNumeric(Application.Match(CLng(r), ferie, 0)) Then .Color = RGB(248, 203, 173) 'rose
        End With
        For i = 1 To ub
            If r >= vacance(i, 2) And r <= vacance(i, 3) Then r(1, 3).Interior.Color = vbGreen: Exit For 'vert
        Next i
    End If

• une formule unique pour toutes les dates
• 4 MFC pour toute la feuille, qui gèrent les jours ordinaires (bordures), les jours fériés (texte en rouge), les week-ends (fond gris-bleu) et les vacances (barre verticale bleue).

job75 à dit:

Pas de problème, voyez ce fichier (2) modifié à ce niveau :

VB:

    If IsDate(r) Then
        With r(1, 0).Resize(, 4).Interior
            If Weekday(r, 2) > 5 Then .Color = RGB(217, 225, 242) 'bleu clair
            If IsNumeric(Application.Match(CLng(r), ferie, 0)) Then .Color = RGB(248, 203, 173) 'rose
        End With
        For i = 1 To ub
            If r >= vacance(i, 2) And r <= vacance(i, 3) Then r(1, 3).Interior.Color = vbGreen: Exit For 'vert
        Next i
    End If

Essayez de bien comprendre ce code, c'est à votre portée.

Cliquez pour agrandir...

AtTheOne à dit:

Bonsoir à toutes & à tous, bonjsoirr @LAETI-TOINOU &@Job75

Content de te voir sur le site Laëtitia.

Je suis convaincu que la solution de @job75 avec macro est la meilleure (ton calendrier ne change qu'une fois par an, le changement provoque la mise à jour, pas la peine d'avoir des MFC).

Mais pour le fun, j'aime bien me gratter la cervelle, voici une solution sans macro, avec :

• une formule unique pour toutes les dates
• 4 MFC pour toute la feuille, qui gèrent les jours ordinaires (bordures), les jours fériés (texte en rouge), les week-ends (fond gris-bleu) et les vacances (barre verticale bleue).

Je suis dispo pour fournir des explications ...
Amicalement
Alain

Cliquez pour agrandir...

LAETI-TOINOU à dit:

J'ai voulu remplacer le Vert des vacances scolaires par un bleu RGB 62, 142, 238, mais je n'y arrive pas.

Cliquez pour agrandir...

job75 à dit:

Bonjour LAETI-TOINOU, AtTheOne,

Allons allons, il suffit de remplacer vbGreen par RGB(62, 142, 238) !!!

Pour les vacances vert prairie convient bien mais bleu de la mer va bien aussi

A+

Cliquez pour agrandir...

AtTheOne à dit:

Bonne nuit tout le monde,
Laëtitia, j'ai fait un petit Gif animé pour te montrer comment accéder au code de Job75 qui se situe dans le code de la feuille 1 (cf le post #5 de job75)
Tu fais ALT+F11 et ...
Regarde la pièce jointe 1134539

Bon courage
Alain

Cliquez pour agrandir...