Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Feuille de synthèse

Feuille de synthèse

10 réponses
Avatar
AZERTY
Bonjour à tous,

Sous excel j'ai une première feuille qui contient des ventes d'articles A:
DATE / CLIENT / QUANTITE / PRIX


La deuxième feuille contient pareil pour l'article B, la troisième pour
l'article C, etc.

Je voudrais faire une feuille qui synthétise toutes ces ventes, dans l'ordre
chonologique, c'est-à-dire qu'à la fin, j'ai une feuille qui contient les
données telles que:


DATE ARTICLE QUANTITE PRIX
15/01/2005 A 15 30?
15/01/2005 B 21 63?
16/01/2005 A 8 16?
16/01/2005 B 11 33?
16/01/2005 C 3 120?
...

31/01/2005 A 6 12?
31/01/2005 B 7 21?
31/01/2005 C 1 40?

CUMUL MENSUEL
JANVIER A 224 448?
JANVIER B 175 525?
JANVIER C 19 760?

Tout cela automatiquement bien sûr, hormi la saisie, et sans ligne vide s'il
n'y a pas de vente tel jour....

Pouvez-vous m'aider?

Merci.

Az
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Cage à lapins
Bonjour,

Manuellement il faudrait copier/coller le tableau de la 1ere feuille, puis
copier/coller le tableau de la 2eme feuille en dessous, puis le 3eme tableau
encore en dessous, trier la synthèse sur la date et le code article et enfin
ajouter les lignes pour les totaux.
La même chose peut être facilement réalisée automatiquement pour peu que
l'on sache borner les tableaux source (nombre de lignes et de colonnes).
Est-ce que les tableaux ont une taille maxi (31 lignes par exemple) ou pas ?

"AZERTY" wrote:

Bonjour à tous,

Sous excel j'ai une première feuille qui contient des ventes d'articles A:
DATE / CLIENT / QUANTITE / PRIX


La deuxième feuille contient pareil pour l'article B, la troisième pour
l'article C, etc.

Je voudrais faire une feuille qui synthétise toutes ces ventes, dans l'ordre
chonologique, c'est-à-dire qu'à la fin, j'ai une feuille qui contient les
données telles que:


DATE ARTICLE QUANTITE PRIX
15/01/2005 A 15 30?
15/01/2005 B 21 63?
16/01/2005 A 8 16?
16/01/2005 B 11 33?
16/01/2005 C 3 120?
....

31/01/2005 A 6 12?
31/01/2005 B 7 21?
31/01/2005 C 1 40?

CUMUL MENSUEL
JANVIER A 224 448?
JANVIER B 175 525?
JANVIER C 19 760?

Tout cela automatiquement bien sûr, hormi la saisie, et sans ligne vide s'il
n'y a pas de vente tel jour....

Pouvez-vous m'aider?

Merci.

Az





Avatar
AZERTY
Non, pas forcément de limite. Cependant on peut évaluer à une 30
effectivement le nombre de lignes max de chaque feuille. En mettant 60 en
taille ax, on est sûr...
Pour le nombre de colonnes, c'est un max de 7...


Az


"Cage à lapins" a écrit dans le
message de news:
Bonjour,

Manuellement il faudrait copier/coller le tableau de la 1ere feuille, puis
copier/coller le tableau de la 2eme feuille en dessous, puis le 3eme
tableau
encore en dessous, trier la synthèse sur la date et le code article et
enfin
ajouter les lignes pour les totaux.
La même chose peut être facilement réalisée automatiquement pour peu que
l'on sache borner les tableaux source (nombre de lignes et de colonnes).
Est-ce que les tableaux ont une taille maxi (31 lignes par exemple) ou pas
?

"AZERTY" wrote:

Bonjour à tous,

Sous excel j'ai une première feuille qui contient des ventes d'articles
A:
DATE / CLIENT / QUANTITE / PRIX


La deuxième feuille contient pareil pour l'article B, la troisième pour
l'article C, etc.

Je voudrais faire une feuille qui synthétise toutes ces ventes, dans
l'ordre
chonologique, c'est-à-dire qu'à la fin, j'ai une feuille qui contient les
données telles que:


