Colorer colonne "jour férié"

Re : Colorer colonne "jour férié"

Bonjour ptitepo,

Je suppose que tu as nommé des cellules An et paques ? oubien il s'agit de fonctions personnalisées ?

Re : Colorer colonne "jour férié"

cc
Euh non, An c'est que j'ai recopier bétement ma feuille, mais sur mon fichier excel j'avais mis 2008. 🙂 et pour paques euhh pe etre lol, ya 1 solution hein??

Re : Colorer colonne "jour férié"

Pour paques, va voir là FAQ MS-Access - Club d'entraide des développeurs francophones

Normalement, ta mise en forme conditionnelle pour le 1er de l'an devrait être bonne. Qu'est-ce qui se passe le 1er janvier ? rien ?

Re : Colorer colonne "jour férié"

Bonjour,
Petitepo
Pâques est une cellule destinée à calculer le jour de Pâques, +1 veut dire que l'on veut le 1er jour après Pâques donc le lundi de Pâques.En France le jour de Pâques n'est pas férié mais le lundi,comme pour la Pentecôte.

Joins nous un fichier zippé sans données confidentielles mois de 48k cela sera plus facile pour t'aider à résoudre ton problème.

Re : Colorer colonne "jour férié"

Bonjour, sur une feuille horarire, je colorie des lignes en fonction de mots placés dans une colonne, peut-être qu'en adaptant ce code à placer dans thisworkbook:

'coloration de ligne en fonction du mot entré en ligne "J"

'les lignes "Samedi" "Dimanche" "férié" sont désactivées, car elles ne servent
'qu'au moment de la création du calendrier en début d'année, et "formation"
'activée à la demande

Private Sub Workbook_Open()
Dim Cell As Range
For Each Cell In Range("J:J")
'With Cell
'If .Value = "Samedi" Then
'Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 35
'End If
'End With
'With Cell
'If .Value = "Dimanche" Then
'Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 35
'End If
'End With
'With Cell
' If .Value = "férié" Then
' Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 36
' End If
'End With
With Cell
If .Value = "RTT" Then
Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 38
End If
End With
With Cell
If .Value = "CA" Then
Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 45
End If
End With
With Cell
If .Value = "récup" Then
Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 44
End If
End With
'With Cell
'If .Value = "formation" Then
'Range(Cells(.Row, 1), Cells(.Row, 9)).Interior.ColorIndex = 28
'End If
'End With
Next Cell
End Sub

Re : Colorer colonne "jour férié"

Pour mes samedis et dimanches j'ai fait une mise en forme conditionelle, je pensais faire la même chose avec les jours feriés, mais il y a un programme VBA pour les 2, c'est encore mieux.
Voici 1 bout de mon fichier. pe-etre ca poura vous aidé
Merci de votre aide

Re : Colorer colonne "jour férié"

Salut ptitepo, Degap, Claude, tototiti2008, le Forum

Regardes le Fichier joint et dis nous
Sur la Base d'un Fichier de Ti avec Ajout d'une feuille pour les jours fériés
et bien sur MEFC

Bonne Journée

Re : Colorer colonne "jour férié"

Merci a tous, je devrais m'en sortir avec ca ! 🙂