[XL-2016] SumIfs dans un tableau de Variants

SumIfs dans un tableau de Variants

Bonjour,

Pour simplifier le temps de traitement d'un code, je souhaite faire un calcul par le biais d'un tableau plutot que directement sur la feuille excel.
A la base mon calcul fonctionne très bien et cela donne :
Code:

1 2 3 4 5 6 j = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To j Cells(i, 11) = Application.WorksheetFunction.SumIfs(Range(Cells(2, 10), Cells(j, 10)), _ Range(Cells(2, 2), Cells(j, 2)), Cells(i, 2), Range(Cells(2, 9), Cells(j, 9)), Cells(i, 9)) Next
Pour le mettre en tableau voilà ce que j'ai tenté :
Code:

1 2 3 4 5 6 7 Dim T As Variant, H As Variant, L As Variant T = Range(Cells(2, 2), Cells(j, 11)) For H = LBound(T, 1) To UBound(T, 1) T(H, 10) = Application.WorksheetFunction.SumIfs(Range(T(1, 9), T(UBound(T, 1), 9)), _ Range(T(1, 1), T(UBound(T, 1), 1)), T(H, 1), Range(T(1, 8), T(UBound(T, 1), 8)), T(H, 8)) Next H Range(Cells(2, 2), Cells(j, 11)) = T
Mais les méthodes 'Range()' échouent toutes..

Comment faut-il utiliser la fonction SumIfs et les ranges() dans un tableau de variants ??

Si besoin de plus de compréhension, je mettrais un partie de mon fichier excel (modifié) qui nécessite cette fonction.

Merci d'avance,
Julien

Bonjour

Je ferai comme ceci en utilisant plutôt excel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub TEST()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 2).End(xlUp).Row
    With .Range("K2:K" & LastLig)
        .Formula = "=SUMIFS($J$2:$J$" & LastLig & ",$B$2:$B$" & LastLig & ",$B2,$I$2:$I$" & LastLig & ",$I2)"
        .Value = .Value
    End With
End With
End Sub

Bonjour,

C'est vrai que j'aurais bien aimé savoir comment faire via un array mais j'ai testé ta solution et c'est autant efficace. Du coup je vais l'utiliser 8-) Merci !