Utilisation formula

Bonjour,
Je voudrais que dans une cellule s’inscrive s’inscrive la formule « =sheet1! » plus une référence cellule qui va varier, mais dont j’ai déterminé le numéro de ligne et de colonne, par les variables ligne et colonne.
Néanmoins tous mes essais me mènent à un message d’erreur…
Si quelqu’un pouvait me conseiller, je ne pense pas que ce soit très difficile.
Pour le moment ma formule est : (« c » est une cellule selectionnée auparavant)

Code:

---

1 2	c.Offset(0, -2).FormulaR1C1 = "=sheet1!" & Cells(ligne, colonne)

---

Merci par avance de votre réponse

Teste avec formulalocal

Code:

---

activesheet.range("A1").formula = "=sheet1!" & cells ( , ).address

---

Salut ouioui_cmoi
J'ai supprimé mon poste précédent, par ce qu'il ne répond pas à la question (Oups)

Code:

---

1 2	c.Offset(0, -2).FormulaLocal = "=sheet1!" & Cells(ligne, colonne)

---

avec, bien évidemment la cellule Ligne -colonne de la feuille active qui contient une adresse de cellule

On pourrait utiliser la FormulaR1C1, mais l'adresse de la cellule devra être donnée avec la syntaxe qui se rapporte à la formule

Code:

---

1 2	c.Offset(0, -2).FormulaR1C1 = "=sheet1!R" & ligne & "C" & colonne

---

L'usage de FormulaLocal me semble un tantinet plus simple. :mouarf:
Et tu peux tester la syntaxe directement sur la feuille, puis faire un copier/coller et remplacer les valeurs de ta formule par tes variables
A+

Merci pour vos réponses, mais malheureusement, ça ne marche toujours pas :(
J'ai essayé avec formulalocal
et avec cells().adress...
Je vous envoie mon code, si vous voyez l'erreur....sachant qu'a l'execution, il plante à la ligne c.offser().formulalocal
Il me met l'erreur :
"Run-time error 438 Object doesn't support this property or method"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Worksheets(1).Activate With Worksheets(1).Range("N1:P100") Set d = .Find("eur 1", LookIn:=xlValues) If Not d Is Nothing Then e = d.Offset(0, 1).Select   ligne = ActiveCell.Row: colonne = ActiveCell.Column End If MsgBox (d) MsgBox (e) MsgBox (ligne) MsgBox (colonne)   End With Worksheets(3).Activate With Worksheets(3).Range("N1:P100") Set c = .Find("eur 1", LookIn:=xlValues) If Not c Is Nothing Then     c.Offset(0, -2).FormulaLocal = "=sheet1!" & Cells(ligne, colonne).adress     End If End With

---

Merci d'avance pour votre aide

juste avec le avec formula et avec formulalocal?

deja adress s ecrit address...!!!!!!

oups, merci beaucoup...
en fait je l avais aussi fait avec formulalocal sans address, ça ne marchait pas non plus...
mais avec formula et .address c'est bon ça marche
donc merci encore ;)