[VBA] Comment faire une formule avec une variable ?

Bonjour,

Apres moultes recheres, je refais appelle à vous :)

Mon pb :
Je veux affecter à une cellule, une formule qui a pour entrée la case d'à coté... pour chaque ligne l... c'est sur ce dernier point que cela bug...

Le code reprenant juste l'interessant (Tout est declaré (Sh2, Sh1...) :

Code:

---

1 2 3 4 5 6

For j = 7 To LetzteLinie With Sh1 .Range(.Cells(j, 4), .Cells(j, 4)).Copy Sh2.Range(Sh2.Cells(l, 3), Sh2.Cells(l, 3)) Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT("Cells(l, 3)",""ttt"")" End With Next

---

j'ai aussi testé, sans resultat....

Code:

---

Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(C"l"),""ttt"")"

---

Thks :)

Est-ce que tu peux essayer ce code ?

Code:

---

1 2	Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(" & Cells(l, 3).Value & ",""ttt"")"

---

Tu vas bien récupérer la valeur de ta cellule.

Je reviens sur ce que j'ai dit, ca ne marche po ./
J'obiens dans mes cellules du
=TEXT(;"ttt")

Je regarde aussi ca. ca doit etre avec le with qu'il n'aime pas

Code:

---

1 2 3 4 5 6 7 8

For j = 7 To LetzteLinie With Sh1 .Range(.Cells(j, 4), .Cells(j, 4)).Copy Sh2.Range(Sh2.Cells(l, 3), Sh2.Cells(l, 3)) Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(" & Cells(l, 3).Value & ",""ttt"")" .Range(.Cells(j, 15), .Cells(j, 15)).Copy Sh2.Range(Sh2.Cells(l, 4), Sh2.Cells(l, 4)) End With Next

---

J'ai essayé de lui donner un adressage plus complet de mon entrée variable mais sans succes

Code:

---

Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(" & Sh2.Cells(l, 3).Value & ",""ttt"")"

---

Bonjour,

Citation:

---

Mon pb :
Je veux affecter à une cellule, une formule qui a pour entrée la case d'à coté... pour chaque ligne l... c'est sur ce dernier point que cela bug...

---

Tu écris que cela bug mais encore ?
N'ayant pas de boule de cristal, nous indiquer le N° et message d'erreur et à quelle ligne cela se passe ne serait pas du luxe.

1004

erreur de definition d'objet ou d'application

Code:

---

Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(RC[1],""mmm"")"

---

Merci, ca marche.
Cependant, puis je avoir une explication, comprendre m'interesse plus ^^

Tu utilises FormulaR1C1 qui prend en compte les adresses relatives

RC[1] veut dire la cellule sur la même ligne R et une colonne à droite par rapport à la cellule de référence (pour ton cas Sh2.Cells(l,2))

plus généralement R[x]C[y] correspond à la cellule décalée de x lignes et de y colonnes relativement à une cellule de référence.

x et y appartiennent à Z

Quand ils sont >0 décalage en bas et vers la droite
sinon décalage vers le haut et vers la gauche

thks tout devient clqir !