Discussion :

[bernadin.m]

Bonjour,

j'écris un code pour alimenter un tableau en fonction des mois:
l’alimentation consiste à faire la somme de données dans deux tableaux sur la même feuille pour chaque mois.

j'ai écris un code qui marche mais il est trop long et je doit le dupliquer sur d'autre valeur alors je cherche moyens de l'écrire de la meilleure façon afin de pouvoir dupliquer le modèle. y a t il moyen de combiner deux structure en boucle " for ...each .. next " et" if" sinon quel est le meilleur moyen ? merci de votre aide
voici donc le code

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
 
sub synthese_mensuelle
Sheets("SYNTHESE").Select
 
If Range("C2").Value = "Janvier" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("C61") + Sheets("COUT").Range("C14")
If Range("C2").Value = "Février" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("D61") + Sheets("COUT").Range("D14")
If Range("C2").Value = "Mars" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("E61") + Sheets("COUT").Range("E14")
If Range("C2").Value = "Avril" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("F61") + Sheets("COUT").Range("F14")
If Range("C2").Value = "Mai" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("G61") + Sheets("COUT").Range("G14")
If Range("C2").Value = "Juin" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("H61") + Sheets("COUT").Range("H14")
If Range("C2").Value = "Juillet" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("I61") + Sheets("COUT").Range("I14")
If Range("C2").Value = "Août" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("J61") + Sheets("COUT").Range("J14")
If Range("C2").Value = "Septembre" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("K61") + Sheets("COUT").Range("K14")
If Range("C2").Value = "Octobre" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("L61") + Sheets("COUT").Range("L14")
If Range("C2").Value = "Novembre" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("M61") + Sheets("COUT").Range("M14")
If Range("C2").Value = "Décembre" And Range("C3").Value = "2014" Then Range("C7").Formula = Sheets("COUT").Range("N61") + Sheets("COUT").Range("N14")
end sub

[joe.levrai]

Bonjour,

une suggestion, mais pas la plus propre (manque de temps)

puisque tu actives la feuille avant le traitement, tu peux tester ça (j'ai pas testé) :

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
 
Sub synthese_mensuelle()
 
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
 
    For i = LBound(TabMois) To UBound(TabMois)
 
        If Range("C2") = TabMois(i) Then
 
            Range("C7").Formula = Sheets("COUT").Cells(61, i + 3) + Sheets("COUT").Cells(14, i + 3)
 
        End If
 
    Next i
 
End If
 
 
End Sub

[bernadin.m]

Bonjour,

j'ai testé ça marche ça donne le même résultat et ça l'avantage d’être plus simple et plus rapide à écrire c'est déjà une avancé pour moi merci !

merci encore joe.levrai