Utiliser Variant avec fonction StDev

Version imprimable

28/05/2014, 21h26
HankMoody

Utiliser Variant avec fonction StDev
Bonjour,

Mon probleme est le suivant : Je souhaite stocker des valeurs dans un tableau (variant) et appliquer la fonction StdDev sur ces valeurs. Or la fonction StDev ne prend en argument que des Ranges.

Dans l idee ca donnerait ca:
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim i,j as integer Dim varTab as variant ReDim varTab(1 to 10,1) For i = 1 to 10 varTab(i,1)=i next j=StdDev(Range(varTab(1,1),varTab(10,1)) 'Message d erreur ici end sub
Merci d'avance,

Hank

Bonjour,

Essayez

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test_pmo()
Dim i As Long
Dim j As Double 'StDev renvoie un Double
Dim varTab As Variant
ReDim varTab(1 To 10, 1 To 1) '///
For i = 1 To 10
  varTab(i, 1) = i
Next i
 
j = Application.WorksheetFunction.StDev(varTab) 'on peut passer un variant comme paramètre
 
MsgBox j
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test2_pmo()
Dim i As Long
Dim j As Double 'StDev renvoie un Double
Dim varTab As Variant
ReDim varTab(1 To 10) '///
For i = 1 To 10
  varTab(i) = i
Next i
 
j = Application.WorksheetFunction.StDev(varTab) 'on peut passer un tableau unidimensionné comme paramètre
 
MsgBox j
End Sub

29/05/2014, 12h07
HankMoody

Ca fonctionne parfaitement, Merci beaucoup.

Hank