Discussion :

[Karima91170]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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électionner tout - Visualiser dans une fenêtre à part

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