Formules à partir de cellules actives

Bonjour à tous, étant néophyte en VBA, je sollicite votre aide !

Je voudrais calculer le produit de 2 cellules dont l'adresse peut varier dans une cellule dont l'adresse est connue et fixée. Tout ceci ne me poserait pas de problème si je n'avais pas à utiliser la fonction formula, que je dois faire apparaître obligatoirement.

Si je ne suis pas très clair, voici ce que j'aimerais obtenir sous forme de code (celui-ci étant faux !) :

Code:

---

1 2 3

ActiveCell.Offset(1, 1).Value = Application.InputBox("Largeur du rectangle", Type:=1) ActiveCell.Offset(1, 2).Value = Application.InputBox("Longueur du rectangle", Type:=1) Range("M31").Formula = "=activecell.Offset(1,1)*activecell.offset(1,2)"

---

Est-ce que ce genre de formule est possible ? Si oui, pourriez-vous m'aider ?
Je vous remercie d'avance.
Cordialement,
Titou

Code:

---

1 2 3

ActiveCell.Offset(1, 1).Value = Application.InputBox("Largeur du rectangle", Type:=1) ActiveCell.Offset(1, 2).Value = Application.InputBox("Longueur du rectangle", Type:=1) Range("M31").Formula = "=" & activecell.Offset(1,1).address &"*" & activecell.offset(1,2).address

---

Rebonjour, j'aurais encore besoin de vos services ! Je n'arrive pas à faire fonctionner cette formule avec le log :

Code:

---

Range("H10").Formula = "=log( & activecell.offset(-1,0).address & "* M31" )"

---

Je ne dois pas avoir saisi les subtilités entre désignation relative et absolue.

Merci d'avance !

Titou

Code:

---

Range("H10").Formula = "=log(" & activecell.offset(-1,0).address & "* M31)"

---

Mille mercis Mercatog ! Encore une fois c'est parfait. A+ !

As-tu compris le principe?

Je pense que oui, après maintes manipulations dans tous les sens, je ne fais presque plus d'erreurs, et quand il y en a, j'arrive à les repérer facilement ! Merci encore pour ton aide !