VBA - Autre formule pour: "=Feuil1!R[2]C[4]"

Bonjour à tous,

J'aimerais actuellement rendre une cellule équivalente à une autre (c'est à dire que lorsque je modifie la cellule source, la cellule destinataire change automatiquement comme si l'on écrivait '=B1' par exemple dans la cellule)

J'ai déjà utilisé la fonction ci dessous:

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "=Feuil1!R[2]C[4]"

Le problème de cette formule c'est que je ne peux pas mettre une variable X à la place du '2'.

Quelqu'un connait il une autre fonction qui permet de faire la même chose mais dans laquelle on peut mettre des coordonnées variables pour la cellule source.

En vous remerciant

Bonsoir supermax135 le forum

si j'ai compris(pas sur)

a+

papou

ActiveCell.Offset(0, 1)= activecell.offset(2,4)

merci d'avoir répondu aussi vite

Le problème c'est que avec cette formule c'est que ça met juste la valeur de la cellule source dans la cellule de destination mais si jamais je change le contenu de la cellule source, ça ne change pas la cellule de destination

Bonsoir

Si j'ai compris

supermax135 a écrit :

Le problème de cette formule c'est que je ne peux pas mettre une variable X à la place du '2'.

Tu choisis

Sub test()
  x = 2
  ActiveCell.Offset(0, 1).FormulaR1C1 = "=Feuil1!R[" & x & "]C[4]"
  ActiveCell.Offset(0, 2).FormulaR1C1 = "=Feuil1!R" & x & "C[4]"
End Sub

Merci

C'est impeccable, ça fonctionne!

Et dire que ça faisait plus de deux semaines que je cherchais comment faire!