Colorier une colonne si c'est ferié
Bonjour,
Je bute sur un problème, lorsque je formate une sélection en vacances: Bouton en (F3)
Ce dernier me colore en bleu les cellules sélectionnées et y met la valeur -1 pour (-1 jour de vacances).
Si les cellules sélectionnées chevauche un weekend, une macro initialise les cellules Weekend.
Pour les jours fériés, c'est plus compliqués car variable (On trouve la liste adaptative dans la feuille Menu colonne K)
Dans la ligne 8 de F : GL on trouve des cellules avec un F (Férié) Ces jours sont variables selon l'année.
J'aimerais que la colonne avec Un "F" soit colorée en rouge de la ligne 8 à la ligne 40 et que la valeur est 0
J'ai essayé avec MFC mais la couleur n'est plus reconnue pour une macro!
Qui peut m'aider?
Merci d'avance
Andreas
Bonjour,
Pourquoi utiliser une macro?
Cdlt
Bonjourt, merci pour la question,
la macro est là pour remettre a 0 la valeur des cellules (Rouge = Ferié).
Andreas
Solution sans macro, il suffit de créer une plage de noms des jours fériés(nommées Jours_feries) et d'appliquer la MFC.
Je remets le fichier, erreur sur l'envoi précédent
Les "F" dans la ligne 6 sont inutiles, vous pouvez les supprimer.
Bonjour Fanfan38, Arturo83,
Merci pour vos solutions, la solution de Fanfan38 est ce que je cherchais, car une valeur devait aussi être mise dans les cellules concernées.
Et merci aussi d'avoir rajouté cette macro aux existantes.
Un grand merci quand même à tous.
Cordialement
Andreas
Sub colorerjoursferiés()
Application.ScreenUpdating = False
Dim i As Integer, j As Integer
For i = 6 To 194 'limite de détection de la colonne 6 à 194
If Cells(8, i).Value = "F" Then 'si la cellule contient "F"
For j = 8 To 40 'définit les lignes de 8 à 40
Cells(j, i).Interior.ColorIndex = 3 'colore les cellules concernées en rouge
If j > 9 Then Cells(j, i).Value = 0 'donne une valeur 0 aux cellule concernée
Next
End If
Next
Application.ScreenUpdating = True
End Sub