Hello le Forum,
Je cherche à faire, en bout de ligne, la somme de cellules en fonction de l'entête de la colonne (voir fichier joint)
J'ai pu constater depuis tout à l'heure que la fonction sommeprod est compliquée en VBA et que la solution proposée généralement est une boucle.
Le hic est que j'ai déjà plusieurs boucles qui tournent dans le code et j'aimerais ne pas rendre le temps de traitement plus long qu'il ne l'est déjà.
J'avais pensé à un code du style :
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For x = 3 To Range("A65535").End(xlUp).Row
Cells(x, dercol + 1) = Application.WorksheetFunction.SumProduct((Range(Cells(x, 2), Cells(x, dercol)) * (Range(Cells(3, 2), Cells(3, dercol)) = "Part")))
Next x
Mais comme vous vous en doutez, ça ne fonctionne pas !
Si vous avez des idées, je suis preneur.
Thanks
OOlive
Je cherche à faire, en bout de ligne, la somme de cellules en fonction de l'entête de la colonne (voir fichier joint)
J'ai pu constater depuis tout à l'heure que la fonction sommeprod est compliquée en VBA et que la solution proposée généralement est une boucle.
Le hic est que j'ai déjà plusieurs boucles qui tournent dans le code et j'aimerais ne pas rendre le temps de traitement plus long qu'il ne l'est déjà.
J'avais pensé à un code du style :
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For x = 3 To Range("A65535").End(xlUp).Row
Cells(x, dercol + 1) = Application.WorksheetFunction.SumProduct((Range(Cells(x, 2), Cells(x, dercol)) * (Range(Cells(3, 2), Cells(3, dercol)) = "Part")))
Next x
Mais comme vous vous en doutez, ça ne fonctionne pas !
Si vous avez des idées, je suis preneur.
Thanks
OOlive