VBA figer un résultat de calcul

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

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