formule en macro

bonjour,
j'ai la meme formule dans plusieurs cellule,
je voudrai la faire en macro car elle ralenti excel mais je n'arrive pas a la mettre en forme
la voici

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=(2*R[-2]C-1)*((LN(NORMSDIST((R[-1]C-R2C35)/R2C42)))+LN(1-(NORMSDIST((R[-1]C[29]-R2C35)/R2C42))))"

---

merci pour votre aide

Par exemple

Code:

---

1 2	range("D4:D10").FormulaR1C1 = _ "=(2*R[-2]C-1)*((LN(NORMSDIST((R[-1]C-R2C35)/R2C42)))+LN(1-(NORMSDIST((R[-1]C[29]-R2C35)/R2C42))))"

---

malheureusement je ne peut pas faire ca
car les cellules appeler dans la formule sont supprimez apres.
donc si je fait un "range("D4:D10").FormulaR1C1 = _....."
je risque d'avoir des #ref.
je voudrais en faite arriver a faire

Code:

---

1 2 3 4 5 6 7 8

n=30 cpt=1 do activecell= (2*R[-2]C-1)*((LN(NORMSDIST((R[-1]C-R2C35)/R2C42)))+LN(1-(NORMSDIST((R[-1]C[29]-R2C35)/R2C42))))" activecell.offset(0,1).select cpt = cpt +1 loop until cpt = n

---

merci

bonjour,

si je te suis bien, tu devrais faire un quelque chose dans le genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim WF As WorksheetFunction Dim AC As Range Dim CPT As Integer   Set WF = Application.WorksheetFunction Set AC = ActiveCell     For CPT = 1 To 30 AC.Value = (2 * AC.Offset(-2, -1)) * ((WF.Ln(WF.NormSDist((AC.Offset(-1, 0) - Cells(2, 35)) / Cells(2, 42)))) + WF.Ln(1 - (WF.NormSDist((AC.Offset(-1, 29) - Cells(2, 35)) / Cells(2, 42))))) Set AC = AC.Offset(0, CPT) Next CPT

---

Bonjour,

ou pour une grande liste de donnée, le code de mercatog avec une autre instruction

Code:

---

1 2 3 4 5

range("D4:D10").FormulaR1C1 = _ "=(2*R[-2]C-1)*((LN(NORMSDIST((R[-1]C-R2C35)/R2C42)))+LN(1-(NORMSDIST((R[-1]C[29]-R2C35)/R2C42))))" Range("D4:D10").Copy Range("D4:D10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

ou simplement

Code:

---

1 2 3 4

With Range("D4:D10") .FormulaR1C1 = "=(2*R[-2]C-1)*((LN(NORMSDIST((R[-1]C-R2C35)/R2C42)))+LN(1-(NORMSDIST((R[-1]C[29]-R2C35)/R2C42))))" .Value = .Value End With

---

merci mayekeul c'est exactement ca.
j'était loin d'arriver a ce résultat

c'est nikel :ccool:
encore merci pour vos reponse rapide