récapitulatif d'un tableau

[matou59]

récapitulatif d'un tableau (RESOLU)

Bonjour,

Je voudrais savoir comment faire pour faire un récapitulatif de vente de produits.

C'est un liste de vente de produits opération par opération à laquelle il faudrait ajouter la date de vente mais ceci n'intervient en rien sur le résultat final. En fait c'est un bilan journalier ou mensuel que je veux faire sur chaque produit.

Je pense que je suis assez clair et j'ai joins comme exemple le fichier zip "modele".

merci de bien vouloir m'aider.

 

[lapix]

Re : récapitulatif d'un tableau

Bonjour,

si tu colles cette formule en feuil2 C3 :

=SOMME.SI(Feuil1!A:A;A3;Feuil1!C:C)

tu vas recuperer le total de tes produits
en D c'est simplement =C3*B3

 

[pierrejean]

Re : récapitulatif d'un tableau

bonjour matou59

salut Lapix

version Vba

 

[matou59]

Re : récapitulatif d'un tableau

Bonjour LAPIX et merci de bien vouloir m'aider.
Ta réponse fonctionne trés bien mais a condition d'avoir en feuil2 (la feuille résultat donc) noté en colonne A les noms des produits.
Le probléme est qu'au départ la feuil2 est totalement vierge et que je ne connais pas tous les noms des produits (des dizaines).
Il faut que la colonne A de la feuil2 se remplisse automatiquement lors de la saisie de la feuil1.
Ca se complique et je pense que je ne me suis pas bien expliqué.Excuses...
merci

 

[lapix]

Re : récapitulatif d'un tableau

Re

Bonjour pierrejean.

Je vais laisser a pierrejean le soin de continuer sa macro peut etre.
a moins qu'il souhaite autrement...

 

[Hervé]

Re : récapitulatif d'un tableau

bonjour tout le monde

en attendant l'ami pierrejean, une solution envisageable en piece jointe

Sub toto()
Dim plage As Range, c As Range
Dim data As New Collection
Dim data1 As New Collection
Dim tablo()
Dim i As Integer

Set plage = Sheets("feuil1").Range("a2:a" & Sheets("feuil1").Range("a65536").End(xlUp).Row)

On Error Resume Next
For Each c In plage
    data.Add c, c
    data1.Add c.Offset(0, 1), c
Next c
On Error GoTo 0

ReDim tablo(1 To data.Count, 1 To 4)

For i = 1 To data.Count
    tablo(i, 1) = data(i) 'nom
    tablo(i, 2) = data1(i) 'PU
    tablo(i, 3) = Application.SumIf(plage, data(i), plage.Offset(0, 2)) 'QUANTITE
    tablo(i, 4) = tablo(i, 2) * tablo(i, 3) 'prix total
Next i

Range("a4").Resize(data.Count, 4) = tablo
    
End Sub

salut

 

[matou59]

Re : récapitulatif d'un tableau

Bonsoir et merci à tous de vous etes occupé de mon probléme et de cette super solution qui fonctionne à merveille.
Vous étes des CHAMPIONS...mais je n'en doutais pas un instant....
Jacky

 

[pierrejean]

Re : récapitulatif d'un tableau

re

voila

bon ben comme les carabiniers !!!!

matou: utilise plutot la version Hervé

 

[Celeda]

Re : récapitulatif d'un tableau

Bonsoir,

bon d'accord,

je suis toute petite à côté des mes frères Chevaliers

de l'Ordre d'XLD,

je les vénère et surtout je les envie!!! mais chut je n'ai pas le droit de le dire!!

alors j'ose ici, pauvre Dame xldienne, me glisser et

vous proposer, un simple TCD!!!

et oui!!

oh je n'oserai jamais vous imposer mon Dragon,
mon exaltation!!

mais il me semble que telle la Rose,
que l'on dépose,

au mépris de son sang,
offert aux Chevaliers,

mérite d'un revers de gant,
de la relever et de s'en imprégner !!






Au plaisir, Sieurs Hervé et PerreJean!!

 

[Zon]

Re : récapitulatif d'un tableau

salut,

Celeda, je ne sais toujours pas faire tes beaux TCD, mais tu n'adaptes toujours pas les noms de feuilles dans le code,: tu travailles sur "BD" et non sur "Feuil1" => la faute à Hervé qui ne met toujours pas de constantes dans son code.

Enfin voilà juste de passage pour vous faire coucou, et à bientôt.

A+++

 

[Celeda]

Re : récapitulatif d'un tableau

Bonjour,

C'est bon de t'entendre mon grand!! (c'est quand que tu passes à la maison boire le champagne ?)


ah ah ah ah!! et oui que veux-tu, c'est la fote à Vévé!!!

bon Hervé, tu es puni : copie sans te servir de la poignée de recopie ===>

"je dois placer les constantes car Celeda change tout le temps le nom
des feuilles!!! "

c'est une habitude que j'ai car moi Feuil1,ne me suffit pas à me répérer.



Matou59 : sorry pour cet aparté privé avec Zon!!Merci

 

[Hervé]

Re : récapitulatif d'un tableau

bonjour à tous

j'adore les rapides passages de Zon

Boum sur le nez à hervé.

je prend bonne note de ta remarque

Marie, j'ai fait mes lignes, je te laisses les vérifier une à une (voir pièce jointe)

salut

 

[Celeda]

Re : récapitulatif d'un tableau

Bonjour,


L O L !!!

et vlan sur mon bout du nez aussi!!! j'avais oublié : Sans Macro!!!



petite info quand même : je travaille dur sur vos codes "Tablo"; mais je m'aperçois que tant que je n'aurai pas avalé le béaba, je n'arriverai pas à remplacer les TCD (le but recherché quand même!! ) mais je ne désespère pas....alors je vous remercie de toujours laisser des exemples.