1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| ' Appliquer le type
Windows("DSIC-Outil-Inputs_v0.3.xlsx").Activate
Sheets("B-budget Annuel").Select
Dim cellule_type As Range
For Each cellule_type In Range("D4:D65536")
Select Case cellule_type.Value
Case "Projet", "Récurrent", "Structure"
cellule_type.Offset(0, -3) = "Activité JH"
Case ""
Exit Sub
Case Is <> "Projet", Is <> "Récurrent", Is <> "Structure"
cellule_type.Offset(0, -3) = "Coût non-JH"
End Select
Next
' Appliquer la Nature "Charge de personnel", "Coût non-JH" ou "Sous-Activité"
Windows("DSIC-Outil-Inputs_v0.3.xlsx").Activate
Sheets("B-budget Annuel").Select
Dim cellule_nature As Range
For Each cellule_nature In Range("A4:A65536")
Select Case cellule_nature.Value
Case "Activité JH"
cellule_nature.Offset(0, 7) = "Charge de personnel"
Case ""
Exit Sub
Case "Coût non-JH"
cellule_nature.Offset(0, 7) = "Coût non-JH"
'Case "Sous-activité"
'cellule_nature.Offset(0, 7) = "Sous-activité"
End Select
Next cellule_nature |
Partager