Sous-totaux et Totaux

Jac

11/07/2007 à 02:06

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" a écrit dans le message de news:

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

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" <dan---@wanadoo.fr> a écrit dans le message de news:
0EE9BF54-3C03-4418-8A96-CF31EFF61401@microsoft.com...

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

Vous avez filtré cet utilisateur ! Consultez son message

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" a écrit dans le message de news:

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

11/07/2007 à 09:52

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

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

Vous avez filtré cet utilisateur ! Consultez son message

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

11/07/2007 à 10:23

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

11/07/2007 à 10:46

Peux-tu me dire pourquoi ?

"Dan" a écrit dans le message de news:

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

Peux-tu me dire pourquoi ?

"Dan" <dan---@wanadoo.fr> a écrit dans le message de news:
2C684EF1-2D2E-40A6-8C93-98D1A74509D1@microsoft.com...

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

Vous avez filtré cet utilisateur ! Consultez son message

Peux-tu me dire pourquoi ?

"Dan" a écrit dans le message de news:

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

11/07/2007 à 19:56

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" a écrit dans le message de news:

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

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" <dan---@wanadoo.fr> a écrit dans le message de news:
2C684EF1-2D2E-40A6-8C93-98D1A74509D1@microsoft.com...

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

Vous avez filtré cet utilisateur ! Consultez son message

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" a écrit dans le message de news:

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

11/07/2007 à 20:10

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

11/07/2007 à 21:22

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

"Dan" a écrit dans le message de news:

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" a écrit dans le message de news:

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

Peux-tu m'envoyer un petit bout de tableau ? N'oublie pas de remplacer
sanssp@am par @ dans mon adresse.

"Dan" <dan---@wanadoo.fr> a écrit dans le message de news:
F2A5F3C1-8557-47C2-B89C-4EF94DDB4486@microsoft.com...

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" <dan---@wanadoo.fr> a écrit dans le message de news:
2C684EF1-2D2E-40A6-8C93-98D1A74509D1@microsoft.com...

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

Vous avez filtré cet utilisateur ! Consultez son message

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

"Dan" a écrit dans le message de news:

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" a écrit dans le message de news:

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

Sous-totaux et Totaux

7 réponses

Veuillez sélectionner un problème