XL 2010 Moyennes automatiques

bobafric · 1 Avril 2022

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

sylvanu · 2 Avril 2022

@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.

natorp · 1 Avril 2022

Bjr bobafric

Comme ça ?

Cordialement, Gérard

sylvanu · 1 Avril 2022

Bonjour Bobafric,
Essayez avec :

VB:

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

bobafric · 1 Avril 2022

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 · 1 Avril 2022

Bonjour à tous

Une seule formule à étirer à doite et en dessous

VB:

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

bobafric · 2 Avril 2022

chris à dit:
Bonjour à tous

Une seule formule à étirer à doite et en dessous

VB:

=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 · 2 Avril 2022

Sorry

sylvanu · 2 Avril 2022

Bien le bonjour tout le monde,

bobafric à dit:
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"

VB:

    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 · 2 Avril 2022

Bonjour à tous

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

VB:

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

bobafric · 2 Avril 2022

chris à dit:
=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 · 2 Avril 2022

@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 · 3 Avril 2022

sylvanu à dit:
@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

XL 2010 Moyennes automatiques

bobafric

XLDnaute Occasionnel

Pièces jointes

sylvanu

natorp

XLDnaute Accro

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

bobafric

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

bobafric

XLDnaute Occasionnel

bobafric

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

bobafric

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

bobafric

XLDnaute Occasionnel

Discussions similaires