XL 2010 Moyennes automatiques

[bobafric]

Bonjour
Je voudrai faire automatiquement la moyenne des valeurs par nom et par ligne dans un tableau ou autre sur le fichier ci joint.
il y a peut- être déjà des exemples sur le forum mais je ne les ai pas trouvées.
J'espère que le fichier et les explications sont assez clairs.
Merci d'avance

 

[natorp]

Bjr bobafric

Comme ça ?

Cordialement, Gérard

 

[sylvanu]

Bonjour Bobafric,
Essayez avec :

=SIERREUR(MOYENNE.SI.ENS($B$4:$U$4;$B$1:$U$1;$C16);"")

 

[bobafric]

Merci Sylvanu pour cette réponse ultra rapide
Ce que je veux c'est que ce soit automatique sans le besoin de taper les formules pour chaque ligne. Ceci est un tableau exemple mais l'original est trop important. Peut-être en vba.

 

[chris]

Bonjour à tous

Une seule formule à étirer à doite et en dessous

=SIERREUR(MOYENNE.SI.ENS(DECALER($B$3:$U$3;COLONNE(A1);0);$B$1:$U$1;$C16);"")

 

[bobafric]

Bonjour à tous

Une seule formule à étirer à doite et en dessous

=SIERREUR(MOYENNE.SI.ENS(DECALER($B$3:$U$3;COLONNE(A1);0);$B$1:$U$1;$C16);"")

Salut Chris et bonjour à tous
Je reprends le fil après une nuit de repos lol.
Je joins un autre fichier car je n'ai pas pu adapter ta formule sur celui-ci qui est plus proche du réel car j'ai rajouté des colonnes.

 

[bobafric]

Sorry

 

[sylvanu]

Bien le bonjour tout le monde,

Ce que je veux c'est que ce soit automatique sans le besoin de taper les formules pour chaque ligne.

Un essai en PJ tout automatique quelque soit le nombre de lignes et colonnes.
Les moyennes sont calculées dans la feuille "Moyennes"

    Dim DL%, DC%, i%, L%, C%
    Application.ScreenUpdating = False
    With Sheets("Moyennes")
        DL = Range("C65500").End(xlUp).Row                  ' Dernière ligne
        DC = Cells(1, Columns.Count).End(xlToLeft).Column   ' Dernière colonne
        ' Copie liste nom en feuil2
        .Cells.Clear
        Range(Cells(1, 1), Cells(1, DC)).Copy
        .[A1].PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
        .Range("$A$1:$A$" & DC).RemoveDuplicates Columns:=1, Header:=xlNo
        ' Copie liste des lignes
        For i = 4 To DL
            .Cells(1, i - 2) = Cells(i, "C")
        Next i
        ' Calcul des moyennes par formules intégrées dans feuille
        DL = .Range("A65500").End(xlUp).Row                 ' Dernière ligne
        DC = .Cells(1, Columns.Count).End(xlToLeft).Column  ' Dernière colonne
        For L = 2 To DL
            For C = 2 To DC
                .Cells(L, C).FormulaLocal = "=SIERREUR(ARRONDI(MOYENNE.SI.ENS(Feuil1!$F" & C + 2 & ":$ZZ" & C + 2 & ";Feuil1!$F$1:$ZZ$1;$A" & L & ");2);"""")"
            Next C
        Next L
        ' Mise en forme
        With .Range(.Cells(1, 1), .Cells(DL, DC))
            .HorizontalAlignment = xlCenter
            .Borders.LineStyle = xlThin
        End With
        .Select
        .Range("A1").Select
    End With
End Sub

 

[chris]

Bonjour à tous

Pourtant il ne faut que quelques minutes pour analyser et comprendre la formule si on fait un petit effort...

=SIERREUR(MOYENNE.SI.ENS(DECALER($F$3:$Y$3;COLONNE(A1);0);$F$1:$Y$1;$G16);"")

 

[bobafric]

=SIERREUR(MOYENNE.SI.ENS(DECALER($F$3:$Y$3;COLONNE(A1);0);$F$1:$Y$1;$G16);""

Merci Chris et merci Sylvanu
J'ai utilisé la méthode Sylvanu et vba pour automatisé.
Merci Chris je suis un peu limite sur excel mais j'ai réussi avec ta fonction.
A la prochaine merci excel download

 

[sylvanu]

@bobafric,
1-Pour le futur lecteur, c'est le post de la solution qu'on met en vert, non votre propre réponse.
2-On peut même se passer du bouton. Dans cette PJ la mise à jour des moyennes se fait automatiquement lorsqu'on sélectionne la feuille Moyennes.

 

[bobafric]

@bobafric,
1-Pour le futur lecteur, c'est le post de la solution qu'on met en vert, non votre propre réponse.
2-On peut même se passer du bouton. Dans cette PJ la mise à jour des moyennes se fait automatiquement lorsqu'on sélectionne la feuille Moyennes.

Merci Sylvanu c'est super. Je vais essayer de stopper le post de la solution comme il faut. A plus