Discussion :

[Titou54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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