XL 2010 Reprise Moyennes automatiques

sylvanu à dit:

Bonjour Bobafric,
Il suffit d'intégrer cette macro dans la précédente :

VB:

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Sheets("Feuil1").Select             ' A MODIFIER SUIVANT LE NOM DE LA FEUILLE
    Moyenne                             ' Calcul moyennes
    MoyennesGenerales                   ' Calcul moyenne générales
    Sheets("Moyennes").Select
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

J'en ai profité pour simplifier cette usine à gaz avec :

Code:

Sub MoyennesGenerales()
    Sheets("Moyennes").Select
    [B11:B17] = [A2:A8].Value
    [C11:C17].FormulaR1C1 = "=round(AVERAGE(R[-9]C[2]:R[-9]C[40]),0)"
    [B11:C17].Borders.LineStyle = xlThin
    With [B11:C17]
        .Font.Color = vbRed                     ' Couleur police
        .Interior.Color = RGB(150, 200, 220)    ' Couleur fond
        .Font.Name = "Calibri"                  ' Police
        .Font.FontStyle = "Normal"              ' Type
        .Font.Size = 14                         ' Taille
        .Font.Bold = True                       ' Gras
    End With
    With [C11:C17]
        .HorizontalAlignment = xlCenter         ' Centré
        .Font.Color = vbBlack
        .Interior.Color = RGB(230, 240, 220)
    End With
End Sub

J'ai aussi supprimé le bouton car devenu inutile, tout se calcule par sélection de la feuille Moyennes.
L'avantage de l'enregistreur de macro c'est qu'il donne un aperçu des syntaxes à utiliser, mais il génère un tas de lignes inutiles qu'il faut ensuite nettoyer.

Cliquez pour agrandir...