Sous-totaux et Totaux

Le
Dan
Bonjour,
En cherchant diverses façons je n'arrive toujours pas faire écrire la formule
dans la cellule total chapître TOTAL CHAPITRE

Cela marche très bein pour les sous totaux dans une boucle FOR TO
je fais faire le total CHAPITRE avec un compteur mais
il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps


If ActiveCell = "Référence somme" Then
Lig = ActiveCell.Row
ActiveCell.Offset(1, 15).FormulaR1C1 =
"=RC[-2]/Vérification_Total_HT_Travaux"
ActiveCell.Offset(1, 28).FormulaR1C1 =
"=""±""&FIXED(((RC[-15]-RC[-2])/RC[-15]+(RC[-1]-RC[-15])/RC[-15])/2*100,2)&""%"""
Cells(Lig - 1, 14).Select
Range(Selection, Selection.End(xlUp)).Select
Set Plage = Selection
Plage(Plage.Rows.Count + 2, 1).Formula = "=SUM(" &
Plage.Address(0, 0) & ")"
'Formule de la somme dans les autres colonnes
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 19)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 27)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 28)
Cells(Lig + 1, 19).Select
Total_Chap_FRF = Total_Chap_FRF + ActiveCell.Value
Selection.NumberFormat = "#,##0.00 [$FRF]"
End if

A B C
D

1 Produit Q
PT
2 Chapitre.
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes EU
Poste Pommes de terre 10
55
Poste Haricots verts 8
100
Référence Somme Sous sous total fruits Espagne = 200
Total Sous Chapitre Total Sous-Chapître EU = 400
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes AF
Poste Pommes de terre 100
550
Poste Haricots verts 80
1000
Référence Somme Sous sous total légumes = 2000
Total Sous Chapitre Total Sous-Chapître AF = 4000
TOTAL CHAPITRE TOTAL CHAPITRE = ???

Le tableau a cette structure et comporte + de 10 chapitres et 325 Sous chap
et des sommes sur plusieurs colonnes


+++
Dan
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jac
Le #4618341
Bonjour Dan,

pour moi, ta solution passe par Access qui est le meilleur outil de
reporting à notre disposition.
Tu continues à avoir tes données dans Excel, même sans les calculs car les
calculs peuvent être faits dans Access.
Les états d'impression avec plusieurs niveaux de regroupements se font sans
problème.
Et au niveau du temps de réponse, c'est juste le temps d'affichage.
Et le tout sans vba remis en cause par un quelconque changement de
structure. Il suffit juste que les titres de colonnes ne soient pas
modifiés.
Et ça peut même s'automatiser : un double-clic sur le fichier Access lance
l'impression de tout ce qui a été prévu et fermeture d'Access. A la portée
de tout tout le monde... Et "ça" pourrait même être lancé depuis Excel en
cliquant sur un bouton d'impression personalisé.

On en reparle quand tu veux.

Jac

"Dan"
Bonjour,
En cherchant diverses façons je n'arrive toujours pas faire écrire la
formule
dans la cellule total chapître TOTAL CHAPITRE

Cela marche très bein pour les sous totaux dans une boucle FOR TO
je fais faire le total CHAPITRE avec un compteur mais
il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps


If ActiveCell = "Référence somme" Then
Lig = ActiveCell.Row
ActiveCell.Offset(1, 15).FormulaR1C1 > "=RC[-2]/Vérification_Total_HT_Travaux"
ActiveCell.Offset(1, 28).FormulaR1C1 > "=""±""&FIXED(((RC[-15]-RC[-2])/RC[-15]+(RC[-1]-RC[-15])/RC[-15])/2*100,2)&""%"""
Cells(Lig - 1, 14).Select
Range(Selection, Selection.End(xlUp)).Select
Set Plage = Selection
Plage(Plage.Rows.Count + 2, 1).Formula = "=SUM(" &
Plage.Address(0, 0) & ")"
'Formule de la somme dans les autres colonnes
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 19)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 27)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 28)
Cells(Lig + 1, 19).Select
Total_Chap_FRF = Total_Chap_FRF + ActiveCell.Value
Selection.NumberFormat = "#,##0.00 [$FRF]"
End if

