VBA - Appliquer une formule à une colonne puis additionner

Version imprimable

03/11/2015, 10h20
korben8

1 pièce(s) jointe(s)

VBA - Appliquer une formule à une colonne puis additionner
Bonjour,

Je sollicite votre aide car mes connaissances de VBA sont assez limitées.
Vous trouverez en pièce jointe l'extrait du fichier sur lequel je travaille et qui me pose problème. Il s'agit d'un fichier de suivi de projet.
- L'onglet Holidays comporte un tableau dans lequel je rentre manuellement les jours fériés et les congés.
- L'onglet Feuil_calc_budg: des colonnes A à I, il s'agit de la liste de tâches de mon projet, leur type, leur date de fin la durée,...ces informations sont extraites d'une autre feuille (mise en forme) via une macro. Cette liste à une longueur variable.
  Des colonnes J à GO, c'est le calendrier semaine par semaine de mon projet.
Mon but est d'obtenir l'évolution globale de la worload calculée par semaine puis cumulée de la première semaine à la dernière semaine, pour les tâches définies comme Activity (en colonne A).

J'ai essayé de faire ceci via des formules, ce qui m'a poussé à calculer ce que je cherche tâche par tâche puis d’additionner.
J'ai réussi à établir les deux types de formules nécessaires, elles semblent fonctionner comme il faut.
- Pour la colonne J, je calcule la workload pour la première semaine du projet (il n'y a pas de cumul car pas de semaine précédente). Formule pour la cellule J3:
  
  Code:
  
  =SI($A3="Activity";SI($H3<J$1;;SI(ET($F3<J$1;$H3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES(J$1;$H3;Holidays!$A$6:$A$150)*$C3;SI(ET($F3<J$1;$H3>(J$1+5));NB.JOURS.OUVRES(J$1;J$1+5;Holidays!$A$6:$A$150)*$C3;SI(ET($F3>=J$1;$F3<=(J$1+5);$H3>(J$1+5));NB.JOURS.OUVRES($F3;J$1+5;Holidays!$A$6:$A$150)*$C3;SI(ET($F3>(J$1+5));;SI(ET($F3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES($F3;$H3;Holidays!$A$6:$A$150)*$C3;))))));)
- Pour chaque colonne de J à GO, je calcule la workload et je cumule avec la semaine précédente. Formule pour la cellule K2:
  
  Code:
  
  =SI($A3="Activity";SI($H3<K$1;J3;SI(ET($F3<K$1;$H3>=K$1;$H3<=(K$1+5));NB.JOURS.OUVRES(K$1;$H3;Holidays!$A$6:$A$150)*$C3+J3;SI(ET($F3<K$1;$H3>(K$1+5));NB.JOURS.OUVRES(K$1;K$1+5;Holidays!$A$6:$A$150)*$C3+J3;SI(ET($F3>=K$1;$F3<=(K$1+5);$H3>(K$1+5));NB.JOURS.OUVRES($F3;K$1+5;Holidays!$A$6:$A$150)*$C3+J3;SI(ET($F3>(K$1+5));J3;SI(ET($F3>=K$1;$H3<=(K$1+5));NB.JOURS.OUVRES($F3;$H3;Holidays!$A$6:$A$150)*$C3+J3;))))));)
Et ensuite je fais la somme de chaque colonne en ligne 2. Tout cela fonctionne très bien mais cela prend beaucoup de temps à calculer et rend le fichier très lourd.

J'ai donc pensé qu'il serait possible de faire tout cela via VBA, d'automatiser cela pour éviter tous ces calculs ligne par ligne et colonne par colonne.

La macro ferait les calculs, de la ligne 3 à la dernière ligne non vide (qui serait déterminée par le fait que la cellule B soit vide), pour la colonne J, indiquerait la somme en J2, puis pour les colonnes K à GO en indiquant la somme en ligne 2.

Afin de pour télécharger le fichier car il était trop lourd, j'ai du supprimer les colonnes après EA et m’arrêter à la ligne 20.

J'espère avoir été clair...

Je vous remercie par avance.
03/11/2015, 17h12
Daniel.C

Bonjour,

Je regarde. Ca va prendre quelques jours. La macro de calcul va être assez longue. Il sera intéressant de faire aussi une macro événementielle qui recalcule uniquement la ligne qui a été modifiée.

Est-ce que la seule différence entre J3 et K3, ce sont les "+J3" ?

Bonjour Daniel,

Oui c'est la seule différence (pas de cumul pour la colonne J).

J'ai commencé ce bout de code pour la colonne J mais ça plante: incompatibilité de type (13) lors du calcul de s (Désolé s'il y a avait une manip pour insérer proprement du code dans mon message mais je ne l'ai pas trouvé).

Code:

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
42
Sub Macro6()
Dim i, s, t  As Integer
Sheets("Feuil_calc_budg").Select
 
Range("A2").Select
Selection.End(xlDown).Select
ligne_active_cachée = ActiveCell.Row
 
For i = 3 To ligne_active_cachée
s = 0
If Cells(i, 1) = "Activity" Then
    If Cells(i, 8) < Cells(1, 10) Then
    s = 0
    Else
         If Cells(i, 6) < Cells(1, 10) And Cells(i, 8) >= Cells(1, 10) And Cells(i, 8) <= DateAdd("d", 5, Cells(1, 10)) Then
         s = [NetworkDays(Cells(1, 10), Cells(i, 8))] * Cells(i, 3)
         Else
              If Cells(i, 6) < Cells(1, 10) And Cells(i, 8) >= Cells(1, 10) + 5 Then
              s = [NetworkDays(Cells(1, 10), DateAdd("d", 5, Cells(1, 10)))] * Cells(i, 3)
              Else
                   If Cells(i, 6) >= Cells(1, 10) And Cells(i, 6) <= DateAdd("d", 5, Cells(1, 10)) And Cells(i, 8) > DateAdd("d", 5, Cells(1, 10)) Then
                   s = [NetworkDays(Cells(i, 6), DateAdd("d", 5, Cells(1, 10)))] * Cells(i, 3)
                   Else
                        If Cells(i, 6) > Cells(1, 10) + 5 Then
                        s = 0
                        Else
                             If Cells(i, 6) >= Cells(1, 10) And Cells(i, 8) <= DateAdd("d", 5, Cells(1, 10)) Then
                             s = [NetworkDays(Cells(i, 6), Cells(i, 8))] * Cells(i, 3)
                             Else
                             s = 0
                             End If
                        End If
                   End If
              End If
         End If
    End If
End If
        t = t + s
Next
Range("J2") = t
 
End Sub

Voici mon code pour la colonne J. Si tu pouvais déjà vérifier si c'est bon :

Code:

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
Sub Calculs()
    Dim C As Range, Ligne As Long
    With Sheets("Feuil_calc_budg")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row
        For Each C In .Range("J3:J" & Ligne)
            C.Value = 0
            If .Cells(C.Row, 1) = "Activity" Then
                If .Cells(C.Row, 8) < .Cells(1, C.Column) Then
                Else
                    If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) >= .Cells(1, C.Column) And _
                        .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                        C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(C.Row, 8), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                    Else
                        If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                            .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then
                            C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                        Else
                            If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                                .Cells(C.Row, 8) > .Cells(1, C.Column) Then
                                C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                            Else
                                If .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                                Else
                                    If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                                        C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(C.Row, 8), _
                                        [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next C
    End With
End Sub

J'ai fait une correction à ton code (une histoire de > ou >=) et ça fonctionne très bien, merci!

Par contre ça mouline pas mal. Je me suis dis que cela venait du fait que l'on inscrit la valeur dans chaque cellule de la colonne, donc j'ai modifié le code comme suit, mais rien ni fait.

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Sub Macro6()
Dim i, s, t  As Integer
Sheets("Feuil_calc_budg").Select
 
Range("A2").Select
Selection.End(xlDown).Select
ligne_active_cachée = ActiveCell.Row
 
For i = 3 To ligne_active_cachée
s = 0
If Cells(i, 1) = "Activity" Then
 
    If Cells(i, 8) < Cells(1, 10) Then
    s = 0
    Else
    If Cells(i, 6) < Cells(1, 10) And Cells(i, 8) >= Cells(1, 10) And Cells(i, 8) <= DateAdd("d", 5, Cells(1, 10)) Then
    s = [NetworkDays(Cells(1, 10), Cells(i, 8))] * Cells(i, 3)
    Else
    If Cells(i, 6) < Cells(1, 10) And Cells(i, 8) >= Cells(1, 10) + 5 Then
    s = [NetworkDays(Cells(1, 10), DateAdd("d", 5, Cells(1, 10)))] * Cells(i, 3)
    Else
    If Cells(i, 6) >= Cells(1, 10) And Cells(i, 6) <= DateAdd("d", 5, Cells(1, 10)) And Cells(i, 8) > DateAdd("d", 5, Cells(1, 10)) Then
    s = [NetworkDays(Cells(i, 6), DateAdd("d", 5, Cells(1, 10)))] * Cells(i, 3)
    Else
    If Cells(i, 6) > Cells(1, 10) + 5 Then
    s = 0
    Else
    If Cells(i, 6) >= Cells(1, 10) And Cells(i, 8) <= DateAdd("d", 5, Cells(1, 10)) Then
    s = [NetworkDays(Cells(i, 6), Cells(i, 8))] * Cells(i, 3)
    Else
    s = 0
    End If
    End If
    End If
    End If
    End If
    End If
    End If
        t = t + s
Next
Range("J2") = t
 
End Sub
 
 
Sub Calculs()
    Dim C As Range, s As Integer, t As Integer, Ligne As Long
    With Sheets("Feuil_calc_budg")
        Ligne = .Cells(.Rows.Count, 3).End(xlUp).Row
        For Each C In .Range("J3:J" & Ligne)
        s = 0
            C.Value = 0
            If .Cells(C.Row, 1) = "Activity" Then
                If .Cells(C.Row, 8) < .Cells(1, C.Column) Then
                Else
                    If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) >= .Cells(1, C.Column) And _
                        .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                        s = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(C.Row, 8), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                    Else
                        If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                            s = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                        Else
                            If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                                .Cells(C.Row, 8) > .Cells(1, C.Column) Then
                                s = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                            Else
                                If .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                                Else
                                    If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                                        s = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(C.Row, 8), _
                                        [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
            t = t + s
        Next C
Range("J2") = t
            End With
End Sub

Bon, reste à trouver la même chose pour les autres colonnes.

Encore merci

04/11/2015, 10h21
Daniel.C

Bonjour,

Tu peux me dire où est l'erreur dans mon code ? (je n'ai pas envie de décortiquer le tien !) Sinon, oui, Ca va être assez long, c'est pourquoi je t'ai parlé d'une macro événementielle qui ne recalculera que ce qui est nécessaire.

Bonjour,

Il s'agit des lignes 14 à 16:

Code:

1
2
3
If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                            .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then
                            C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)

que j'ai remplacé par

Code:

1
2
If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                            s = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)

