Discussion :

[bernadin.m]

Bonjour j'ai posté tout à l'heure sur le forum un problème similaire mais cette fois il y a une complexité supplémentaire. en fait il ya un cumul à faire au fil des mois:

si on est en janvier on a : C10

février: C10+ D10
MARS: C10+ D10+E10
etc.

en fait; je fait la somme au cumul au fur à mesure qu'on avance en mois alors en m'inspirant du code précédent ça donne ceci.

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
Sub cumul_mois()
 
Dim TabMois() As Variant
 
TabMois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
 
 
 
If Range("C3").Value = "2014" Then
 
    For i = LBound(TabMois) To UBound(TabMois)
 
        If Range("C2") = TabMois(i) Then
 
            Range("D10").Formula = Sheets("COUT").Cells(10, i + 3) + " c'est là ou le bas blesse: pour janvier retenir que janvier pour les mois suivant ajouter D10; E10; F10 sur la même feuille "
 
        End If
 
    Next i
 
End If
end sub

en fait je cherche à réécrire le code suivant trop long et fastidieux :

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
 
sub cumul
 
Sheets("SYNTHESE").Select
 
If Range("C2").Value = "Janvier" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10")
If Range("C2").Value = "Février" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10")'If Range("C2").Value = "Mars" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10")
If Range("C2").Value = "Avril" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10")
If Range("C2").Value = "Mai" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10")
If Range("C2").Value = "Juin" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10")
If Range("C2").Value = "Juillet" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10") + Sheets("COUT").Range("I10")
If Range("C2").Value = "Août" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10") + Sheets("COUT").Range("I10") + Sheets("COUT").Range("J10")
If Range("C2").Value = "Septembre" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10") + Sheets("COUT").Range("I10") + Sheets("COUT").Range("J10") + Sheets("COUT").Range("K10")
If Range("C2").Value = "Octobre" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10") + Sheets("COUT").Range("I10") + Sheets("COUT").Range("J10") + Sheets("COUT").Range("K10") + Sheets("COUT").Range("L10")
If Range("C2").Value = "Novembre" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10") + Sheets("COUT").Range("I10") + Sheets("COUT").Range("J10") + Sheets("COUT").Range("K10") + Sheets("COUT").Range("L10") + Sheets("COUT").Range("M10")
If Range("C2").Value = "Décembre" And Range("C3").Value = "2014" Then Range("D10").Formula = Sheets("COUT").Range("C10") + Sheets("COUT").Range("D10") + Sheets("COUT").Range("E10") + Sheets("COUT").Range("F10") + Sheets("COUT").Range("G10") + Sheets("COUT").Range("H10") + Sheets("COUT").Range("I10") + Sheets("COUT").Range("J10") + Sheets("COUT").Range("K10") + Sheets("COUT").Range("L10") + Sheets("COUT").Range("M10") + Sheets("COUT").Range("N10")

[jfontaine]

Bonjour,

Dans ton cas essais en mixant les formules Somme et Decaler

Exemple si Mars (mois 3)

Code :

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

Me.Range("D10").FormulaLocal = "=SOMME(COUT!$C$10:DECALER(COUT!B10;0;3))"

Il te reste a mettre le mois en variable et tu n'auras plus qu'une seule ligne

[bernadin.m]

Bonjour jerome j'ai testé plusieurs fois , ta ligne de code mais ça me donne des chiffres que je comprends pas.

par contre avec le code de menhir j'ai le cumul des 2 premiers mois si je prends le mois de mars. à chaque y a un mois en moins qui n'est pas comptabilisé

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
Sub cumul()
 
 
Dim TabMois() As Variant
TabMois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
Sheets("SYNTHESE").Select
 
If Range("C3").Value = "2014" Then
    Range("D10") = 0
    For i = 1 To 12
        Range("D10") = Range("D10") + Sheets("COUT").Cells(61, i + 2)
        If Range("C2") = TabMois(i) Then Exit For
    Next i
End If
End Sub

[Menhir]

Les valeur à cumuler commencent bien en C10 ?

[bernadin.m]

oui elle commence bien en C10 ( sur une autre feuille)

[jfontaine]

Bonjour jerome j'ai testé plusieurs fois , ta ligne de code mais ça me donne des chiffres que je comprends pas.

Est ce que la formule qui se met dans la cellule correspond bien a ton attente?
Si ce n'est pas le cas adaptes la

[Menhir]

Il y a de multiples façon de faire ça. En voici une :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub cumul_mois()
Dim TabMois() As Variant
TabMois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
If Range("C3").Value = "2014" Then
    Range("D10") = 0
    For i = 1 To 12
        Range("D10") = Range("D10") + Sheets("COUT").cells(10,i+2)
        If Range("C2") = TabMois(i) Then Exit for
    Next i
End If
end sub

Petit commentaire supplémentaire : Je pense que tu n'as pas compris l'usage de la propriété "Formula". Tu devrais regarder les exemples fournis avec l'aide VBA.