[XL-2003] somme.si sur une selection variable

[moi244]

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.

[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))

[casefayere]

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