Discussion :

[symbiioz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Bonjour

Je ferai comme ceci en utilisant plutôt excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[symbiioz]

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 Merci !