Programmation vba

bioups -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention - 20 avr. 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

Afficher la suite

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
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
1. bioups
  
  merci!
  mais je reçois tjr ce mesage d'erreur: "impossible de lire la propriété StDev de la classe worksheet function"
  
  0
2. Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
  
  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

Programmation vba

1 réponse

Discussions similaires

Newsletters