Macro pour calculer des statistiques

Bonjour, je suis débutante en VBA, et je souhaite réaliser des données statistiques sauf que j'ai beaucoup de mal à coder tout ça vu que c'est la première fois que je code. Voici en clair ce que me demande la personne de faire: Je vais faire étapes par étapes

Generate one vector of random values where the number of rows is given by the user: seul code que jai réussi à exécuter:

Code:

---

1 2 3

Dim nrow As Integer nrow = InputBox("Type number of rows") Range(Cells(1, 1), Cells(nrow, 1)).Formula = "=rand()"

---

Ensuite il faut que je calcule la moyenne, l'écart type, skewness et kurtosis de cette série.
Je ne comprend pas pourquoi mon code ne fonctionne pas:

Code:

---

1 2 3 4 5 6

Dim nrow As Integer Dim Myarray As Variant nrow = InputBox("Type number of rows") Range(Cells(1, 1), Cells(nrow, 1)).Formula = "=rand()" Myarray = Range(Cells(1, 1), Cells(nrow, 1)) Range("C1") = Application.Average(Myarray)

---

Merci de votre aide :)

Ça ressemble fortement à un énoncé d'exercice :mrgreen: C'est qui "la personne" : ton prof ?

Je réédite en faisant étape par étape, j'applique des formules trouvées sur internet vu que je n'ai aucune base. Mais rien ne fonctionne :(

Citation:

---

Envoyé par FreshTrading

Code:

---

1 2 3

Dim Myarray As Variant   Myarray = Range(Cells(1, 1), Cells(nrow, 1))

---

---

Quand on connait le type d'une variable, on évite d'utiliser le type Variant (à moins de chercher les problèmes).
Ici, tu veux que Myarray soit une plage de cellule, donne-lui donc le type Range.

Pour assigner un objet à une variable, on utilise l'instruction Set.
Si j'écris MaCellule = Range("A1"), ça mettra le contenu de A1 dans la cellule référencée par MaCellule.
Si j'écris Set MaCellule = Range("A1"), la variable MaCellule référencera la cellule A1.
C'est complètement différent.
Lire ceci : https://docs.microsoft.com/fr-fr/off.../set-statement

Ah super merci :). j'ai une autre question, je souhaite générer un random sur une plage de cellule, et calculer la moyenne de cette plage. Et je ne comprend pas pourquoi mon code fonctionne mais ne me met pas la bonne moyenne (j'ai vérifier le résultat de cette moyenne et je ne trouve pas la même chose)

Code:

---

1 2 3 4

Sub ess() Range("A1:A18").Formula = "=Rand()" Range("C1").Value = Application.WorksheetFunction.Average(Range("A1:A18")) End Sub

---

Merci de votre aide.

La fonction Excel Rand(), c'est de la nitroglycérine : à manipuler avec d'infinies précautions.
Parce que chaque fois que tu modifies quelque chose dans ta feuille, que tu valides une cellule ou autre, elle se recalcule et renvoie une autre série.

Dans ta macro, tu mets une fonction dynamique dans tes cellules. Par contre, tu figes le contenu de la moyenne.
Au moment où tu vas placer le résultat de cette moyenne dans C1, A1:A8 va se recalculer et tu auras une autre série.
Donc la moyenne sera juste, mais pour la série présente au moment où elle se calcule et non au moment où tu la regardes.

Bref, tu as intérêt à fixer tes valeurs aléatoires avec un Copy / PasteSpecial(xlPasteValues) entre tes lignes 2 et 3 (avant de calculer la moyenne).
Ou bien tu places en C1 la formule Average et non son résultat.
(perso, la première solution me semble plus fiable).

Ah génial. Je comprend mieux pourquoi ça ne fonctionne pas. Je ne connaissais pas copy past.
Merci beaucoup pour l'aide. 😊