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