ActiveCell permettant de définir une autre cellule

Bonjour

Je suis nouveau sur ce forum et je travaille sur mes fichiers excels pour simplifier ma comptabilité

Dans mon cas précis, je ne parviens pas à trouver de formule qui en fonction de la cellule active sélectionnée :

- effectue le calcul demandé

- va sur une autre cellule et effectue un autre calcul

- puis le curseur revient sur la cellule active initiale

Comment écrire en VBA "d'aller sur une cellule 16 cases sur la droite de la cellule active initiale ayant commandé la macro" ?

A moins qu'il faille réaliser 2 macros successives à partir du lancement de la macro initiale ? Mais là je en sais pas faire.

Merci par avance pour vos réponses

J'ai trouvé cela avec la fonction ActiveCell.Offset

Sub TEST_TVA20_0()
'
' TEST_TVA20_0()
'

'
ActiveCell.FormulaR1C1 = "=(RC[-4]+RC[-3])/1.2"
ActiveCell.Offset(0, 16).Select
ActiveCell.FormulaR1C1 = "=(RC[-15]+RC[-14])*0.2"
ActiveCell.Offset(0, -16).Select
End Sub

Ca fonctionne !

Bonjour,

Les .select ne servent à rien sinon à ralentir le temps d'exécution du code.

Ceci fait la même chose :

ActiveCell.FormulaR1C1 = "=(RC[-4]+RC[-3])/1.2"
ActiveCell.Offset(0, 16).FormulaR1C1 = "=(RC[-15]+RC[-14])*0.2"
End Sub

Merci ! c'est exact.