Discussion :

[VIPNO]

Bonjour,

J'ai une liste de personnes qui travaillent d'une date de début à une date de fin avec un certain pourcentage. Je voudrais exprimer mois par mois le taux d'occupation de ces personnes par l'intermédiaire d'un programme car le faire en direct crée des formules trop longue.
Est-ce que quelqu'un a un début de piste ?
Merci d'avance
VIPNO

[Daniel.C]

Bonjour,

Tu peux donner un exemple de résultat pour une personne ?

[VIPNO]

Bonjour,
J'ai ajouté qq exemples de résultats souhaités.Il faudrait également gérer les jours fériés...ce que je n'ai pas fait dans les exemples.
Une fois ces résultats obtenus, il faudrait n'avoir qu'une ligne pour chaque entité des 5 premières colonnes identiques. Mais cela sera une deuxième étape.

Si qq'un a une idée en programmation. En direct dans les cellules il y aurait des formules trop grandes qui vivent mal qd je lance la macro de transposition qui remet à jour la partie gauche du tableau.
Merci d'avance
VIPNO

[Daniel.C]

Bonjour,

Essaie la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub Calculs()
    Dim c As Range, MoisDeb As Integer, Col As Integer
    With Sheets("Feuil2")
        .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 10).Resize(, 12).ClearContents
        For Each c In .Range(.[F3], .Cells(.Rows.Count, 6).End(xlUp))
            If Year(c.Offset(, 2)) = 2012 Then
                If Year(c.Offset(, 1)) < 2012 Then
                    MoisDeb = 1
                Else
                    MoisDeb = Month(c.Offset(, 1))
                End If
                For Col = 11 To 22
                    Select Case MoisDeb
                        Case Col - 10
                            If Month(c.Offset(, 2)) = Col - 10 Then
                                .Cells(c.Row, Col) = Application.NetworkDays(c.Offset(, 1), c.Offset(, 2)) * c.Offset(, 3) / 100
                            Else
                                .Cells(c.Row, Col) = Application.NetworkDays(c.Offset(, 1), DateSerial(2012, Col - 9, 0)) * c.Offset(, 3) / 100
                            End If
                        Case Is < Col - 10
                            If Month(c.Offset(, 2)) = Col - 10 Then
                               .Cells(c.Row, Col) = Application.NetworkDays(DateSerial(2012, Col - 10, 1), c.Offset(, 2)) * c.Offset(, 3) / 100
                            ElseIf Month(c.Offset(, 2)) > Col - 10 Then
                               .Cells(c.Row, Col) = Application.NetworkDays(DateSerial(2012, Col - 10, 1), DateSerial(2012, Col - 9, 0)) * c.Offset(, 3) / 100
                            End If
                    End Select
                Next Col
            End If
        Next c
    End With
End Sub

[VIPNO]

Bonjour,

Le prog proposé convient parfaitement. Je voudrais maintenant remplir la colonne 10 avec simplement le nombre de jours ouvrés * % si les dates sont dans la bonne année.
Je ne sais pas trop comment faire ni où ajouter ce code dans le programme.
Est-il également possible de tenir compte des jours fériés français en les incorporant dans ce prog ou à un autre endroit sur la feuille par exemple.
D'avance merci pour l'aide apporté
VIPNO

Bonjour,
Si la date de fin est >2012, le prog ne sort rien même si la date de début est <=2012.
J'ai essayé de rajouté un "si" sur la date de fin mais je n'arrive pas à sortir qq chose de concluant.
Auriez-vous me donner une piste.
D'avance merci
VIPNO

[Daniel.C]

Oui. Il n'y avait pas de date 2013 dans ton classeur. Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
37
38
39
40
41
Sub Calculs()
    Dim c As Range, MoisDeb As Integer, Col As Integer, MoisFin As Integer
    Dim DateDeb As Date, DateFin As Date
    With Sheets("Feuil2")
        .Range(.[A3], .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 10).Resize(, 12).ClearContents
        For Each c In Range(.[F3], .Cells(.Rows.Count, 6).End(xlUp))
            If Year(c.Offset(, 2)) >= 2012 Then
                If Year(c.Offset(, 1)) < 2012 Then
                    MoisDeb = 1
                    DateDeb = DateSerial(2012, 1, 1)
                Else
                    MoisDeb = Month(c.Offset(, 1))
                    DateDeb = c.Offset(, 1)
                End If
                If Year(c.Offset(, 2)) > 2012 Then
                    MoisFin = 13
                    DateFin = DateSerial(2012, 12, 31)
                Else
                    MoisFin = Month(c.Offset(, 2))
                    DateFin = c.Offset(, 2)
                End If
                For Col = 11 To 22
                    Select Case MoisDeb
                        Case Col - 10
                            If MoisFin = Col - 10 Then
                                .Cells(c.Row, Col) = Application.NetworkDays(DateDeb, DateFin) * c.Offset(, 3) / 100
                            Else
                                .Cells(c.Row, Col) = Application.NetworkDays(DateDeb, DateSerial(2012, Col - 9, 0)) * c.Offset(, 3) / 100
                            End If
                        Case Is < Col - 10
                            If MoisFin = Col - 10 Then
                               .Cells(c.Row, Col) = Application.NetworkDays(DateSerial(2012, Col - 10, 1), DateFin) * c.Offset(, 3) / 100
                            ElseIf MoisFin > Col - 10 Then
                               .Cells(c.Row, Col) = Application.NetworkDays(DateSerial(2012, Col - 10, 1), DateSerial(2012, Col - 9, 0)) * c.Offset(, 3) / 100
                            End If
                    End Select
                Next Col
            End If
        Next c
    End With
End Sub