Programmation vba

Fermé
bioups - 19 avril 2011 à 22:31
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 20 avril 2011 à 16:00
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
19 avril 2011 à 23:13
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
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
20 avril 2011 à 16:00
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