VBA Fonction somme.si() répétitive pour chaque cellule

Version imprimable

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:

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

19/12/2018, 15h45
Menhir

Citation:

Envoyé par ANANA49

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é.

Etant donné la méthode que tu as choisie, tu irais beaucoup plus vite à placer tes formules "à la main".
19/12/2018, 16h21
BENNASR

Bonsoir
Si j'ai bien compris et si t'es comme moi "débutant VBA" et que tu as un numéro de semaine et tu cherches à cumuler des montant par moi tu peux procéder de cette façon et sans passer par VBA et dans l'hypothèse :

en A1 : le n° de semaine
en B1 : l'année
La formule suivante te permet de récupérer le mois :

Code:

=TEXTE(DATE(B1;1;3)-JOURSEM(DATE(B1;1;3))-5+7*A1;"mmmm")

Puis tu insère un beau Tableau croisé dynamique avec des segments tu aura ce que tu veux et avec une bonne présentation
BONNE CONTINUATION
voila une discussion et fonction personnalisée proposée dans cette discussion

Citation:

https://www.developpez.net/forums/d9...maine-l-annee/
19/12/2018, 16h43
ANANA49

Merci pour vos conseils et effectivement je vais intégrer mes formules manuellement en figeant mes cellules, ce sera plus rapide !!
A bientôt ;)