Calcul ecart type et moyenne automatique

job75

XLDnaute Barbatruc

• 27 Janvier 2015

• #2

Re : Calcul ecart type et moyenne automatique

Bonjour dimbad,

Voyez le fichier joint, les noms définis REF P_8 P_2 et les formules en D2 E2 G2 H2.

Il est indispensable que le tableau soit trié sur la colonne "REF".

A+

 

Pièces jointes

• test(1).xls

  69.5 KB · Affichages: 37
• test(1).xls

  69.5 KB · Affichages: 38
• test(1).xls

  69.5 KB · Affichages: 40

Vote positif 0 Vote négatif

D

dimbad

Guest

• 27 Janvier 2015

• #3

Re : Calcul ecart type et moyenne automatique

Merci beaucoup job75!
Entre temps, j'ai trouvé une autre formule en utilisant la formule sous total

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2015

• #4

Re : Calcul ecart type et moyenne automatique

Re,

Oui mais ça vous bousille l'ordonnancement du tableau.

Du moins comme vous le faites sur l'autre fil.

A+

 

Dernière édition: 27 Janvier 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2015

• #5

Re : Calcul ecart type et moyenne automatique

Re,

Une autre présentation avec coloration par MFC dans ce fichier (2).

A+

 

Pièces jointes

• test(2).xls

  69.5 KB · Affichages: 36
• test(2).xls

  69.5 KB · Affichages: 37
• test(2).xls

  69.5 KB · Affichages: 29

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2015

• #6

Re : Calcul ecart type et moyenne automatique

Re,

Pas de bon fil sans une solution VBA n'est-ce pas ? 🙂

Voyez le fichier joint avec cette macro dans le code de la feuille :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
If Target = Target(0) Or Target = "" Then Exit Sub
Cancel = True
Dim P As Range, c As Range, n1, n2, t$
Set P = Target.Resize(Application.CountIf(Columns(2), Target))
Set c = [C1]
While c <> ""
  Set P = P.Offset(, 1)
  n1 = Application.Average(P)
  If IsError(n1) Then n1 = "#DIV/0!" Else n1 = Format(n1, "0.00")
  n2 = Application.StDev(P)
  If IsError(n2) Then n2 = "#DIV/0!" Else n2 = Format(n2, "0.00")
  t = t & vbLf & vbLf & c & " - Moyenne : " & n1 & vbLf _
    & c & " - Ecart-type : " & n2
  Set c = c(, 2)
Wend
MsgBox Mid(t, 3), , Target
End Sub

Il peut y avoir un nombre quelconque de colonnes d'options.

A+

 

Pièces jointes

• test VBA(1).xls

  56.5 KB · Affichages: 36
• test VBA(1).xls

  56.5 KB · Affichages: 37
• test VBA(1).xls

  56.5 KB · Affichages: 40

Dernière édition: 27 Janvier 2015

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Janvier 2015

• #7

Re : Calcul ecart type et moyenne automatique

Bonjour
Coucou Job75🙂

Et un petit TCD, ça manquait !

 

Pièces jointes

• EcarttypeTCD.xls

  47.5 KB · Affichages: 36

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Janvier 2015

• #8

Re : Calcul ecart type et moyenne automatique

Bonsoir chris 🙂

chris à dit:

Et un petit TCD, ça manquait !

Cliquez pour agrandir...

Oui, c'est tellement simple... pour ceux qui connaissent 🙄

Bonne soirée.

 

Vote positif 0 Vote négatif