Bonjour,

Je dois rechercher un critère dans une feuille de mon classeur et additionner plusieurs valeurs dont les entêtes de colonnes correspondent aux n° de semaines d'un mois.
En clair, je dois obtenir le nombre cumulé pour le mois de ce critère recherché.

J'ai effectué une combinaison de la fonction somme.si() (pour 5 semaines) mais je dois la répéter autant de fois qu'il y a de mois (12) et pour tous les critères recherchés.

Pourriez-vous m'indiquer comment optimiser ce code créer avec l'aide de l'assistant ?
Pour info, je n'ai traité que les 2 premières cellules pour Janvier/février du 1er critère recherché.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub CumulMoisParCritere()
 
    Range("B13").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C1,'Total 7 vecteurs'!C5)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C1,'Total 7 vecteurs'!C6)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C1,'Total 7 vecteurs'!C7)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C1,'Total 7 vecteurs'!C8)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C1,'Total 7 vecteurs'!C9)"
    Range("C13").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C2,'Total 7 vecteurs'!C10)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C2,'Total 7 vecteurs'!C11)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C2,'Total 7 vecteurs'!C12)+SUMIF('Total 7 vecteurs'!C3,TRAM_CDG!R13C2,'Total 7 vecteurs'!C14)"
    Range("D13").Select
End Sub