formule par macro , avoir que le resultat dans la cellule

[GHISLAIN]

bonjour a tous ,


j'utilise une boucle pour mettre une formule dans des cellules :

Dim X As Integer
Sheets("toto").Range("n3:n500").ClearContents
Application.ScreenUpdating = 0
For X = 3 To 500
With Sheets("toto")
.Range("n" & X).Formula = "=IF(RC[-1]="""","""",IF(SUMPRODUCT((ListeB=RC[-1])*ISTEXT(Plage1))=0,"""",SUMPRODUCT((ListeB=RC[-1])*ISTEXT(Plage1))))"
End With
Next X


cela fonctionne , mais je souhaiterai ne garder que le resultat et pas la fomrule dans les cellules

j'ai testé avec
.Range("n" & X).Formularray =

mais ca me rajoute les acolades pour formule matricielle

si quelqu un a une idee pour que seul le resultat s'inscrive sans la formule suis preneur

merci a tous
cordialement

ghislain

 

[bignou77]

Re : formule par macro , avoir que le resultat dans la cellule

Salut GHISLAIN,

la comme ca une solution un peu barbare, tu copie et colle la valeur.

@+

 

[GHISLAIN]

Re : formule par macro , avoir que le resultat dans la cellule

bonjour bignou77,

j y ai pensé mais comme tu dit c est barbare
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

merci de ton aide

cordialement

ghislain

 

[Pierrot93]

Re : formule par macro , avoir que le resultat dans la cellule

Bonjour,

essaye peut être la méthode "evaluate" :

With Sheets("toto")
    .Range("n" & X).Value = Evaluate("=IF(RC[-1]="""","""",IF(SUMPRODUCT((ListeB=RC[-1])*ISTEXT(Plage1))=0,"""",SUMPRODUCT((ListeB=RC[-1])*ISTEXT(Plage1))))")
End With

bonne journée
@+