A B C
D

1 Produit Q
PT
2 Chapitre.
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes EU
Poste Pommes de terre 10
55
Poste Haricots verts 8
100
Référence Somme Sous sous total fruits Espagne = 200
Total Sous Chapitre Total Sous-Chapître EU =
400
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes AF
Poste Pommes de terre 100
550
Poste Haricots verts 80
1000
Référence Somme Sous sous total légumes =
2000
Total Sous Chapitre Total Sous-Chapître AF =
4000
TOTAL CHAPITRE TOTAL CHAPITRE =
???

Le tableau a cette structure et comporte + de 10 chapitres et 325 Sous
chap...
et des sommes sur plusieurs colonnes


+++
Dan


Dan
Le #4618161
Bonjour Jac,
Merci pour ta réponse mais Access ne me saura pas util

J'espère trouver ou être aider pour trouver.

--
Dan



Bonjour,
En cherchant diverses façons je n'arrive toujours pas faire écrire la formule
dans la cellule total chapître TOTAL CHAPITRE

Cela marche très bein pour les sous totaux dans une boucle FOR TO
je fais faire le total CHAPITRE avec un compteur mais
il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps


If ActiveCell = "Référence somme" Then
Lig = ActiveCell.Row
ActiveCell.Offset(1, 15).FormulaR1C1 =
"=RC[-2]/Vérification_Total_HT_Travaux"
ActiveCell.Offset(1, 28).FormulaR1C1 =
"=""±""&FIXED(((RC[-15]-RC[-2])/RC[-15]+(RC[-1]-RC[-15])/RC[-15])/2*100,2)&""%"""
Cells(Lig - 1, 14).Select
Range(Selection, Selection.End(xlUp)).Select
Set Plage = Selection
Plage(Plage.Rows.Count + 2, 1).Formula = "=SUM(" &
Plage.Address(0, 0) & ")"
'Formule de la somme dans les autres colonnes
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 19)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 27)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 28)
Cells(Lig + 1, 19).Select
Total_Chap_FRF = Total_Chap_FRF + ActiveCell.Value
Selection.NumberFormat = "#,##0.00 [$FRF]"
End if

A B C
D

1 Produit Q
PT
2 Chapitre.
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes EU
Poste Pommes de terre 10
55
Poste Haricots verts 8
100
Référence Somme Sous sous total fruits Espagne = 200
Total Sous Chapitre Total Sous-Chapître EU = 400
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes AF
Poste Pommes de terre 100
550
Poste Haricots verts 80
1000
Référence Somme Sous sous total légumes = 2000
Total Sous Chapitre Total Sous-Chapître AF = 4000
TOTAL CHAPITRE TOTAL CHAPITRE = ???

Le tableau a cette structure et comporte + de 10 chapitres et 325 Sous chap...
et des sommes sur plusieurs colonnes


+++
Dan


Modeste
Le #4618131
Bonsour® Dan avec ferveur ;o))) vous nous disiez :

il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps

Le tableau a cette structure et comporte + de 10 chapitres et 325
Sous chap... et des sommes sur plusieurs colonnes


Envisagez la solution Tableau Croisé Dynamique !!!

--
--
@+
;o)))

Jac
Le #4618081
Peux-tu me dire pourquoi ?

"Dan"
Bonjour Jac,
Merci pour ta réponse mais Access ne me saura pas util

J'espère trouver ou être aider pour trouver.

--
Dan



Bonjour,
En cherchant diverses façons je n'arrive toujours pas faire écrire la
formule
dans la cellule total chapître TOTAL CHAPITRE

Cela marche très bein pour les sous totaux dans une boucle FOR TO
je fais faire le total CHAPITRE avec un compteur mais
il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps


