Anniverssaire

Bonjour à tous.

Je souhaite faire une mise en forme conditionnelle sur une ligne entière qui contient en autre une date de naissance. Je souhaite colorer cette ligne pendant le mois en cours par rapport à AUJOURDHUI() du 01 à la fin du mois avec peut être la fonction MOIS dans la règle de mise en forme conditionnelle.

Merci de votre aide

Cordialement Mr Leblan

Bonsoir le forum,

Mois en colonne A :

MFC : =MOIS($A1)=MOIS(AUJOURDHUI())

S'applique à : =$A:$G

Bien qu'avec deux ss à anniversaire placés par erreur dans le titre, je suis content de votre aide je vais essayer ça dans la mise en forme conditionnelle.

Merci à vous Cordialement Mr Leblan

Bonjour,

Comme je vous l'ai précisé, aucune mise en forme conditionnelle, ne peut convenir pour le fichier que je connais.

En tout cas pas pour la feuille Liste.

Si vous tenez absolument à cet effet sur cette feuille modifier les macros TriD et TriS dans Module1

Sub TriD()
   Range("BDL").Sort Key1:=Range("C1"), Key2:=Range("E1"), Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
   SubstMFC '<-Ligne à rajouter
End Sub

Sub TriS(i)
   Range("BDL").Sort Key1:=Cells(1, i), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
   SubstMFC '<-Ligne à rajouter
End Sub

Et rajoutez y cette macro

Sub SubstMFC() 'Mise en forme conditionnelle à chaque tri
Dim i, iLR, YOK
iLR = Range("BDL").Rows.Count
For i = 2 To iLR
   YOK = Cells(i, 15) = Month(Date)
   Range(Cells(i, 1), Cells(i, 15)).Interior.ColorIndex = IIf(YOK, 3, xlNone)
Next
End Sub

Cordialement.

Bonjour et un grand merci pour votre aide.

Cordialement Mr Leblan