Vba fonction excel

Bonjour j'ai besoin d'aide pour résoudre cette fonction sur vba voici la consigne

Créer une fonction dispersion qui reçoit une plage de cellule , calcul une coefficient de variation et retourne une conclusion textuelle " série fortement dispersé" si coefficient supérieur à 0,1 et "série faiblement disperser si non


Merci d'avance pour vos réponses

Code:

---

1 2 3 4 5 6 7 8 9

Function CoefVariation(ByVal Rng As Range) As String Dim EcartType As Double, Moyenne As Double   With Application.WorksheetFunction EcartType = .StDev(Rng) Moyenne = .Average(Rng) End With If Moyenne <> 0 Then CoefVariation = IIf(EcartType / Moyenne > 0.1, "Fortement", "Faiblement") & " dipersé" End Function

---

A mettre dans un module standard

Citation:

---

Envoyé par Karima91170

Créer une fonction dispersion qui reçoit une plage de cellule , calcul une coefficient de variation et retourne une conclusion textuelle " série fortement dispersé" si coefficient supérieur à 0,1 et "série faiblement disperser si non

---

Sans VBA.
En supposant que tes données sont en A1:A100

Code:

---

="série "&SI(ECARTYPE(A1:A100)/MOYENNE(A1:A100)>0,1;"fortement";"faiblement")&" dispersée"

---