If ActiveCell = "Référence somme" Then
Lig = ActiveCell.Row
ActiveCell.Offset(1, 15).FormulaR1C1 >> "=RC[-2]/Vérification_Total_HT_Travaux"
ActiveCell.Offset(1, 28).FormulaR1C1 >> "=""±""&FIXED(((RC[-15]-RC[-2])/RC[-15]+(RC[-1]-RC[-15])/RC[-15])/2*100,2)&""%"""
Cells(Lig - 1, 14).Select
Range(Selection, Selection.End(xlUp)).Select
Set Plage = Selection
Plage(Plage.Rows.Count + 2, 1).Formula = "=SUM(" &
Plage.Address(0, 0) & ")"
'Formule de la somme dans les autres colonnes
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 19)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 27)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 28)
Cells(Lig + 1, 19).Select
Total_Chap_FRF = Total_Chap_FRF + ActiveCell.Value
Selection.NumberFormat = "#,##0.00 [$FRF]"
End if

A B C
D

1 Produit Q
PT
2 Chapitre.
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes EU
Poste Pommes de terre 10
55
Poste Haricots verts 8
100
Référence Somme Sous sous total fruits Espagne = 200
Total Sous Chapitre Total Sous-Chapître EU =
400
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes AF
Poste Pommes de terre 100
550
Poste Haricots verts 80
1000
Référence Somme Sous sous total légumes =
2000
Total Sous Chapitre Total Sous-Chapître AF =
4000
TOTAL CHAPITRE TOTAL CHAPITRE =
???

Le tableau a cette structure et comporte + de 10 chapitres et 325 Sous
chap...
et des sommes sur plusieurs colonnes


+++
Dan




Dan
Le #4612101
parce qu'il y a plusieurs dizaine de fichiers Excel (projets), que je charge
et fusionne avec l'appli. ou sont toutes les formules VBA (tout ça marche
superbement bien et vite...

L'utilisateur rajoute ou supprime des postes (tout se recalcul sauf les
sommes de chapître : (
Je suis sur une piste avec les adresses de cellule au moment ou le critère
correspond à un chapître mais bug syntaxe

Access ne saurait calculer le spécifique... ou détecter une incohérence de
forme dans le projet et surtout je suis moins débutant avec Excel :)


+++
Dan



Peux-tu me dire pourquoi ?

"Dan"
Bonjour Jac,
Merci pour ta réponse mais Access ne me saura pas util

J'espère trouver ou être aider pour trouver.

--
Dan



Bonjour,
En cherchant diverses façons je n'arrive toujours pas faire écrire la
formule
dans la cellule total chapître TOTAL CHAPITRE

Cela marche très bein pour les sous totaux dans une boucle FOR TO
je fais faire le total CHAPITRE avec un compteur mais
il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps


If ActiveCell = "Référence somme" Then
Lig = ActiveCell.Row
ActiveCell.Offset(1, 15).FormulaR1C1 > >> "=RC[-2]/Vérification_Total_HT_Travaux"
ActiveCell.Offset(1, 28).FormulaR1C1 > >> "=""±""&FIXED(((RC[-15]-RC[-2])/RC[-15]+(RC[-1]-RC[-15])/RC[-15])/2*100,2)&""%"""
Cells(Lig - 1, 14).Select
Range(Selection, Selection.End(xlUp)).Select
Set Plage = Selection
Plage(Plage.Rows.Count + 2, 1).Formula = "=SUM(" &
Plage.Address(0, 0) & ")"
'Formule de la somme dans les autres colonnes
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 19)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 27)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 28)
Cells(Lig + 1, 19).Select
Total_Chap_FRF = Total_Chap_FRF + ActiveCell.Value
Selection.NumberFormat = "#,##0.00 [$FRF]"
End if

A B C
D

1 Produit Q
PT
2 Chapitre.
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes EU
Poste Pommes de terre 10
55
Poste Haricots verts 8
100
Référence Somme Sous sous total fruits Espagne = 200
Total Sous Chapitre Total Sous-Chapître EU =
400
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes AF
Poste Pommes de terre 100
550
Poste Haricots verts 80
1000
Référence Somme Sous sous total légumes =
2000
Total Sous Chapitre Total Sous-Chapître AF =
4000
TOTAL CHAPITRE TOTAL CHAPITRE =
???

Le tableau a cette structure et comporte + de 10 chapitres et 325 Sous
chap...
et des sommes sur plusieurs colonnes


