addition de cellules

[Manu]

salut,
je suis novice, et j'aimerais trouver le moyen de modifier le fond de certaine partie de colonnes en fonction de la date (week-end et jours feriés), J'ai déjà trouvé le moyen de modifier le fond de la celulle en fonction de la date mais les cellules située en dessous reste blanche.
Ensuite les additionner (le nombre de jours de week-end et de jours férié) dans une autre cellule.
je vous remercie d'avance
Manu

 

[JeanMarie]

Bonsoir

Dans la boîte de dialogue de la Mise en Forme Conditionnelle, Change le terme 'la valeur de la cellule est' par 'la formule est', dans le champ tu tapes une formule, par exemple
=JOURSEM(AUJOURDHUI();2)>5
Cela changera le format quand le résultat de la comparaison sera VRAI.

Pour appliquer une MFC à une plage de cellules, sélectionne la plage, la cellule de départ est la cellule active. Il faudra utiliser cette référence dans la formule, par exemple, si je sélectionne la plage B4:AF34, B4 étant la cellule active, la formule sera
=JOURSEM(B$4;2)>5
Les cellules prendront la couleur de l'entête de colonne.

@+Jean-Marie

 

[manu]

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