Discussion :

[HankMoody]

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 :

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

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

[PMO2017]

Bonjour,

Essayez

Code :

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

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 :

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

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

[HankMoody]

Ca fonctionne parfaitement, Merci beaucoup.

Hank