Discussion :

[toumcdg]

Bonjour,

Novice en VBA, j'aimerais retranscrire une formule Excel sous VBA pour éviter d'alourdir mon fichier.

La formule est la suivaine :

Code :

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

1
2
SUMIFS(Chiffre_Affaires);Mois;Taux!R$2; Cust._1;Taux!$A110;Material_Category_Key;Taux!$k110; Cust._3;IF(ISBLANK(Taux!$C110);"*";Taux!$C110);Taux!$E110); Brand_1;$G3;
Brand_2;IF(ISBLANK(Taux!$H110);"*";Taux!$H110))

Et voici le début de formule qui fonctionne :

Code :

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

Sheets("Taux").Cells(i, 30).Value = WorksheetFunction.SumIfs(Sheets("BO").Range(CA), [Mois], Sheets("Taux").Range("r2"), [Cust._1], Sheets("Taux").Range("a" & i), [Material_Category_Key], Sheets("Taux").Range("k" & i))

Je bloque au moment de rendre l'argument facultatif pour les cust 3 et Brand 2 si la cellule du ces critères est vide.

Je ne sais pas si c'est clair...

Merci d'avance

[Qwazerty]

Salut

Peux tu nous en dire plus.
En quoi passer un formule en VBA allégerait ton fichier, Excel est un tableau, contenir des formule c'est son bouleau, c'est souvent le code VBA, surtout si mal métrisé (ni vois aucune offense) qui risque de fortement alourdir son fonctionnement.

S'il n'y a rien de confidentiel, peux-tu nous mettre au moins un extrait de ton fichier, il est peut-être possible d'améliorer sa structure avant de passer sur du VBA.

Sinon pour répondre à ta question, il faudrait probablement écrire deux formules une avec Brand2 et Curt3 et l'autre sans et choisir l'une ou l'autre en fonction d'un critère mais il faudrait nous dire quel est ce critère.
Ou carrément faire une boucle et laisser tomber WorksheetFunction.SumIfs

++
Qwaz