DATE ARTICLE QUANTITE PRIX
15/01/2005 A 15 30?
15/01/2005 B 21 63?
16/01/2005 A 8 16?
16/01/2005 B 11 33?
16/01/2005 C 3 120?
....

31/01/2005 A 6 12?
31/01/2005 B 7 21?
31/01/2005 C 1 40?

CUMUL MENSUEL
JANVIER A 224 448?
JANVIER B 175 525?
JANVIER C 19 760?

Tout cela automatiquement bien sûr, hormi la saisie, et sans ligne vide
s'il
n'y a pas de vente tel jour....

Pouvez-vous m'aider?

Merci.

Az







Avatar
AV
Tu devrais sérieusement envisager de réorganiser tes données (en 1 seul
tableau)...

AV
Avatar
AZERTY
Qu'est-ce que ça change?
Est-il plus facile d'avoir les données saisies dans un seul tableau puis
redispatchées dans différentes feuilles?

Az



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

Tu devrais sérieusement envisager de réorganiser tes données (en 1 seul
tableau)...

AV




Avatar
AV
Qu'est-ce que ça change?


Tout !!
--> Accès facile à tous les outils d'analyse XL....

AV

Avatar
AZERTY
Tu peux me faire une 'tite explication?

Az


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

Qu'est-ce que ça change?


Tout !!
--> Accès facile à tous les outils d'analyse XL....

AV





Avatar
AZERTY
J'ai essayé via TCD, mais c'est pas top...

Az


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

Qu'est-ce que ça change?


Tout !!
--> Accès facile à tous les outils d'analyse XL....

AV





Avatar
Cage à lapins
J'ai une solution à te proposer mais c'est pas top. Tu peux toujours t'en
inspirer sauf si on te propose mieux.
On suppose que tu as 4 feuilles : "ART1", "ART2", "ART3" & "Synthese". Sur
les 3 premières feuilles (relatives à tes articles) tu as 3 plages nommées
TABL1 (sur ART1), TABL2 (sur ART2) et TABL3 sur ART3.
Voici la macro :
Sub Creer_Synthese()
Dim ligne As Integer

'Effacer le contenu de la feuille de synthèse
Sheets("Synthese").Cells.ClearContents

'Recopier le tableau 1
Sheets("ART1").Select
Application.Goto Reference:="TABL1"
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
ActiveSheet.Paste

'Se positionner sur la prochaine ligne pour coller le tableau 2
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate

'Recopier le tableau 2
Sheets("ART2").Select
Application.Goto Reference:="TABL2"
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
ActiveSheet.Paste

'Se positionner sur la prochaine ligne pour coller le tableau 3
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate

'Recopier le tableau 3
Sheets("ART3").Select
Application.Goto Reference:="TABL3"
Selection.Copy
Sheets("Synthèse").Select
Range("A1").Select
ActiveSheet.Paste

'Trier la synthèse par date et par article
Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("B1"), Order2:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom

'Se positionner sur la fin du tableau
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row

'Renseigner la référence ARTICLE
Cells(ligne + 1, 2).Value = "A"
Cells(ligne + 2, 2).Value = "B"
Cells(ligne + 3, 2).Value = "C"

