somme si suivant valeur colonne

Dull

XLDnaute Barbatruc

• 9 Mai 2012

• #2

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

Code:

=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

Code:

=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

 

Pièces jointes

• Essai kanours.xlsm

  57.1 KB · Affichages: 56
• Essai kanours.xlsm

  57.1 KB · Affichages: 54
• Essai kanours.xlsm

  57.1 KB · Affichages: 51

Vote positif 0 Vote négatif

K

kanours

Guest

• 9 Mai 2012

• #3

Re : somme si suivant valeur colonne

wahoo super rapide, je vais tester ça
merci bien

 

Vote positif 0 Vote négatif

K

kanours

Guest

• 9 Mai 2012

• #4

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)

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 9 Mai 2012

• #5

Re : somme si suivant valeur colonne

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

 

Pièces jointes

• Essai kanours.xlsm

  64.5 KB · Affichages: 53
• Essai kanours.xlsm

  64.5 KB · Affichages: 54
• Essai kanours.xlsm

  64.5 KB · Affichages: 52

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 9 Mai 2012

• #6

Re : somme si suivant valeur colonne

Re le Fil
Salut Rachid 🙂

à coller dans le code du Bouton

Code:

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

 

Pièces jointes

• Essai kanours V2.xlsm

  53.8 KB · Affichages: 54

Vote positif 0 Vote négatif

K

kanours

Guest

• 9 Mai 2012

• #7

Re : somme si suivant valeur colonne

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

 

Vote positif 0 Vote négatif