Programmation vba

bioups -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
j'ai réalisé le pg suivant, qui malheureusement ne fonctionne pas... en fait, je voudrais calculer l'ecart type, qui apparaitra dans la colonne Ii par exemple, grace aux rentabilités calculées dans les colonnes H1,H2,...,Hi. merci de votre aide!

Sub ecart()
Dim i As Integer

Worksheets("feuille1").Select
Range("I2:I255").Select

For i = 3 To 254 Step 1
Range("I" & i) = Application.WorksheetFunction.StDev(Range("H3:H" & i))

Next i

End Sub

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Essaie ce code:
Option Explicit
Sub ecart0()
Dim w As Worksheet
Dim i As Integer
Set w = Worksheets("feuille1")
For i = 3 To 254
  w.Range("I" & i).Value = _
  Application.WorksheetFunction.StDev(w.Range("H2:H" & i).Value)
Next i
End Sub
0
bioups
 
merci!
mais je reçois tjr ce mesage d'erreur: "impossible de lire la propriété StDev de la classe worksheet function"
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Quel version d'Excel utilises-tu ?
Est-tu sur PC ou sur Mac ?

Pour moi ça marche, met un exemple de ton fichier sur http://cijoint.fr/ et met le lien obtenu dans ton prochain post
0