'Renseigner les totaux QTE
Cells(ligne + 1, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne & _
"]C[-1]:R[-1]C[-1],RC[-1],R[-" & _
ligne & _
"]C:R[-1]C)"
Cells(ligne + 2, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 1 & _
"]C[-1]:R[-2]C[-1],RC[-1],R[-" & _
ligne + 1 & _
"]C:R[-2]C)"
Cells(ligne + 3, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 2 & _
"]C[-1]:R[-3]C[-1],RC[-1],R[-" & _
ligne + 2 & _
"]C:R[-3]C)"

'Renseigner les totaux PRIX
Cells(ligne + 1, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne & _
"]C[-2]:R[-1]C[-2],RC[-2],R[-" & _
ligne & _
"]C:R[-1]C)"
Cells(ligne + 2, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 1 & _
"]C[-2]:R[-2]C[-2],RC[-2],R[-" & _
ligne + 1 & _
"]C:R[-2]C)"
Cells(ligne + 3, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 2 & _
"]C[-2]:R[-3]C[-2],RC[-2],R[-" & _
ligne + 2 & _
"]C:R[-3]C)"
End Sub


"AZERTY" wrote:

Non, pas forcément de limite. Cependant on peut évaluer à une 30
effectivement le nombre de lignes max de chaque feuille. En mettant 60 en
taille ax, on est sûr...
Pour le nombre de colonnes, c'est un max de 7...


Az


"Cage à lapins" a écrit dans le
message de news:
Bonjour,

Manuellement il faudrait copier/coller le tableau de la 1ere feuille, puis
copier/coller le tableau de la 2eme feuille en dessous, puis le 3eme
tableau
encore en dessous, trier la synthèse sur la date et le code article et
enfin
ajouter les lignes pour les totaux.
La même chose peut être facilement réalisée automatiquement pour peu que
l'on sache borner les tableaux source (nombre de lignes et de colonnes).
Est-ce que les tableaux ont une taille maxi (31 lignes par exemple) ou pas
?

"AZERTY" wrote:

Bonjour à tous,

Sous excel j'ai une première feuille qui contient des ventes d'articles
A:
DATE / CLIENT / QUANTITE / PRIX


La deuxième feuille contient pareil pour l'article B, la troisième pour
l'article C, etc.

Je voudrais faire une feuille qui synthétise toutes ces ventes, dans
l'ordre
chonologique, c'est-à-dire qu'à la fin, j'ai une feuille qui contient les
données telles que:


DATE ARTICLE QUANTITE PRIX
15/01/2005 A 15 30?
15/01/2005 B 21 63?
16/01/2005 A 8 16?
16/01/2005 B 11 33?
16/01/2005 C 3 120?
....

31/01/2005 A 6 12?
31/01/2005 B 7 21?
31/01/2005 C 1 40?

CUMUL MENSUEL
JANVIER A 224 448?
JANVIER B 175 525?
JANVIER C 19 760?

Tout cela automatiquement bien sûr, hormi la saisie, et sans ligne vide
s'il
n'y a pas de vente tel jour....

Pouvez-vous m'aider?

Merci.

Az












Avatar
AZERTY
Ola, c'est à regarder de près, ça !
Qu'est-ce que tu appelles TABL1, TABL2 et TABL3?


Az



"Cage à lapins" a écrit dans le
message de news:
J'ai une solution à te proposer mais c'est pas top. Tu peux toujours t'en
inspirer sauf si on te propose mieux.
On suppose que tu as 4 feuilles : "ART1", "ART2", "ART3" & "Synthese". Sur
les 3 premières feuilles (relatives à tes articles) tu as 3 plages nommées
TABL1 (sur ART1), TABL2 (sur ART2) et TABL3 sur ART3.
Voici la macro :
Sub Creer_Synthese()
Dim ligne As Integer

'Effacer le contenu de la feuille de synthèse
Sheets("Synthese").Cells.ClearContents

'Recopier le tableau 1
Sheets("ART1").Select
Application.Goto Reference:="TABL1"
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
ActiveSheet.Paste

'Se positionner sur la prochaine ligne pour coller le tableau 2
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate

'Recopier le tableau 2
Sheets("ART2").Select
Application.Goto Reference:="TABL2"
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
ActiveSheet.Paste

'Se positionner sur la prochaine ligne pour coller le tableau 3
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate

'Recopier le tableau 3
Sheets("ART3").Select
Application.Goto Reference:="TABL3"
Selection.Copy
Sheets("Synthèse").Select
Range("A1").Select
ActiveSheet.Paste

'Trier la synthèse par date et par article
Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("B1"), Order2:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom

'Se positionner sur la fin du tableau
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row

'Renseigner la référence ARTICLE
Cells(ligne + 1, 2).Value = "A"
Cells(ligne + 2, 2).Value = "B"
Cells(ligne + 3, 2).Value = "C"

'Renseigner les totaux QTE
Cells(ligne + 1, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne & _
"]C[-1]:R[-1]C[-1],RC[-1],R[-" & _
ligne & _
"]C:R[-1]C)"
Cells(ligne + 2, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 1 & _
"]C[-1]:R[-2]C[-1],RC[-1],R[-" & _
ligne + 1 & _
"]C:R[-2]C)"
Cells(ligne + 3, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 2 & _
"]C[-1]:R[-3]C[-1],RC[-1],R[-" & _
ligne + 2 & _
"]C:R[-3]C)"

'Renseigner les totaux PRIX
Cells(ligne + 1, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne & _
"]C[-2]:R[-1]C[-2],RC[-2],R[-" & _
ligne & _
"]C:R[-1]C)"
Cells(ligne + 2, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 1 & _
"]C[-2]:R[-2]C[-2],RC[-2],R[-" & _
ligne + 1 & _
"]C:R[-2]C)"
Cells(ligne + 3, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 2 & _
"]C[-2]:R[-3]C[-2],RC[-2],R[-" & _
ligne + 2 & _
"]C:R[-3]C)"
End Sub


"AZERTY" wrote:

Non, pas forcément de limite. Cependant on peut évaluer à une 30
effectivement le nombre de lignes max de chaque feuille. En mettant 60 en
taille ax, on est sûr...
Pour le nombre de colonnes, c'est un max de 7...


Az


"Cage à lapins" a écrit dans le
message de news:
Bonjour,

Manuellement il faudrait copier/coller le tableau de la 1ere feuille,
puis
copier/coller le tableau de la 2eme feuille en dessous, puis le 3eme
tableau
encore en dessous, trier la synthèse sur la date et le code article et
enfin
ajouter les lignes pour les totaux.
La même chose peut être facilement réalisée automatiquement pour peu
que
l'on sache borner les tableaux source (nombre de lignes et de
colonnes).
Est-ce que les tableaux ont une taille maxi (31 lignes par exemple) ou
pas
?

"AZERTY" wrote:

Bonjour à tous,

Sous excel j'ai une première feuille qui contient des ventes
d'articles
A:
DATE / CLIENT / QUANTITE / PRIX


La deuxième feuille contient pareil pour l'article B, la troisième
pour
l'article C, etc.

Je voudrais faire une feuille qui synthétise toutes ces ventes, dans
l'ordre
chonologique, c'est-à-dire qu'à la fin, j'ai une feuille qui contient
les
données telles que:


DATE ARTICLE QUANTITE PRIX
15/01/2005 A 15 30?
15/01/2005 B 21 63?
16/01/2005 A 8 16?
16/01/2005 B 11 33?
16/01/2005 C 3 120?
....

31/01/2005 A 6 12?
31/01/2005 B 7 21?
31/01/2005 C 1 40?

CUMUL MENSUEL
JANVIER A 224 448?
JANVIER B 175 525?
JANVIER C 19 760?

Tout cela automatiquement bien sûr, hormi la saisie, et sans ligne
vide
s'il
n'y a pas de vente tel jour....

Pouvez-vous m'aider?

Merci.

Az














Avatar
Cage à lapins
Ce sont des plages nommées.
Pour les créer il faut :
1) sélectionner une plage de cellules (ton tableau de données de la feuille
ART1 par exemple)
2) Cliquer dans la combobox qui est à gauche de la barre de formule (elle
contient le nom de la cellule active)
3) Inscrire le nom que tu veux donner à la plage sélectionnée (donc dans
l'exemple TABL1) + ENTER

Lorsque tu veux ensuite faire référence à cette plage tu peux donc utiliser
son nom soit en le sélectionnant dans la combox où tu l'a créé, soit dans tes
macros.


"AZERTY" wrote:

Ola, c'est à regarder de près, ça !
Qu'est-ce que tu appelles TABL1, TABL2 et TABL3?


Az



"Cage à lapins" a écrit dans le
message de news:
J'ai une solution à te proposer mais c'est pas top. Tu peux toujours t'en
inspirer sauf si on te propose mieux.
On suppose que tu as 4 feuilles : "ART1", "ART2", "ART3" & "Synthese". Sur
les 3 premières feuilles (relatives à tes articles) tu as 3 plages nommées
TABL1 (sur ART1), TABL2 (sur ART2) et TABL3 sur ART3.
Voici la macro :
Sub Creer_Synthese()
Dim ligne As Integer

'Effacer le contenu de la feuille de synthèse
Sheets("Synthese").Cells.ClearContents

'Recopier le tableau 1
Sheets("ART1").Select
Application.Goto Reference:="TABL1"
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
ActiveSheet.Paste

'Se positionner sur la prochaine ligne pour coller le tableau 2
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate

'Recopier le tableau 2
Sheets("ART2").Select
Application.Goto Reference:="TABL2"
Selection.Copy
Sheets("Synthese").Select
Range("A1").Select
ActiveSheet.Paste

'Se positionner sur la prochaine ligne pour coller le tableau 3
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row
Cells(ligne + 1, 1).Activate

'Recopier le tableau 3
Sheets("ART3").Select
Application.Goto Reference:="TABL3"
Selection.Copy
Sheets("Synthèse").Select
Range("A1").Select
ActiveSheet.Paste

'Trier la synthèse par date et par article
Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("B1"), Order2:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:úlse, _
Orientation:=xlTopToBottom

'Se positionner sur la fin du tableau
ActiveCell.SpecialCells(xlLastCell).Activate
ligne = ActiveCell.Row

'Renseigner la référence ARTICLE
Cells(ligne + 1, 2).Value = "A"
Cells(ligne + 2, 2).Value = "B"
Cells(ligne + 3, 2).Value = "C"

'Renseigner les totaux QTE
Cells(ligne + 1, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne & _
"]C[-1]:R[-1]C[-1],RC[-1],R[-" & _
ligne & _
"]C:R[-1]C)"
Cells(ligne + 2, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 1 & _
"]C[-1]:R[-2]C[-1],RC[-1],R[-" & _
ligne + 1 & _
"]C:R[-2]C)"
Cells(ligne + 3, 3).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 2 & _
"]C[-1]:R[-3]C[-1],RC[-1],R[-" & _
ligne + 2 & _
"]C:R[-3]C)"

'Renseigner les totaux PRIX
Cells(ligne + 1, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne & _
"]C[-2]:R[-1]C[-2],RC[-2],R[-" & _
ligne & _
"]C:R[-1]C)"
Cells(ligne + 2, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 1 & _
"]C[-2]:R[-2]C[-2],RC[-2],R[-" & _
ligne + 1 & _
"]C:R[-2]C)"
Cells(ligne + 3, 4).FormulaR1C1 = "=SUMIF(R[-" & _
ligne + 2 & _
"]C[-2]:R[-3]C[-2],RC[-2],R[-" & _
ligne + 2 & _
"]C:R[-3]C)"
End Sub


"AZERTY" wrote:

Non, pas forcément de limite. Cependant on peut évaluer à une 30
effectivement le nombre de lignes max de chaque feuille. En mettant 60 en
taille ax, on est sûr...
Pour le nombre de colonnes, c'est un max de 7...


Az


"Cage à lapins" a écrit dans le
message de news:
Bonjour,

Manuellement il faudrait copier/coller le tableau de la 1ere feuille,
puis
copier/coller le tableau de la 2eme feuille en dessous, puis le 3eme
tableau
encore en dessous, trier la synthèse sur la date et le code article et
enfin
ajouter les lignes pour les totaux.
La même chose peut être facilement réalisée automatiquement pour peu
que
l'on sache borner les tableaux source (nombre de lignes et de
colonnes).
Est-ce que les tableaux ont une taille maxi (31 lignes par exemple) ou
pas
?

"AZERTY" wrote:

Bonjour à tous,

Sous excel j'ai une première feuille qui contient des ventes
d'articles
A:
DATE / CLIENT / QUANTITE / PRIX


La deuxième feuille contient pareil pour l'article B, la troisième
pour
l'article C, etc.

Je voudrais faire une feuille qui synthétise toutes ces ventes, dans
l'ordre
chonologique, c'est-à-dire qu'à la fin, j'ai une feuille qui contient
les
données telles que:


DATE ARTICLE QUANTITE PRIX
15/01/2005 A 15 30?
15/01/2005 B 21 63?
16/01/2005 A 8 16?
16/01/2005 B 11 33?
16/01/2005 C 3 120?
....

31/01/2005 A 6 12?
31/01/2005 B 7 21?
31/01/2005 C 1 40?

CUMUL MENSUEL
JANVIER A 224 448?
JANVIER B 175 525?
JANVIER C 19 760?

Tout cela automatiquement bien sûr, hormi la saisie, et sans ligne
vide
s'il
n'y a pas de vente tel jour....

Pouvez-vous m'aider?

Merci.

Az