pb de syntaxe pour des liens de cellules (important!!)

Bonjour à tous,
J'expose rapidement mon problème.
J'aimerais mettre une formule dans ma cellule active par exemple "= B13 + J13"
Cependant, dans ma situation, je ne suis pas censé connaitre la valeur de la ligne.
Je sais où se situe mes deux cellules(dans l'exemple B13 et J13) par rapport à ma cellule active en fonction d'une variable que j'ai noté "nb"
Voici le code que j'ai écrit :

ActiveCell.FormulaR1C1 = "=R" & -nb - 2 & "C[1] - R" & -nb - 2 & "C[7]"

Je sais que ma formule marche parfaitement quand j'écris:

ActiveCell.FormulaR1C1 = "=R[-7]C[1] - R[-7]C[7]"

Cependant cela ne marche que pour un exemple....
Je précise que je souhaite avoir la différence "en temps réels" lorsque je modifierai les valeurs des deux cellules ( dans l'exemple B13 et J13)
En conclusion, je coince et je n'arrive pas à repérer l'erreur( car je suis novice en la matière :D) et une aide ne serait pas superflu , j'espère que j'ai été clair et vous remercie par avance de vos réponses.

Salut,

comprend rien !!!

pour commence sache que formulaR1C1 peut etre remplace par formula, ce qui simplifi beaucoup la lecture et l'ecriture de la formule:

ActiveCell.Formula= "=B13+J13"

maintenant si tu veux integrer une variable a ta formule:

Dim nb As Long
nb =13
ActiveCell.Formula= "=B" & nb & "+J" & nb

maintenant si tu voulais integrer une variable pour la ligne et une variable pour la deuxieme colonne :

Dim Ligne As Long, Colonne As Long
Ligne =13
Colonne=10
ActiveCell.Formula= "=B" & Ligne & "+" & Cells(Ligne,Colonne).address(False,False) 'ici la propriété Cells associée à la propriété Address rencvera J13

De plus, si ton objectif est de faire une adition du contenu de 2 Cellules en VBA il existe une methode plus simple:

ActiveCell.Value= Range("B13").Value+Range("J13").Value

ou bien :

Dim Ligne As Long
Ligne =13
ActiveCell.Value= Range("B" & Ligne).Value+Range("J" & Ligne).Value

ou bien encore :

Dim Ligne As Long, Colonne As Long
Ligne =13
Colonne=3
ActiveCell.Value= Cells(Ligne,Colonne).Value+Cells(Ligne,Colonne + 7).Value

Enfin, evite d'utilisé ActiveCell surtout si tu connais la cellule qui doit recevoir le resultat. Par exemple:

Range("A1").Value= Range("B13").Value+Range("J13").Value

Voila il y aurai de quoi en ecrire 10 pages mais je m'arrete la

Désolé de ne pas avoir été clair, je vais essayé de m'expliquer
Voici la situation
Je suis sur une cellule active, et je sais que les deux cases que je souhaite soustraire sont :
- pour la première à (nb +2) au dessus de ma cellule active  et sur la colonne D
-pour la deuxième à (nb+2) au dessus de ma cellule active et colonne J

ps : Si ça peut aider je sais que ma cellule active se trouve sur la colonne C

donc, sur ma cellule active je souhaite avoir "= Dx -Jx"
où x représente la ligne se situant à nb+2 au dessus de ma cellule active.
Voilà c'est assez compliqué à expliquez, j'espère avoir été un peu plus clair
En tout cas merci, de m'avoir répondu si vite et j'espère que vous pourrez m'aider.

je t'ai deja repondu, essai de comprendre

Je dois  surement être borné, mais bon je veux vraiment maitrisé ce sujet.
Il me semble que toute les propositions que tu m'a faites ne réponde pas à ma demande("Je me trompe surement.."), mais d'après ce que j'ai compris pour les méthodes que tu m'as données, il faut :

- soit la valeur précise de la case( ex "J13")

- soit la valeur de la ligne en fonction d'une variable(ex nb=13 ->ligne =13)
Je synthétise grossièrement, je l'admet  !!

Malheureusement je n'ai ni l'un ni l'autre, j'ai uniquement la position de la cellule en fonction de ma cellule active et d'une variable nb.
Pour l'illustrer, plus simplement je donne l'exemple:
La ligne des deux cellules à soustraire = "La ligne de ma cellule active" -2- nb
et les colonnes sont connues, c'est D et J.
Je suis désolé d'être obstiné(peut être dans mon erreur), mais j'ai besoin d'une lumière qui éclaircisse mes pensée !! Merci encore!!

ouuuuuups ! tu les utilises 

Merci Merci Merci!!Tu m'a sauvé la vie !!J'ai testé ça marche!!
Je n'avais absolument pas pensé à me ramener à des lignes fixes!
J'avoue ma devise s'est pourquoi faire simple quand on peux faire compliqué
Merci beaucoup pour la rapidité des messages et la patience que tu a eu à mon égard .
A Bientôt!!