Calendrier avec dimanches rouges et repos colorés

[loeki]

Dans ma pièce jointe, j'essaye de faire un tableau où je ne rentre à la main que les jours de la semaine (L,M,M,J,V,S,D) et le cycle de travail avec les repos.
Avec la MeFC, les cases "Repos" se grisent automatiquement.
Mais où je n'arrive pas à maitriser les fonctions c'est pour que tous les "D" de dimanche soient en rouge sur fond blanc quand on travaille ou rouge sur fond gris en repos.
Comme ça je n'aurai que les jours fériés à colorer en rouge manuellement.

 

[Essem]

Re : Calendrier avec dimanches rouges et repos colorés

Bonjour Loeki et le forum,

Voici la solution proposé, voir les MeFC...

Essem

 

[loeki]

Re : Calendrier avec dimanches rouges et repos colorés

Merci Essem

C'est la fonction ET que je n'arrivais pas à maitriser dans la MEFC alors que c'était si simple. Maintenant j'ai compris !

 

[loeki]

Re : Calendrier avec dimanches rouges et repos colorés

Je reviens pour mon histoire de tableau, et j'aimerais savoir comment faire pour que la colonne "Repos" se colore entièrement quand je tape le mot "Repos" dans la ligne 3 ?
Cela tout en gardant les MeFC qui colorent le "D" en rouge et en prenant en compte que j'ai déjà 3 critères dans la MeFC pour les jours de présence à partir de la ligne 4 et suivantes.

 

[Essem]

Re : Calendrier avec dimanches rouges et repos colorés

Bonjour Loeki et le forum,

La méthode la plus simple sans VBA est de copier la mise en forme de la ligne #2 sur les lignes suivantes dont tu veux colorier les cellules.

Sinon il y a le VBA, je peux regarder ça ce soir, pour l'instant, je dois te laisser. Je pars pour la maison, de retour sur le forum dans 1/2 heure à peu près.

Essem

 

[loeki]

Re : Calendrier avec dimanches rouges et repos colorés

Bonsoir Essem,

Sachant que pour mes cellules j'ai déjà 3 conditions, pour colorier en gris les colonnes entières quand le mot "repos" figure dans la ligne B3 à AF3, je pense que la seule solution est une macro VBA, mais là je suis largué !

 

[Essem]

Re : Calendrier avec dimanches rouges et repos colorés

Rebonsoir Loeki

Dans le fichier joint, il y a 500 lignes de coloriés avec les MeFC. Je suis peut-être entêté mais je ne comprends pas pourquoi tu désires avec la colonne au complet soit 65536 lignes colorées.

Mais bon si tu désires vraiment du VBA, je regarde tantôt.

Là c'est vrai, je quitte pour la maison.

À plus tard!

Essem

 

[loeki]

Re : Calendrier avec dimanches rouges et repos colorés

Re-Bonjour,

J'ai joint un nouveau fichier tel qu'il est actuellement, pour mieux comprendre comment je souhaite le concevoir.
En fait,c'est un tableau DE BASE que je compte copier-coller 12 fois pour les 12 mois de l'année sur 12 onglets.
Je n'y ait pas intégré la MeFC pour les dimanches.

A partir de la ligne 9, j'ai donc pour tous les jours une MeFC avec 3 critères avec "x" pour un congé, "i" pour un indisponible, et "mo" ou "bs" pour malade ou blessé.
Les buts finaux : dans la ligne 1, quand je rentre les jours de la semaine le dimanche devient rouge, et quand je rentre le cycle de travail dans la ligne 3, alors les colonnes où il y a repos1 "R1" ou repos2 "R2" se grisent automatiquement. Je suis obligé de faire apparaitre R1 et R2 car les types de repos sont différents.
C'est donc plus compliqué que précédemment je pense.

 

[Essem]

Re : Calendrier avec dimanches rouges et repos colorés

Rebonsoir Loeki,

Voici le code à ajouter dans ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveCell.Row = 3 Or ActiveCell.Row = 4 Then
temp = ActiveCell.Address
For col = 2 To 32
If Cells(3, col) = "R1" Or Cells(3, col) = "R2" Then
Columns(col).Select
With Selection.Interior
.ColorIndex = 48
.PatternColorIndex = xlAutomatic
End With
Else
Columns(col).Select
With Selection.Interior
.ColorIndex = xlNone
.PatternColorIndex = xlAutomatic
End With
End If
Next
Range(temp).Select
End If

End Sub

Cependant, il faut noter que les MeFC sont prioritaires sur le fond de cellule et ne changent pas de couleur.

Donc si tu veux le contraire, il me faudra travailler un peu plus.

J'attends de tes nouvelles!

Essem

 

[loeki]

Re : Calendrier avec dimanches rouges et repos colorés

Bonjour Essem,

La macro fonctionne, ET comme tu le disais, la MeFC est prioritaire.
Mais au départ, à partir de la ligne 9, les cellules sont vierges, donc tant qu'on ne tape rien, la cellule reste blanche ou grise, donc tout va bien.

Restait les lignes 4 à 8 que j'ai résolu par la MeFC =ou("R1"=B4;"R2"=B4) et je grise la cellule et la police.

Donc c'est impeccable ! MERCI beaucoup !
S'il y a du nouveau, je t'en ferait part.
Bon courage à toi.

 

[loeki]

Re : Calendrier avec dimanches rouges et repos colorés

Ca y est j'ai un problème : si j'essaye de protéger les lignes 4 à 8 afin de ne pas effacer les formules cela fait planter la macro avec une erreur 1004.

 

[Essem]

Re : Calendrier avec dimanches rouges et repos colorés

Bonjour Loeki,

Il faut enlever la protection au début de la macro et la rajouter par la suite:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect Password:="123"
If ActiveCell.Row = 3 Or ActiveCell.Row = 4 Then
.
.
.
End If
ActiveSheet.Protect Password:="123"
End Sub

Je ne crois pas qu'il y ait un autre moyen.

Essem