Bonjour,

j'ai un problème avec le code ci-dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
28
29
30
31
32
33
34
35
36
37
38
Sub hello()
 
Sheets("DataHFRX").Activate
Dim TabDataHFRX()
ReDim TabDataHFRX(88)
For i = 1 To 1
    For j = 1 To 88
    If Cells(i + 2, 3 + j) <> "" Then
    TabDataHFRX(j) = CDbl(Cells(i + 2, 3 + j).Value)
    Else
    TabDataHFRX(j) = CDbl(0)
    End If
    Next j
Next i
 
Sheets("DataRadar").Activate
Dim TabData()
ReDim TabData(88)
 
For i = 1 To 957
    For j = 1 To 88
    If Cells(i + 2, 5 + j) <> "" Then
    TabData(j) = CDbl(Cells(i + 2, 5 + j).Value)
    Else
     TabData(j) = CDbl(0)
    End If
    Next j
 
 
TabAlpha = ((1 + Application.WorksheetFunction.Intercept(TabData, TabDataHFRX))) ^ 12 - 1
 
TabBeta = Application.WorksheetFunction.Slope(TabData, TabDataHFRX)
 
test = Application.WorksheetFunction.LinEst(TabData, TabDataHFRX)(1)
Next i
 
 
End Sub
La ligne
test = Application.WorksheetFunction.LinEst(TabData, TabDataHFRX)(1)
me renvoie une erreur 1004 (Impossible de lire la propriété LinEst) alors même que TabAlpha et Tabbeta fonctionnent (ce sont sensés être les mêmes input...)

Quelqu'un pourrait m'aider svp?
Merci par avance pour votre aide