XL 2010 Reprise Moyennes automatiques

[bobafric]

Resalut à tous
Je reprends mon fil "moyennes automatiques" pour complément.
J'ai créer une macro pour ouvrir le tableau "moyennes générales" que j'appliques avec un bouton sur la feuille 1.
Comment l'ajouter à la macro moyenne pour tout soit automatique.
J'ai essayé mais je suis nul en VBA.
Merci d'avance

 

[sylvanu]

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

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 :

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.

 

[bobafric]

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

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 :

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.

Nickel Sylvanu et merci encore j'apprends quelque chose avec toi.
A plus

 

[sylvanu]

Re,
Pour les futurs lecteurs, c'est la PJ correcte à mettre en vert, pas votre réponse.