VBA figer un résultat de calcul

[bertgrav]

bonjour,

comment figer un résulat aprés une formule de calcul sous VBA

Que mettre aprés cette formule:

ActiveCell.FormulaR1C1 = '=RC[-2]*RC[-1]'

pour ne pas voir affiché une fonction de calcul =A1*B1 mais le résultat.


merci

chantal

 

[Staple1600]

Bonjour


Une solution (pas des plus jolie à mon sens)

Sub Macro2()
With ActiveCell
.FormulaR1C1 = '=RC[-2]*RC[-1]'
.Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
End Sub

 

[Staple1600]

C'est que j'ai essayé d'abord
mais j'avais un message d'erreur


En retestant à nouveau plus de message d'erreur

Je me suis aperçu que qu'on pouvait aussi:

ActiveCell.Value = ActiveCell.Offset(, -2).Value * ActiveCell.Offset(, -1).Value
(ce qui est normal, puisque facultatif)

et plus bizarre ça aussi

ActiveCell.Value = ActiveCell.Offset(abcdefgh, -2).Value * ActiveCell.Offset(ijklmnopqr, -1).Value

Apparemment on peut mettre ce qu'on veut et ca fonctionne
tout de même

Why?

Message édité par: staple1600, à: 27/09/2005 14:06