Microsoft 365 Calcul d'une somme entre deux bornes Vba

[Piment]

Bonjour à tous, Soan,
Je crée un nouveau fil de discussion car je n'ai pas eu d'aide sur mon précédent fil.
Avant tout, merci aux internautes qui ont eu la gentillesse de m'aider sur ce Forum, qui n'a pas son pareil.
Je fais appel à nouveau à vos compétences.
Ceux qui m'ont précédemment aidé sur ce fichier verront que je l'ai quelque peu fait évoluer.
Je pense être dans la dernière ligne droite.
Donc, voici ma difficulté:
Dans la feuille VentilationCouts, je voudrais que la colonne C 7 additionne les lignes se trouvant entre les deux zones vertes: additionne les dépenses de chaque "Cellule DGS" "Cellule Secrétariat..." ect...
Les Services additionnent toutes les "Cellules" qui sont à l'intérieur du Service: "Cellule DGS", "Cellule Secrétariat...", "Cellule Police..." ect.
Les Directions additionnent tous les services qui sont à l'intérieur de la Direction.
J'a beaucoup cherché, mais je n'y arrive pas.
J'ai une erreur #Nom? en C7 gérée par la ligne de code de la formule de calcul de l'USF Nouveau_Numero.
Je suis bloqué sur cette ligne de code, et donc pas beaucoup avancé.
Aussi, je serais heureux de pouvoir bénéficier d'une aide de la communauté.
Ci-joint le fichier.
Merci à vous.

 

[Piment]

Bonjour Job75,
Avant toutes choses, merci encore pour toute l'aide que vous m'avez apportée.
Mais j'ai encore besoin d'un petit coup de pouce.
Le dernier je pense.
Je voudrais faire les calculs mensuels des dépenses (cellule C4 à N14), avec le total en O15. O15 étant la sommes des consommations pour toute l'année.
Je n'ai pas tout compris dans vos codes.
J'ai essayé en m'appuyant sur les formules que m'avez fournies, mais je n'y arrive pas.
Comme vous pourrez le constater j'ai fais quelques changements, et toutes mes cellules de calcul se font normalement correctement. J'ai étendu le tableau jusqu'à la Colonne 17, ce qui m'a permis de faire les calculs des pourcentages.
Aussi, afin de boucler ce fichier, auriez-vous la gentillesse de m'aider encore un peu?
Merci pour l'attention que vous porterez à ma demande.

 

[job75]

Bonjour Piment, le forum,

Je n'irai pas plus loin aujourd'hui car je rentre à Paris après un an et demi de confinement en Normandie.

A+

 

[Piment]

Ok, je comprends.
Un an et demi de confinement, cela n'a pas dû être simple!
On en a eu un aussi chez nous, c'était compliqué: pas de plage, pas de restaurant....
Je continu à chercher de mon coté.
Merci encore à bientôt.

 

[job75]

Bon j'ai trouvé 5 minutes, voyez le fichier joint.

Il a suffit de transformer la variable TOTAL en Array.

Je ne m'occupe pas des colonnes P et Q, il faudra un nouveau fil.

 

[Piment]

Un énorme MERCI! Je me doutais bien qu'il fallait agir sur la ligne code Total, mais, vu le code fourni, il est clair que je n'y serais pas arrivé!
Quand aux colonnes P et Q les calculs fonctionnent: j'ai élargi la boucle For j à 17 au lieu de 14 dans les 3 zones (Cellules, Services et Direction) et les calculs se font jusqu'à Q.
Ensuite, dans les codes du bouton "Valider" de l'USF "Nouveau Numéro", j'ai rajouté les formule de calcul pour les deux dernière colonnes R et S.
J'aurais aimé que tous les calculs se fassent sur la feuille "VentilationCouts", mais il me faudra effectivement ouvrir un nouveau fil.
En l'état cela fonctionne, mais il me semble que ce n'est pas très sain d'avoir des calculs sur 2 endroits différents.
Je clôture ce sujet.
Bon déconfinement à vous.

 

[job75]

Bien arrivé à Paris 🙂

Quand aux colonnes P et Q les calculs fonctionnent: j'ai élargi la boucle For j à 17 au lieu de 14 dans les 3 zones (Cellules, Services et Direction) et les calculs se font jusqu'à Q

Passer de 14 à 17 ne me paraît pas judicieux.

Ouvrez un nouveau fil en expliquant clairement ce que vous voulez en colonnes P et Q..

 

[Piment]

Bonjour Job75,
Ok, j'ouvre un nouvel fil dans la matinée.
Bonne journée à vous, et merci encore.

 

[job75]

Il n'est pas non plus judicieux de mettre votre post #50 comme solution de ce fil 🙄

 

[Piment]

S'il vous plaît pourriez-vous être plus précis, j'aimerais comprendre pourquoi.
Merci.

 

[job75]

Bah parce que ce n'est pas votre solution mais la mienne post #49 qui a résolu le problème.

 

[Piment]

Complètement d'accord! C'est vous qui avez apporté la solution à mon problème. J'ai pensé que pour clôturer le fil il fallait le marquer comme solutionné. A aucun moment, pas une seul fraction de seconde, je n'ai voulu m'approprier le bénéfice de votre travail. Bien au contraire. Je n'apporte d'ailleurs aucune solution dans ce fil. J'en suis bien incapable.
Je viens de m'apercevoir que je pouvais modifier cela et je me suis empressé de corriger mon erreur.
Je suis nouveau sur le Forum et je ne maitrise pas complètement son utilisation.
Sincèrement désolé pour la méprise.
Je mets le fichier en pièce jointe. Sur la Feuille "VentilationCouts" en tête de page j'ai mis vos références.
Encore une fois toutes mes excuses pour cette maladresse complètement involontaire.
Bonne journée à vous.