(outre le fait que comme je disais j'ai bricolé ton code pour ne pas renseigner chaque cellule mais plutôt les stocker sous s et les appliquer à t)

04/11/2015, 11h07
Daniel.C

Ou je dors encore (possible) ou je ne comprends pas. Comment les deux conditions ".Cells(C.Row, 6) < .Cells(1, C.Column)" et .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 peuvent être remplies ?
Dès que les deux formules seront remplies, j'essaierai de passer par des variables tableau pour accélérer le traitement.

Au temps pour moi, la deuxième condition concernant .Cells(C.Row, 8) et non .Cells(C.Row, 6).
Code:

1 2 If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then s = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)

Essaie cette macro. J'ai utilisé le timer pou voir la durée d'exécution : /2 seconde :

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub Calculs()
    Dim C As Range, Ligne As Long
    deb = Timer
    With Sheets("Feuil_calc_budg")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row
        For Each C In .Range("J3:J" & Ligne)
            C.Value = 0
            If .Cells(C.Row, 1) = "Activity" Then
                If .Cells(C.Row, 8) < .Cells(1, C.Column) Then
                Else 'SI(ET($F3<J$1;$H3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES(J$1;$H3;Holidays!$A$6:$A$150)*$C3;
                    If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) >= .Cells(1, C.Column) And _
                        .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                        C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(C.Row, 8), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                    Else 'SI(ET($F3<J$1;$H3>(J$1+5));NB.JOURS.OUVRES(J$1;J$1+5;Holidays!$A$6:$A$150)*$C3;
                        If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) > .Cells(1, C.Column) Then
                            C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                        Else 'SI(ET($F3>=J$1;$F3<=(J$1+5);$H3>(J$1+5));NB.JOURS.OUVRES($F3;J$1+5;Holidays!$A$6:$A$150)*$C3;
                            If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                                .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then
                                C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                            Else 'SI(ET($F3>(J$1+5));;SI(ET($F3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES($F3;$H3;Holidays!$A$6:$A$150)*$C3;))))));)
                                If .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                                Else
                                    If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                                        C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(C.Row, 8), _
                                        [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next C
        For Each C In .Range("K3:GO" & Ligne)
            C.Value = 0
            If .Cells(C.Row, 1) = "Activity" Then
                If .Cells(C.Row, 8) < .Cells(1, C.Column) Then
                    C.Value = C.Offset(, -1).Value
                Else 'SI($H3<J$1;;SI(ET($F3<J$1;$H3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES(J$1;$H3;Holidays!$A$6:$A$150)*$C3;
                    If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) >= .Cells(1, C.Column) And _
                        .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                        C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(C.Row, 8), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                    Else
                        If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) > .Cells(1, C.Column) Then
                            C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                        Else
                            If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                                .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then
                                C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                            Else
                                If .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                                Else
                                    If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                                        C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(C.Row, 8), _
                                        [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next C
    End With
    MsgBox Timer - deb
End Sub

04/11/2015, 15h48
korben8

bah écoute, ça marche du tonnerre et c'est super rapide, le timer indique environ 4!

merci infiniment Daniel.Problème résolu!
04/11/2015, 22h27
korben8

bonsoir Daniel,

Je vais abuser de tes talents..dans le but de pouvoir réutiliser le fichier pour d'autres projets avec une durée variable, est-il possible d'avoir un nombre de colonnes variable, de K à la dernière colonne non vide(en se basant sur la ligne 1 ), plutôt que de limiter la seconde partie des calcul à K3:GO ?

Bonjour,

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub Calculs()
    Dim C As Range, Ligne As Long, Col As Integer
    deb = Timer
    With Sheets("Feuil_calc_budg")
        Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row
        For Each C In .Range("J3:J" & Ligne)
            C.Value = 0
            If .Cells(C.Row, 1) = "Activity" Then
                If .Cells(C.Row, 8) < .Cells(1, C.Column) Then
                Else 'SI(ET($F3<J$1;$H3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES(J$1;$H3;Holidays!$A$6:$A$150)*$C3;
                    If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) >= .Cells(1, C.Column) And _
                        .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                        C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(C.Row, 8), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                    Else 'SI(ET($F3<J$1;$H3>(J$1+5));NB.JOURS.OUVRES(J$1;J$1+5;Holidays!$A$6:$A$150)*$C3;
                        If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) > .Cells(1, C.Column) Then
                            C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                        Else 'SI(ET($F3>=J$1;$F3<=(J$1+5);$H3>(J$1+5));NB.JOURS.OUVRES($F3;J$1+5;Holidays!$A$6:$A$150)*$C3;
                            If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                                .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then
                                C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                            Else 'SI(ET($F3>(J$1+5));;SI(ET($F3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES($F3;$H3;Holidays!$A$6:$A$150)*$C3;))))));)
                                If .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                                Else
                                    If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                                        C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(C.Row, 8), _
                                        [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3)
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next C
        Col = .Cells(1, .Columns.Count).End(xlToLeft).Column
        For Each C In .Range("K3", .Cells(Ligne, Col))
            C.Value = 0
            If .Cells(C.Row, 1) = "Activity" Then
                If .Cells(C.Row, 8) < .Cells(1, C.Column) Then
                    C.Value = C.Offset(, -1).Value
                Else 'SI($H3<J$1;;SI(ET($F3<J$1;$H3>=J$1;$H3<=(J$1+5));NB.JOURS.OUVRES(J$1;$H3;Holidays!$A$6:$A$150)*$C3;
                    If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) >= .Cells(1, C.Column) And _
                        .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                        C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(C.Row, 8), [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                    Else
                        If .Cells(C.Row, 6) < .Cells(1, C.Column) And .Cells(C.Row, 8) > .Cells(1, C.Column) Then
                            C.Value = WorksheetFunction.NetworkDays(.Cells(1, C.Column), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                        Else
                            If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 6) <= .Cells(1, C.Column) + 5 And _
                                .Cells(C.Row, 8) > .Cells(1, C.Column) + 5 Then
                                C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(1, C.Column) + 5, [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                            Else
                                If .Cells(C.Row, 6) > .Cells(1, C.Column) + 5 Then
                                Else
                                    If .Cells(C.Row, 6) >= .Cells(1, C.Column) And .Cells(C.Row, 8) <= .Cells(1, C.Column) + 5 Then
                                        C.Value = WorksheetFunction.NetworkDays(.Cells(C.Row, 6), .Cells(C.Row, 8), _
                                        [Holidays!$A$6:$A$150]) * .Cells(C.Row, 3) + C.Offset(, -1).Value
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        Next C
    End With
    MsgBox Timer - deb
End Sub

05/11/2015, 09h59
korben8

Bonjour,

Juste...parfait!

je te remercie!