+++
Dan









Dan
Le #4612081
Bonsoir Modeste

faire des totaux chap + totaux Sous Chap dans un TDC ?
jamais fait,... je vai voir ça,

ça sent le monstre arrachage de synapses !!!

+++
Dan



Bonsour® Dan avec ferveur ;o))) vous nous disiez :

il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps

Le tableau a cette structure et comporte + de 10 chapitres et 325
Sous chap... et des sommes sur plusieurs colonnes


Envisagez la solution Tableau Croisé Dynamique !!!

--
--
@+
;o)))






Jac
Le #4611941
Peux-tu m'envoyer un petit bout de tableau ? N'oublie pas de remplacer
par @ dans mon adresse.

"Dan"
parce qu'il y a plusieurs dizaine de fichiers Excel (projets), que je
charge
et fusionne avec l'appli. ou sont toutes les formules VBA (tout ça marche
superbement bien et vite...

L'utilisateur rajoute ou supprime des postes (tout se recalcul sauf les
sommes de chapître : (
Je suis sur une piste avec les adresses de cellule au moment ou le critère
correspond à un chapître mais bug syntaxe

Access ne saurait calculer le spécifique... ou détecter une incohérence de
forme dans le projet et surtout je suis moins débutant avec Excel :)


+++
Dan



Peux-tu me dire pourquoi ?

"Dan"
Bonjour Jac,
Merci pour ta réponse mais Access ne me saura pas util

J'espère trouver ou être aider pour trouver.

--
Dan



Bonjour,
En cherchant diverses façons je n'arrive toujours pas faire écrire la
formule
dans la cellule total chapître TOTAL CHAPITRE

Cela marche très bein pour les sous totaux dans une boucle FOR TO
je fais faire le total CHAPITRE avec un compteur mais
il ya des postes qui viennent s'inserer et ce tableau est immense
et refaire calculer à chaque fois celà prend du temps


If ActiveCell = "Référence somme" Then
Lig = ActiveCell.Row
ActiveCell.Offset(1, 15).FormulaR1C1 >> >> "=RC[-2]/Vérification_Total_HT_Travaux"
ActiveCell.Offset(1, 28).FormulaR1C1 >> >> "=""±""&FIXED(((RC[-15]-RC[-2])/RC[-15]+(RC[-1]-RC[-15])/RC[-15])/2*100,2)&""%"""
Cells(Lig - 1, 14).Select
Range(Selection, Selection.End(xlUp)).Select
Set Plage = Selection
Plage(Plage.Rows.Count + 2, 1).Formula = "=SUM(" &
Plage.Address(0, 0) & ")"
'Formule de la somme dans les autres colonnes
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 19)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 27)
Plage(Plage.Rows.Count + 2, 1).Copy Cells(Lig + 1, 28)
Cells(Lig + 1, 19).Select
Total_Chap_FRF = Total_Chap_FRF + ActiveCell.Value
Selection.NumberFormat = "#,##0.00 [$FRF]"
End if

A B C
D

1 Produit Q
PT
2 Chapitre.
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total fruits
Espagne = 200
8 Sous-sous chap. Légumes EU
Poste Pommes de terre 10
55
Poste Haricots verts 8
100
Référence Somme Sous sous total fruits Espagne =
200
Total Sous Chapitre Total Sous-Chapître EU >> >> 400
3 Sous-chap. EU
4 Sous-sous chap. Fruits EU
5 Poste Madarines 20
100
6 Poste Oranges 10
100
7 Référence Somme
Sous sous total
fruits
Espagne = 200
8 Sous-sous chap. Légumes AF
Poste Pommes de terre 100
550
Poste Haricots verts 80
1000
Référence Somme Sous sous total légumes >> >> 2000
Total Sous Chapitre Total Sous-Chapître AF >> >> 4000
TOTAL CHAPITRE TOTAL CHAPITRE >> >> ???

Le tableau a cette structure et comporte + de 10 chapitres et 325 Sous
chap...
et des sommes sur plusieurs colonnes


+++
Dan











Publicité
Poster une réponse
Anonyme