XL 2010 Reprise Moyennes automatiques

  • Initiateur de la discussion Initiateur de la discussion bobafric
  • Date de début Date de début

bobafric

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
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 =...

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

bobafric

XLDnaute Occasionnel
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.
Nickel Sylvanu et merci encore j'apprends quelque chose avec toi.
A plus
 

Discussions similaires

  • Question Question
Microsoft 365 Tableau de notation
Réponses
0
Affichages
500
Réponses
1
Affichages
690
Réponses
4
Affichages
839
Réponses
7
Affichages
602
Réponses
4
Affichages
379
Réponses
8
Affichages
594
Réponses
2
Affichages
973

Statistiques des forums

Discussions
315 283
Messages
2 118 011
Membres
113 406
dernier inscrit
NI-ZE