somme.si sur une selection variable

Version imprimable

09/02/2012, 19h59
moi244

1 pièce(s) jointe(s)

somme.si sur une selection variable
Bonjour à tous,
Par Macro, j'aimerais et sur un tableau
- sur la ligne 3, prendre les différents résultats et les mettre dans la colonne A à partir de A9 jusqu'à fin (dans mon exemple 1 dans A9, 2 dans A10, 3 dans A11 et 4 dans A12...etc.).
- dans la Cellule C9, C10...etc, pour chaque résultat affiché dans le point précédent, j'aimerais faire une somme.si (le critère est dans la ligne 1 ="V", la somme se fait sur la ligne 2)
- =SOMME.SI(A1:C1;"=V";A2:C2)
Dansle fichier ci-joint (très colorié) vous trouverz ce que je veux faire.
Merci.
09/02/2012, 20h38
mercatog

Dans C9 tu mets la formule ci-après et tu tires vers le bas

Code:

=SOMMEPROD(($A$1:$N$1="V")*($A$3:$N$3=A9)*($A$2:$N$2))

excuses-moi mercatog mais j'avais préparé un code vba qui vaut ce qu'il vaut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai()
Dim dercol, x, y, z, w
y = 10: w = 1
With Sheets("feuil1")
  dercol = .Range("IV1").End(xlToLeft).Column
  .Range("A9") = .Range("A3")
  For x = 2 To dercol - 1
    If .Cells(3, x) <> .Cells(3, x + 1) Then
      .Range("A" & y) = .Cells(3, x + 1): y = y + 1
    End If
  Next x
  For x = 9 To y - 1
    z = Application.WorksheetFunction.CountIf(.Range(.Cells(3, 1), .Cells(3, dercol)), .Range("a" & x))
    .Range("B" & x) = Application.WorksheetFunction.SumIf(.Range(.Cells(1, w), .Cells(1, w + z - 1)), "V", .Range(.Cells(2, w), .Cells(2, w + z - 1)))
    w = w + z
  Next x
End With
End Sub

bonne soirée à tous