Je veux récapituler une série de fiches en un seul bordereau qui donnerait
le total de chacun des éléments constituant ces fiches.
En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
comporte une centaine de fiches et le nombre de postes possibles est
d'environ 600 articles.
Quelqu'un peut-il m'aider?
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
Fredo P.
Cela concerne une consolidation voir le mode opératoire ici et éventuellement la vidéo (posséder l'outils Caméscope de msf) http://frdpst.9online.fr/consolid.htm
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait le total de chacun des éléments constituant ces fiches. En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
Cela concerne une consolidation voir le mode opératoire ici et
éventuellement la vidéo (posséder l'outils Caméscope de msf)
http://frdpst.9online.fr/consolid.htm
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news:OyHLr8STJHA.1172@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait
le total de chacun des éléments constituant ces fiches.
En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
comporte une centaine de fiches et le nombre de postes possibles est
d'environ 600 articles.
Quelqu'un peut-il m'aider?
Cela concerne une consolidation voir le mode opératoire ici et éventuellement la vidéo (posséder l'outils Caméscope de msf) http://frdpst.9online.fr/consolid.htm
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait le total de chacun des éléments constituant ces fiches. En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
Jacky
Bonjour, Je propose ceci '------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:c").Clear With Sheets("Fiches") .[a1:c1].Copy [a1] x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$c$2:$c$" & derlg & "))" End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
-- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait le total de chacun des éléments constituant ces fiches. En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
Bonjour,
Je propose ceci
'------------
Sub jj()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Columns("a:c").Clear
With Sheets("Fiches")
.[a1:c1].Copy [a1]
x = 1
derlg = .Range("a" & .Cells.Rows.Count).End(3).Row
For Each c In .Range("a2:a" & derlg)
If Left(UCase(c), 5) <> "FICHE" And c <> "" Then
If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then
x = x + 1
Cells(x, 1) = c
Cells(x, 2) = c.Offset(0, 1)
Cells(x, 3).Formula = _
"=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x &
")*1,(Fiches!$c$2:$c$" & derlg & "))"
End If
End If
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub
'---------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
--
Salutations
JJ
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OyHLr8STJHA.1172@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait
le total de chacun des éléments constituant ces fiches.
En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
comporte une centaine de fiches et le nombre de postes possibles est
d'environ 600 articles.
Quelqu'un peut-il m'aider?
Bonjour, Je propose ceci '------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:c").Clear With Sheets("Fiches") .[a1:c1].Copy [a1] x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$c$2:$c$" & derlg & "))" End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
-- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait le total de chacun des éléments constituant ces fiches. En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
JB
Bonjour,
vec TCD
http://cjoint.com/?lxl4ZmXn3J
JB http://boisgontierjacques.free.fr/
On 23 nov, 06:48, "Jean-Paul Brine" wrote:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donn erait le total de chacun des éléments constituant ces fiches. Enhttp://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
Bonjour,
vec TCD
http://cjoint.com/?lxl4ZmXn3J
JB
http://boisgontierjacques.free.fr/
On 23 nov, 06:48, "Jean-Paul Brine" <jeanpaulbr...@hotmail.com> wrote:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donn erait
le total de chacun des éléments constituant ces fiches.
Enhttp://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
comporte une centaine de fiches et le nombre de postes possibles est
d'environ 600 articles.
Quelqu'un peut-il m'aider?
Je veux récapituler une série de fiches en un seul bordereau qui donn erait le total de chacun des éléments constituant ces fiches. Enhttp://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
Jean-Paul Brine
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro pour traiter un tableau à 6 colonnes. Je dois ajouter une colonne "prix unitaire", une colonne "unités", une " quantités" et une "prix total". Et evidemment faire la somme des produits= PU x Quantités. J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" a écrit dans le message de news:
Bonjour, Je propose ceci '------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:c").Clear With Sheets("Fiches") .[a1:c1].Copy [a1] x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$c$2:$c$" & derlg & "))" End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
-- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news: > Bonjour, > > Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> le total de chacun des éléments constituant ces fiches. > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité > comporte une centaine de fiches et le nombre de postes possibles est > d'environ 600 articles. > Quelqu'un peut-il m'aider? > > Merci. > > JP > >
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro
pour traiter un tableau à 6 colonnes.
Je dois ajouter une colonne "prix unitaire", une colonne "unités", une "
quantités" et une "prix total".
Et evidemment faire la somme des produits= PU x Quantités.
J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5PHsPVTJHA.5812@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je propose ceci
'------------
Sub jj()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Columns("a:c").Clear
With Sheets("Fiches")
.[a1:c1].Copy [a1]
x = 1
derlg = .Range("a" & .Cells.Rows.Count).End(3).Row
For Each c In .Range("a2:a" & derlg)
If Left(UCase(c), 5) <> "FICHE" And c <> "" Then
If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then
x = x + 1
Cells(x, 1) = c
Cells(x, 2) = c.Offset(0, 1)
Cells(x, 3).Formula = _
"=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x &
")*1,(Fiches!$c$2:$c$" & derlg & "))"
End If
End If
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub
'---------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
--
Salutations
JJ
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OyHLr8STJHA.1172@TK2MSFTNGP03.phx.gbl...
> Bonjour,
>
> Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> le total de chacun des éléments constituant ces fiches.
> En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
> comporte une centaine de fiches et le nombre de postes possibles est
> d'environ 600 articles.
> Quelqu'un peut-il m'aider?
>
> Merci.
>
> JP
>
>
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro pour traiter un tableau à 6 colonnes. Je dois ajouter une colonne "prix unitaire", une colonne "unités", une " quantités" et une "prix total". Et evidemment faire la somme des produits= PU x Quantités. J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" a écrit dans le message de news:
Bonjour, Je propose ceci '------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:c").Clear With Sheets("Fiches") .[a1:c1].Copy [a1] x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$c$2:$c$" & derlg & "))" End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
-- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news: > Bonjour, > > Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> le total de chacun des éléments constituant ces fiches. > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité > comporte une centaine de fiches et le nombre de postes possibles est > d'environ 600 articles. > Quelqu'un peut-il m'aider? > > Merci. > > JP > >
Jacky
Re... Donne un exemple de la finalité de la chose PU x Quantités. par rapport à quoi ??? Comment sont saisie les quantités ?? Celle du tableau 1 -- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news:
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro pour traiter un tableau à 6 colonnes. Je dois ajouter une colonne "prix unitaire", une colonne "unités", une " quantités" et une "prix total". Et evidemment faire la somme des produits= PU x Quantités. J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" a écrit dans le message de news:
Bonjour, Je propose ceci '------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:c").Clear With Sheets("Fiches") .[a1:c1].Copy [a1] x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$c$2:$c$" & derlg & "))" End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
-- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news: > Bonjour, > > Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> le total de chacun des éléments constituant ces fiches. > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité > comporte une centaine de fiches et le nombre de postes possibles est > d'environ 600 articles. > Quelqu'un peut-il m'aider? > > Merci. > > JP > >
Re...
Donne un exemple de la finalité de la chose
PU x Quantités. par rapport à quoi ???
Comment sont saisie les quantités ?? Celle du tableau 1
--
Salutations
JJ
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OHs3I7kTJHA.1908@TK2MSFTNGP04.phx.gbl...
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro
pour traiter un tableau à 6 colonnes.
Je dois ajouter une colonne "prix unitaire", une colonne "unités", une "
quantités" et une "prix total".
Et evidemment faire la somme des produits= PU x Quantités.
J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5PHsPVTJHA.5812@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je propose ceci
'------------
Sub jj()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Columns("a:c").Clear
With Sheets("Fiches")
.[a1:c1].Copy [a1]
x = 1
derlg = .Range("a" & .Cells.Rows.Count).End(3).Row
For Each c In .Range("a2:a" & derlg)
If Left(UCase(c), 5) <> "FICHE" And c <> "" Then
If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then
x = x + 1
Cells(x, 1) = c
Cells(x, 2) = c.Offset(0, 1)
Cells(x, 3).Formula = _
"=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x &
")*1,(Fiches!$c$2:$c$" & derlg & "))"
End If
End If
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub
'---------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
--
Salutations
JJ
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OyHLr8STJHA.1172@TK2MSFTNGP03.phx.gbl...
> Bonjour,
>
> Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> le total de chacun des éléments constituant ces fiches.
> En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
> comporte une centaine de fiches et le nombre de postes possibles est
> d'environ 600 articles.
> Quelqu'un peut-il m'aider?
>
> Merci.
>
> JP
>
>
Re... Donne un exemple de la finalité de la chose PU x Quantités. par rapport à quoi ??? Comment sont saisie les quantités ?? Celle du tableau 1 -- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news:
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro pour traiter un tableau à 6 colonnes. Je dois ajouter une colonne "prix unitaire", une colonne "unités", une " quantités" et une "prix total". Et evidemment faire la somme des produits= PU x Quantités. J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" a écrit dans le message de news:
Bonjour, Je propose ceci '------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:c").Clear With Sheets("Fiches") .[a1:c1].Copy [a1] x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$c$2:$c$" & derlg & "))" End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '--------------- Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
-- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news: > Bonjour, > > Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> le total de chacun des éléments constituant ces fiches. > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité > comporte une centaine de fiches et le nombre de postes possibles est > d'environ 600 articles. > Quelqu'un peut-il m'aider? > > Merci. > > JP > >
Jean-Paul Brine
Bonjour, Me revoila, de grand matin, avec le complément d'information en fichier cjoint http://cjoint.com/?lzgaEJY6jg Merci d'y jeter un oeil averti.
JP
"Jean-Paul Brine" a écrit dans le message de news:
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro pour traiter un tableau à 6 colonnes. Je dois ajouter une colonne "prix unitaire", une colonne "unités", une " quantités" et une "prix total". Et evidemment faire la somme des produits= PU x Quantités. J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" a écrit dans le message de news:
> Bonjour, > Je propose ceci > '------------ > Sub jj() > Application.ScreenUpdating = False > Application.Calculation = xlCalculationManual > Columns("a:c").Clear > With Sheets("Fiches") > .[a1:c1].Copy [a1] > x = 1 > derlg = .Range("a" & .Cells.Rows.Count).End(3).Row > For Each c In .Range("a2:a" & derlg) > If Left(UCase(c), 5) <> "FICHE" And c <> "" Then > If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then > x = x + 1 > Cells(x, 1) = c > Cells(x, 2) = c.Offset(0, 1) > Cells(x, 3).Formula = _ > "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & > ")*1,(Fiches!$c$2:$c$" & derlg & "))" > End If > End If > Next > End With > Application.Calculation = xlCalculationAutomatic > End Sub > '--------------- > Voir ici > http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls > > -- > Salutations > JJ > > > "Jean-Paul Brine" a écrit dans le message de > news: > > Bonjour, > > > > Je veux récapituler une série de fiches en un seul bordereau qui donnerait > > le total de chacun des éléments constituant ces fiches. > > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité > > comporte une centaine de fiches et le nombre de postes possibles est > > d'environ 600 articles. > > Quelqu'un peut-il m'aider? > > > > Merci. > > > > JP > > > > > > >
Bonjour,
Me revoila, de grand matin, avec le complément d'information en fichier
cjoint http://cjoint.com/?lzgaEJY6jg
Merci d'y jeter un oeil averti.
JP
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OHs3I7kTJHA.1908@TK2MSFTNGP04.phx.gbl...
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro
pour traiter un tableau à 6 colonnes.
Je dois ajouter une colonne "prix unitaire", une colonne "unités", une "
quantités" et une "prix total".
Et evidemment faire la somme des produits= PU x Quantités.
J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e5PHsPVTJHA.5812@TK2MSFTNGP05.phx.gbl...
> Bonjour,
> Je propose ceci
> '------------
> Sub jj()
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
> Columns("a:c").Clear
> With Sheets("Fiches")
> .[a1:c1].Copy [a1]
> x = 1
> derlg = .Range("a" & .Cells.Rows.Count).End(3).Row
> For Each c In .Range("a2:a" & derlg)
> If Left(UCase(c), 5) <> "FICHE" And c <> "" Then
> If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then
> x = x + 1
> Cells(x, 1) = c
> Cells(x, 2) = c.Offset(0, 1)
> Cells(x, 3).Formula = _
> "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x &
> ")*1,(Fiches!$c$2:$c$" & derlg & "))"
> End If
> End If
> Next
> End With
> Application.Calculation = xlCalculationAutomatic
> End Sub
> '---------------
> Voir ici
> http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls
>
> --
> Salutations
> JJ
>
>
> "Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
> news: OyHLr8STJHA.1172@TK2MSFTNGP03.phx.gbl...
> > Bonjour,
> >
> > Je veux récapituler une série de fiches en un seul bordereau qui
donnerait
> > le total de chacun des éléments constituant ces fiches.
> > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
> > comporte une centaine de fiches et le nombre de postes possibles est
> > d'environ 600 articles.
> > Quelqu'un peut-il m'aider?
> >
> > Merci.
> >
> > JP
> >
> >
>
>
>
Bonjour, Me revoila, de grand matin, avec le complément d'information en fichier cjoint http://cjoint.com/?lzgaEJY6jg Merci d'y jeter un oeil averti.
JP
"Jean-Paul Brine" a écrit dans le message de news:
C'est exactement ce qui convient. Mais est-il possible d'étendre la macro pour traiter un tableau à 6 colonnes. Je dois ajouter une colonne "prix unitaire", une colonne "unités", une " quantités" et une "prix total". Et evidemment faire la somme des produits= PU x Quantités. J'ai bien tenté de bidouiller mais en vain.
Merci.
JP
"Jacky" a écrit dans le message de news:
> Bonjour, > Je propose ceci > '------------ > Sub jj() > Application.ScreenUpdating = False > Application.Calculation = xlCalculationManual > Columns("a:c").Clear > With Sheets("Fiches") > .[a1:c1].Copy [a1] > x = 1 > derlg = .Range("a" & .Cells.Rows.Count).End(3).Row > For Each c In .Range("a2:a" & derlg) > If Left(UCase(c), 5) <> "FICHE" And c <> "" Then > If Application.CountIf(Range("a2:a" & derlg), c) < 1 Then > x = x + 1 > Cells(x, 1) = c > Cells(x, 2) = c.Offset(0, 1) > Cells(x, 3).Formula = _ > "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & > ")*1,(Fiches!$c$2:$c$" & derlg & "))" > End If > End If > Next > End With > Application.Calculation = xlCalculationAutomatic > End Sub > '--------------- > Voir ici > http://www.cijoint.fr/cjlink.php?file=cj200811/cijUNCfKn9.xls > > -- > Salutations > JJ > > > "Jean-Paul Brine" a écrit dans le message de > news: > > Bonjour, > > > > Je veux récapituler une série de fiches en un seul bordereau qui donnerait > > le total de chacun des éléments constituant ces fiches. > > En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité > > comporte une centaine de fiches et le nombre de postes possibles est > > d'environ 600 articles. > > Quelqu'un peut-il m'aider? > > > > Merci. > > > > JP > > > > > > >
Jacky
Re... '------------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:f").ClearContents With Sheets("Fiches") x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row If derlg < 2 Then MsgBox "Aucune donnée saisie": Exit Sub .[a1:f1].Copy [a1] For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & x + 1), c) = 0 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3) = c.Offset(0, 2) Cells(x, 4).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$d$2:$d$" & derlg & "))" Cells(x, 5) = c.Offset(0, 4) Cells(x, 6).Formula = "=d" & x & " * e" & x End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '------------ Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijiEHMQfq.xls -- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour, Me revoila, de grand matin, avec le complément d'information en fichier cjoint http://cjoint.com/?lzgaEJY6jg Merci d'y jeter un oeil averti.
JP
Re...
'------------------
Sub jj()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Columns("a:f").ClearContents
With Sheets("Fiches")
x = 1
derlg = .Range("a" & .Cells.Rows.Count).End(3).Row
If derlg < 2 Then MsgBox "Aucune donnée saisie": Exit Sub
.[a1:f1].Copy [a1]
For Each c In .Range("a2:a" & derlg)
If Left(UCase(c), 5) <> "FICHE" And c <> "" Then
If Application.CountIf(Range("a2:a" & x + 1), c) = 0 Then
x = x + 1
Cells(x, 1) = c
Cells(x, 2) = c.Offset(0, 1)
Cells(x, 3) = c.Offset(0, 2)
Cells(x, 4).Formula = _
"=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x &
")*1,(Fiches!$d$2:$d$" & derlg & "))"
Cells(x, 5) = c.Offset(0, 4)
Cells(x, 6).Formula = "=d" & x & " * e" & x
End If
End If
Next
End With
Application.Calculation = xlCalculationAutomatic
End Sub
'------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200811/cijiEHMQfq.xls
--
Salutations
JJ
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OsYpssrTJHA.3952@TK2MSFTNGP06.phx.gbl...
Bonjour,
Me revoila, de grand matin, avec le complément d'information en fichier
cjoint http://cjoint.com/?lzgaEJY6jg
Merci d'y jeter un oeil averti.
Re... '------------------ Sub jj() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Columns("a:f").ClearContents With Sheets("Fiches") x = 1 derlg = .Range("a" & .Cells.Rows.Count).End(3).Row If derlg < 2 Then MsgBox "Aucune donnée saisie": Exit Sub .[a1:f1].Copy [a1] For Each c In .Range("a2:a" & derlg) If Left(UCase(c), 5) <> "FICHE" And c <> "" Then If Application.CountIf(Range("a2:a" & x + 1), c) = 0 Then x = x + 1 Cells(x, 1) = c Cells(x, 2) = c.Offset(0, 1) Cells(x, 3) = c.Offset(0, 2) Cells(x, 4).Formula = _ "=SUMPRODUCT((Fiches!$b$2:$b$" & derlg & "=b" & x & ")*1,(Fiches!$d$2:$d$" & derlg & "))" Cells(x, 5) = c.Offset(0, 4) Cells(x, 6).Formula = "=d" & x & " * e" & x End If End If Next End With Application.Calculation = xlCalculationAutomatic End Sub '------------ Voir ici http://www.cijoint.fr/cjlink.php?file=cj200811/cijiEHMQfq.xls -- Salutations JJ
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour, Me revoila, de grand matin, avec le complément d'information en fichier cjoint http://cjoint.com/?lzgaEJY6jg Merci d'y jeter un oeil averti.
JP
Jean-Paul Brine
SUPER. Merci à JB et à Jacky.
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait le total de chacun des éléments constituant ces fiches. En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?
Merci.
JP
SUPER.
Merci à JB et à Jacky.
"Jean-Paul Brine" <jeanpaulbrine@hotmail.com> a écrit dans le message de
news: OyHLr8STJHA.1172@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait
le total de chacun des éléments constituant ces fiches.
En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité
comporte une centaine de fiches et le nombre de postes possibles est
d'environ 600 articles.
Quelqu'un peut-il m'aider?
"Jean-Paul Brine" a écrit dans le message de news:
Bonjour,
Je veux récapituler une série de fiches en un seul bordereau qui donnerait le total de chacun des éléments constituant ces fiches. En http://cjoint.com/?lxgS4IjRNR, l'esquisse du fichier qui en réalité comporte une centaine de fiches et le nombre de postes possibles est d'environ 600 articles. Quelqu'un peut-il m'aider?