Taha Hessane
XLDnaute Nouveau
Bonjour,
Dans le cadre d'un projet, je dois calculer les moments d'odre 1 2 3 et 4 d'un groupe de variables à l'aide de VBA.
Je ne suis pas super bon mais j'ai quand même réussi à créer des macros qui calculent exactement ce dont j'ai besoin.
Le ficher que j'utilise est composé de 5 feuilles, les 4 premières sont des listes de valeurs et la dernière est une feuille vide appelé statistique. (je décrit car je n'arrive pas à mettre le ficher en pièce jointe)
j'ai crée 4 macros (une correspondante à chaque feuille) de tel sorte : (exemple d'une d'entre elles)
Sub mom1()
Dim i As Integer
Dim moy, som, som1, som2, som3, stde, sk, ku As Single
'je déclare les variables que je vais utiliser pour calculer les moments
som = 0
som1 = 0
som2 = 0
som3 = 0
'sélection de la feuille que je souhaite utilisé
Sheets(1).Select
'je calcule d'abord la moyenne
For i = 2 To 2147
som = som + Cells(i, 2).Value
Next i
moy = som / 2146
MsgBox " moyenne AMAZON :" & moy
'calcul de l'écart-type
For i = 2 To 2147
som1 = som1 + (Cells(i, 2).Value - moy) ^ 2
Next i
stde = (som1 / 2146) ^ (1 / 2)
MsgBox " écart-type AMAZON :" & stde
'calcul de skewness et kurtosis
For i = 2 To 2147
som2 = som2 + (Cells(i, 2).Value - moy) ^ 3
som3 = som3 + (Cells(i, 3).Value - moy) ^ 4
Next i
sk = som2 / (2146 * stde ^ 3)
ku = som3 / (2146 * stde ^ 4)
MsgBox " skewness AMAZON :" & sk
MsgBox " kurtosis AMAZON :" & ku
End Sub
Le problème est que il faut que j'affiche les résultats dans la feuille5 du fichier appelé " statistiques", et je n'arrive pas à le faire, est ce que quelqu'un pour m'aider ? aussi si vous avez des commentaires à faire sur comment améliorer mon code je suis preneur aussi
Merci d'avance
Dans le cadre d'un projet, je dois calculer les moments d'odre 1 2 3 et 4 d'un groupe de variables à l'aide de VBA.
Je ne suis pas super bon mais j'ai quand même réussi à créer des macros qui calculent exactement ce dont j'ai besoin.
Le ficher que j'utilise est composé de 5 feuilles, les 4 premières sont des listes de valeurs et la dernière est une feuille vide appelé statistique. (je décrit car je n'arrive pas à mettre le ficher en pièce jointe)
j'ai crée 4 macros (une correspondante à chaque feuille) de tel sorte : (exemple d'une d'entre elles)
Sub mom1()
Dim i As Integer
Dim moy, som, som1, som2, som3, stde, sk, ku As Single
'je déclare les variables que je vais utiliser pour calculer les moments
som = 0
som1 = 0
som2 = 0
som3 = 0
'sélection de la feuille que je souhaite utilisé
Sheets(1).Select
'je calcule d'abord la moyenne
For i = 2 To 2147
som = som + Cells(i, 2).Value
Next i
moy = som / 2146
MsgBox " moyenne AMAZON :" & moy
'calcul de l'écart-type
For i = 2 To 2147
som1 = som1 + (Cells(i, 2).Value - moy) ^ 2
Next i
stde = (som1 / 2146) ^ (1 / 2)
MsgBox " écart-type AMAZON :" & stde
'calcul de skewness et kurtosis
For i = 2 To 2147
som2 = som2 + (Cells(i, 2).Value - moy) ^ 3
som3 = som3 + (Cells(i, 3).Value - moy) ^ 4
Next i
sk = som2 / (2146 * stde ^ 3)
ku = som3 / (2146 * stde ^ 4)
MsgBox " skewness AMAZON :" & sk
MsgBox " kurtosis AMAZON :" & ku
End Sub
Le problème est que il faut que j'affiche les résultats dans la feuille5 du fichier appelé " statistiques", et je n'arrive pas à le faire, est ce que quelqu'un pour m'aider ? aussi si vous avez des commentaires à faire sur comment améliorer mon code je suis preneur aussi
Merci d'avance