Discussion :

[TonyRc]

Bonjour,

Voici mon code qui me permet d'effectuer une sumif à partir d'une array(). Mon code rencontre un problème de poids.

En effet, lorsque j'utilise Array() avec un loop For X= 1 to Ubound (Z) la fonction array () considère Ubound est considéré à 4. Conséquemment, j'ai une limite qui se situe entre 0 et 4 au lieu de 1 à 5.

Comme puis-je corriger ce petit problème?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub calcul_sumif()
 
Dim I As Integer
Dim Caridal As String
Dim Count_nb, region as variant
 
count_nb = WorksheetFunction.CountA(Sheets("data").Range("a:a"))
Cardinal = Array("East", "North", "South", "West", "Central")
 
For I = 0 To UBound(Cardinal) ''''Mon problème ce trouve ici
    region = WorksheetFunction.SumIf(Range("b1: b" & count_nb), Range("f" & I).Value, Range("c1: c" & count_nb))
    Range("g" & I) = region '''' en effet, G0 n'existe pas sur une feuille excel => Erreur 
Next I
 
End Sub

[mayekeul]

bonjour,

euh ben simplement en mettant

Code :

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

For I = 1 To UBound(Cardinal)+1

non?

[TonyRc]

Tu es tout simplement excellent! Le code cours 5 fois à la place de 4.

Bon j'attaque les arrays () à 2 dimensions ... A partir ce code, je souhaite organiser les résultats en fonction du mois et de la région, puis les coller dans une feuille précise pour me sortir un graph.

J'ai pas fini de m'épanouir avec ce nouvel instrument!

[mayekeul]

a noter que tu devrais changer cette ligne

Code :

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

Range("g" & I) = region '''' en effet, G0 n'existe pas sur une feuille excel => Erreur

pour plutot faire comme ça (enfin c'est ce que je ferais moi en tout cas)

Code :

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

1
2
3
4
5
 
For I = 1 To UBound(Cardinal)+1 ''''Mon problème ce trouve ici
    region = WorksheetFunction.SumIf(Range("b1: b" & Count_nb), Range("f" & I).Value, Range("c1: c" & Count_nb))
Next I
Range("G1:G5") = region 'cette plage ne changera pas donc... pas besoin de la mettre dans la boucle

[TonyRc]

Code :

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

1
2
3
4
For I = 1 To UBound(Cardinal)+1 ''''Mon problème ce trouve ici
    region = WorksheetFunction.SumIf(Range("b1: b" & Count_nb), Range("f" & I).Value, Range("c1: c" & Count_nb))
Next I
Range("G1:G5") = region 'cette plage ne changera pas donc... pas besoin de la mettre dans la boucle

J'avais essayé, mais j'obtenais 0 dans les cellules. D'où l'insertion dans la boucle...

[mayekeul]

au temps pour moi, je dis une grosse bétise
fait comme si j'avais rien dis!