salut
en fouinant dans les forums, j'aitrouvé ceci, qui fonctionne sauf pour le le fond des cellules du dessous.je ne trouve pas le moyen d'additionner les cellules qui ont un fond différent de blanc
'Mise en forme des séries de dates en mettant les samedis,
'dimanches fériés en gris et gris foncé
Sub MiseEnFormeDates()
Application.ScreenUpdating = False
MFC_WEFerie Range('g6:ak6')
End Sub
Sub MFC_WEFerie(plage As Range)
'macro qui teste si la cellule mise en forme contient
'ou non un jour férié.
'En deuxième condition, mise en évidence des samedis et dimanches.
plage.Select
Adr$ = Selection.Range('A1').Address(0, 0)
Paques$ = _
'FRANC(DATE(ANNEE(' & Adr & ');4;JOUR(MINUTE(ANNEE(' & _
Adr & ')/38)/2+55))/7
*7-6'
With Selection
.FormatConditions.Delete
'recherche des jours fériés belge
.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=OU(' & _
Adr & '=DATE(ANNEE(' & Adr & ');1;1);' & _
Adr & '=' & Paques & '+1;' & _
Adr & '=DATE(ANNEE(' & Adr & ');5;1);' & _
Adr & '=' & Paques & '+39;' & _
Adr & '=' & Paques & '+50;' & _
Adr & '=DATE(ANNEE(' & Adr & ');7;21);' & _
Adr & '=DATE(ANNEE(' & Adr & ');8;15);' & _
Adr & '=DATE(ANNEE(' & Adr & ');11;1);' & _
Adr & '=DATE(ANNEE(' & Adr & ');11;11);' & _
Adr & '=DATE(ANNEE(' & Adr & ');12;25)' & _
')'
.FormatConditions(1).Interior.ColorIndex = 16
.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=ET(' & Adr & '<>0;JOURSEM(' & Adr & ';2)>5)'
.FormatConditions(2).Interior.ColorIndex = 15
End With
plage.Range('A1').Select
End Sub 'fs
merci d'avance