Sub Installation()
Dim N&, L&, PLg As Range
Application.Goto Feuil1.[A1]
Cells.FormatConditions.Delete
For N = 1 To 12
If N = 1 Then
L = 11 ' Ne pouviez vous vraiment pas vous arranger pour que janvier soit en ligne 14 ? //// La, je ne comprends pas votre commentaire /////
Else ' Touts les autres mois sont basés sur la 14 :
L = 14 + (N - 1) * 11
End If
Set PLg = [C:AG].Rows(L).Resize(7) '/////// Ici, je ne parviens pas à modifier pour insérer les formules ////////
If N = 2 Then
Cells(L, "AE").FormulaR1C1 = "=IF(MONTH(SLF)=MONTH(RC2),SLF,"""")"
Cells(L + 1, "AE").FormulaR1C1 = "=IF(MONTH(SLF)=MONTH(R" & L & "C2),_SLF1,"""")"
End If
PLg.Rows(3).Resize(5).FormulaR1C1 = "=CYC(R" & L & "C)"
'/////// Ici je voudrais incrémenter la MFC des postes, soit "M" pour matin, "S" pour soir, "N" pour nuit /////////
'/////// j 'ai essayé ceci pour les matins mais ca ne fonctionne pas
'/////// alors que si je ne passe pas par le vba cela fonctionne comme vous pouvez le constater
' With PLg.Rows(3).Resize(5).FormatConditions.Add(Type:=xlExpression,
'Formula1:="=(A$" & L & ";2)=""M""")
'.Interior.ColorIndex = RGB(255, 255, 160)
'///////// J'ai réussi à modifier votre code en fonction de mon souhait /////////
With PLg.Resize(7).FormatConditions.Add(Type:=xlExpression, _
Formula1:="=OU(JOURSEM(A$" & L & ";2)>5;ESTNUM(EQUIV(A$" & L & ";Ferie;0)))")
.Interior.Color = RGB(199, 255, 151): .Font.Color = RGB(186, 0, 0)
End With
'//////// Par celui-ci ///////
With PLg.Resize(2).FormatConditions.Add(Type:=xlExpression, _
Formula1:="=(JOURSEM(A$" & L & ";2)>5)")
.Interior.Color = RGB(255, 255, 0): .Font.Color = RGB(255, 0, 0)
End With
With PLg.Resize(2).FormatConditions.Add(Type:=xlExpression, _
Formula1:="=RECHERCHEV(A$" & L & ";Fériés;1;0)")
.Interior.Color = RGB(96, 255, 0): .Font.Color = RGB(255, 0, 0)
' .StopIfTrue = False
End With
Next N
End Sub