somme si suivant valeur colonne

[kanours]

Bonjour,
J'ai un petit problème, j'espère que vous pouvez m'aider.
J'ai un fichier excel, avec lequel j'importe plusieurs classeur pour prendre des valeurs et les mettre sous forme de tableau ( boutton "GO").
Ensuite, je tri les valeurs suivant le client ou le produit.

Jusque la, pas de problème.
La ou je coince, c'est que j'aimerai ( en VBA):
- Si c'est trié par produit: récupérer le nom des produits et et indiquer la quantité total
- Si c'est trié par client: indiquer les produits et la quantité par client

Je sasi pas si c'est clair, mais c'est plus parlant sur la feuille excel.

Pouvez vous m'aider?
merci

 

[Dull]

Re : somme si suivant valeur colonne

Salut kanours et Bienvenue sur XLD, le Forum

un essai en pièce jointe
Pour avoir la liste des items sans Doublons

=INDEX($B$1:$B$100;MIN(SI(NB.SI(G$11:G11;B$3:B$100)=0;SI(B$3:B$100<>"";LIGNE(B$3:B$100)))))&""

Matricielle à valider avec Ctrl+Maj+Entrée en G12 et à copier vers le Bas
et

=SOMMEPROD(($B$3:$B$100=$G12)*($D$3:$D$100)*($E$3:$E$100))

en H12, à valider avec entrée et à copier vers le bas

A Tester

Bonne Journée

 

[kanours]

Re : somme si suivant valeur colonne

wahoo super rapide, je vais tester ça
merci bien

 

[kanours]

Re : somme si suivant valeur colonne

J'ai testé, c'est presque ce qu'il me faut !!

Pour le moment le tableau s'arrête à E100 mais il s'agrandi presque tous les jours.
C'est possible d'avoir la même chose en VBA à l'aide du bouton commande? je trouve ça plus simple à utiliser, plus évolutif et le but est d'intervenir le moins possible sur la feuille (je la protègerai sauf les bouttons de commandes)

 

[R@chid]

Re : somme si suivant valeur colonne

Bonjour @ tous,
Salut Dull,
Un essai avec TCD
Voir PJ
Amicalement

 

[Dull]

Re : somme si suivant valeur colonne

Re le Fil
Salut Rachid 🙂

à coller dans le code du Bouton

Option Explicit
Dim C As Range, MonDico As Object

Sub Essai() 'By JB
 Set MonDico = CreateObject("Scripting.Dictionary")
  For Each C In Range("B3", [B65536].End(xlUp))
    MonDico(C.Value) = MonDico(C.Value) + (C.Offset(, 2).Value * C.Offset(, 3).Value)
  Next C
[G12].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
[H12].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.Items)
End Sub

Bonne Journée

 

[kanours]

Re : somme si suivant valeur colonne

Nickel Dull, c'est ce que je voulais.
Reste plus qu'a essayé de comprendre
Merci à vous 2