XL 2010 Reprise Moyennes automatiques

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
506
Réponses
2
Affichages
36
Réponses
7
Affichages
608
Retour