Colorier cellules en fonction date SAM DIM

[manuBX]

Bonjour
je coince sur une macro si on peut m aider MERCI
Il s agit de colorier les lignes de D à AE en gris (couleur 15) en fonction de la date dans cellule colonne B si samedi et dimanche
Dans colonne B =DATE($C$1;B4;1) et SI(MOIS(B8+1)=B$4;B8+1;"") et en vert par mise en forme conditionnel Pris sur le net à JB

j y arrive en "Mise en forme Conditionnel "mais par la suite on ne peut plus changer la couleur d ou mon besoin en macro

Merci d avance
A+

 

[phlaurent55]

Re : Colorier cellules en fonction date SAM DIM

Bonjour manu,

pourquoi pas continuer avec les MFC ?
Ton fichier en retour,tu peux changer la date en C1, les couleurs suivront

à+
Philippe

 

[manuBX]

Re : Colorier cellules en fonction date SAM DIM

Bonjour phlaurent55

oui en effet par mise en forme j y étais arrivé mais si je désire écraser la couleur je ne peux pas
je suis obligé de le faire en copier coller
par macro une fois qu elle s est déroulé je peux changer la couleur

A+

 

[manuBX]

Re : Colorier cellules en fonction date SAM DIM

Bonsoir

j ai réaliser ( bricoler )cette macro
elle fonctionne mais si on peut l améliorer je suis preneur (lenteur de realisation )
il s agit de colorier en gris D a AE en suivant la date samedi et dimanche

Sub coloriage()

For Each c In Range( _
"B6:B36,B43:B70,B77:B107,B115:B144,B151:B181,B188:B217,B224:B254,B261:B291,B297:B326,B333:B363,B370:B399,B406:B436" _
)'selection des cellules
Range("D" & c.Row & ":ae" & c.Row).Select
Selection.Interior.Pattern = xlNone 'effacer les couleurs de D a AE

If Weekday(c.Value, 2) > 5 Then Range("D" & c.Row & ":ae" & c.Row).Interior.ColorIndex = 15' si date weekend met en gris
Next c
Range("D6").Select

End Sub

Merci d avance