Attribute VB_Name = "ModCreerRefHypotheses3"

Option Explicit

Public Sub CreerRefHypothesesActuarielles()

    Dim ws As Worksheet
    Dim r As Long

    MsgBox "Début macro"

    Set ws = ResetSheetIDR("REF_HYPOTHESES_ACTUARIELLES")

    ws.Cells(1, 1).value = "Code_Hypothese"
    ws.Cells(1, 2).value = "Famille"
    ws.Cells(1, 3).value = "Parametre"
    ws.Cells(1, 4).value = "Valeur"
    ws.Cells(1, 5).value = "Unite"
    ws.Cells(1, 6).value = "Code_Source"
    ws.Cells(1, 7).value = "Source_Certifiee"
    ws.Cells(1, 8).value = "Date_Effet"
    ws.Cells(1, 9).value = "Date_Fin"
    ws.Cells(1, 10).value = "Statut"
    ws.Cells(1, 11).value = "Responsable"
    ws.Cells(1, 12).value = "Justification"
    ws.Cells(1, 13).value = "Commentaire"
    ws.Cells(1, 14).value = "Population"

    r = 2

    AjouterHypotheseIDR ws, r, _
        "HYP_ACT_001", _
        "Actualisation", _
        "Taux actualisation", _
        3.2, _
        "%", _
        "SRC001", _
        "Direction Financière", _
        "Taux actuariel retenu"

    AjouterHypotheseIDR ws, r, _
        "HYP_SAL_001", _
        "Salaire", _
        "Taux progression salariale", _
        2.5, _
        "%", _
        "SRC012", _
        "DRH", _
        "Budget RH"

    AjouterHypotheseIDR ws, r, _
        "HYP_CHA_001", _
        "Charges", _
        "Taux charges patronales", _
        42, _
        "%", _
        "SRC011", _
        "Responsable Paie", _
        "DSN"

    AjouterHypotheseIDR ws, r, _
        "HYP_RET_001", _
        "Retraite", _
        "Age départ projeté", _
        64, _
        "Ans", _
        "SRC015", _
        "Direction Financière", _
        "Rapport actuariel"

    AjouterHypotheseIDR ws, r, _
        "HYP_ROT_001", _
        "Rotation", _
        "Taux rotation", _
        5, _
        "%", _
        "SRC013", _
        "DRH", _
        "Historique RH"

    AjouterHypotheseIDR ws, r, _
        "HYP_MOR_001", _
        "Mortalité", _
        "Table mortalité", _
        "TGH_TGF", _
        "Référence", _
        "SRC007", _
        "Actuaire", _
        "Table retenue"

    FormatReferentielIDR ws, "A1:N1"

    MsgBox "REF_HYPOTHESES_ACTUARIELLES alimenté."

End Sub

Private Sub AjouterHypotheseIDR( _
        ByVal ws As Worksheet, _
        ByRef r As Long, _
        ByVal CodeHyp As String, _
        ByVal Famille As String, _
        ByVal Parametre As String, _
        ByVal Valeur As Variant, _
        ByVal Unite As String, _
        ByVal CodeSource As String, _
        ByVal Responsable As String, _
        ByVal Justification As String)

    ws.Cells(r, 1).value = CodeHyp
    ws.Cells(r, 2).value = Famille
    ws.Cells(r, 3).value = Parametre
    ws.Cells(r, 4).value = Valeur
    ws.Cells(r, 5).value = Unite
    ws.Cells(r, 6).value = CodeSource
    ws.Cells(r, 7).value = "OUI"
    ws.Cells(r, 8).value = DateSerial(2026, 1, 1)
    ws.Cells(r, 9).value = DateSerial(2099, 12, 31)
    ws.Cells(r, 10).value = "ACTIF"
    ws.Cells(r, 11).value = Responsable
    ws.Cells(r, 12).value = Justification
    ws.Cells(r, 13).value = ""
    ws.Cells(r, 14).value = "TOUS"

    r = r + 1

End Sub