Discussion :

[miopie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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))))"

[miopie]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mayekeul]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

ou simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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