Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Récapituler fiches pour établir un bordereau

Récapituler fiches pour établir un bordereau

8 réponses
Avatar
Jean-Paul Brine
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
Signaler un problème avec ce contenu

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




Avatar
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




Avatar
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


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





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









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




Avatar
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



Avatar
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