Microsoft 365 Calcul d'une somme entre deux bornes Vba

P

Piment

XLDnaute Occasionnel

• 14 Octobre 2021

• #46

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.

 

Pièces jointes

• 2022 Contrôle Fact Calcul par Texte.xlsm

  451.5 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2021

• #47

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+

 

Vote positif 0 Vote négatif

P

Piment

XLDnaute Occasionnel

• 14 Octobre 2021

• #48

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2021

• #49

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.

 

Pièces jointes

• 2022 Contrôle Fact Calcul par Texte(1).xlsm

  476 KB · Affichages: 7

Vote positif 1 Vote négatif

Solution

P

Piment

XLDnaute Occasionnel

• 14 Octobre 2021

• #50

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2021

• #51

Bien arrivé à Paris

Piment à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

Piment

XLDnaute Occasionnel

• 15 Octobre 2021

• #52

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Octobre 2021

• #53

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

 

Vote positif 0 Vote négatif

P

Piment

XLDnaute Occasionnel

• 15 Octobre 2021

• #54

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Octobre 2021

• #55

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

 

Vote positif 0 Vote négatif

P

Piment

XLDnaute Occasionnel

• 15 Octobre 2021

• #56

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.

 

Vote positif 0 Vote négatif