Simplifier formule sommeprod en VBA

vbacrumble

XLDnaute Accro

• 3 Mai 2009

• #2

Re : Simplifier formule sommeprod en VBA

Bonjour



Sélectionne ta cellule (puis fais Outils/Macros/Nouvelle macro

Place le curseur à la fin de la formule puis tape sur ENTREE

Ensuite arrête l'enregistrement de la macro


Va dans VBE, tu auras la macro contenant l'équivalent de la formule en VBA.

Dans cette macro, avant End Sub

saisis la ligne suivante:

ActiveCell.Value=ActiveCell.Value

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 3 Mai 2009

• #3

Re : Simplifier formule sommeprod en VBA

Merci vbacrumble pour ta réponse, c'est exactement ce que je voulais. Par contre la formule dans la fenêtre VBA est très longue et donc difficile à lire sur une ligne. Y-a-t-il un signe, une ponctuation ou je ne sais quoi pour un renvoi à la ligne après chaque condition (*) ...

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 3 Mai 2009

• #4

Re : Simplifier formule sommeprod en VBA

Re



Peux-tu poster le code VBA que tu as obtenu avec l'enregisteur de macro , stp ?

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 3 Mai 2009

• #5

Re : Simplifier formule sommeprod en VBA

Bonjour,

Pour obtenir un renvoi à la ligne dans une formule, tu peux taper Alt Entrée là où tu souhaites ton retour à la ligne.

Ca permet effectivement une lecture plus facile.

Sinon, pas tout analysé ta formule, mais certaines parties peuvent être simplifiées. Par exemple :

TEXTE(64;"0")) --> "64"

Peut-être d'autres simplifications sont-elles envisageables, mais pas évident sans le fichier qui va avec cette formule.

@+

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 3 Mai 2009

• #6

Re : Simplifier formule sommeprod en VBA

Ci-joint le code obtenu en vba :

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B50").FormulaR1C1 = _
"=IF(AND(R1C7=""Toutes"",R2C7=""Toutes""),-SUMPRODUCT((A_MOIS<=12)*((A_ACTIVITE=""PLAGE"")+(A_ACTIVITE=""PLONGEE""))*(LEFT(A_CODE_NATURE,2)=TEXT(64,""0""))*(A_IMPUTE))," & Chr(10) & "IF(AND(R1C7=""Toutes"",R2C7<>""Toutes""),-SUMPRODUCT((LEFT(A_CI_SERVICE,LEN(R2C7))=TEXT(R2C7,""0""))*(A_MOIS<=12)*((A_ACTIVITE=""PLAGE"")+(A_ACTIVITE=""PLONGEE""))*(LEFT(A_CODE_NATURE,2)=TEXT(64,""0""))*(A_IMPUTE)),IF(AND(R1C7<>""Toutes"",R2C7=""Toutes""),-SUMPRODUCT((A_CODE_ETAB=R1C7)*(A_MOIS<=12)*((A_ACTIVITE=""PLAGE"")+(A_ACTIVITE=""PLONGEE""))*(LEFT(A_CODE_NATURE,2)=TEXT(64,""0""))*(A_IMPUTE)),-SUMPRODUCT((A_CODE_ETAB=R1C7)*(LEFT(A_CI_SERVICE,LEN(R2C7))=TEXT(R2C7,""0""))*(A_MOIS<=12)*((A_ACTIVITE=""PLAGE"")+(A_ACTIVITE=""PLONGEE""))*(LEFT(A_CODE_NATURE,2)=TEXT(64,""0""))*(A_IMPUTE)))))"
Range("B50").Select
ActiveCell.Value = ActiveCell.Value

End Sub

Le problème est donc que tout est sur une seule ligne... donc pas très simple pour la lecture.

A+.

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 3 Mai 2009

• #7

Re : Simplifier formule sommeprod en VBA

Encore merci. Je commence déjà avec cela. C'est un bon point de départ.

A+

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 3 Mai 2009

• #8

Re : Simplifier formule sommeprod en VBA

Bonjour Tibo,

J'essaye Alt Entrée mais cela ne fonctionne pas... ? Je travaille avec Excel 2007, je ne sais pas si cette information est importante...?

Erratum, Alt Entrée fonctionne dans la feuille Excel mais je cherche son "équivalent" en VBA...

A+

 

Dernière édition: 3 Mai 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 3 Mai 2009

• #9

Re : Simplifier formule sommeprod en VBA

Re


En VBA c'est l'underscore

Code:

Msgbox "toto" _
& "tatta" _
& "titi"

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 3 Mai 2009

• #10

Re : Simplifier formule sommeprod en VBA

Re bonjour vbacrumble,

J'ai utiliser l'underscore mais sans succès... ci-joint l'exemple utilisé

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[2]C[2], _
100000000)"


End Sub


J'ai comme message Erreur de compilation : erreur de syntaxe.

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 3 Mai 2009

• #11

Re : Simplifier formule sommeprod en VBA

Re

Edition: bonjour Pierrot93 (bing 😉 )

La bonne syntaxe est la suivante

Code:

Sub Macro1()
ActiveCell.FormulaR1C1 = _
        "=SUM(R[2]C:R[2]C[2]," _
        & "100000000)"
End Sub

Il faut que cela reste une String valide, par exemple cette syntaxe sera bonne également

Code:

Sub Macro2()
ActiveCell.FormulaR1C1 = _
        "=SUM(R[2]C" _
        & ":" _
        & "R[2]C[2]" _
        & "," _
        & "1000" _
        & "0" _
        & "0000)"
End Sub

 

Dernière édition: 3 Mai 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 3 Mai 2009

• #12

Re : Simplifier formule sommeprod en VBA

Bonjour,

essayes en modifiant ainsi ton exemple :

Code:

ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[2]C[2]," [COLOR="Red"][B]&  _
"[/B][/COLOR]100000000)"

bonne journée
@+

 

Vote positif 0 Vote négatif

J

jlbox

XLDnaute Nouveau

• 3 Mai 2009

• #13

Re : Simplifier formule sommeprod en VBA

Bonsoir tout le monde,

Merci à tous pour vos réponses. Encore une fois le forum m'a été d'un grand secours.

A+.

 

Vote positif 0 Vote négatif