Moyenne sur plusieurs feuilles
Bonjour,
Je suis programmeur mais dans d'autres langages...
j'aimerai écrire une macro qui me permet de réaliser une moyenne simple sur plusieurs feuilles. Cependant le nombre de feuilles est indéterminé ET le nom des feuilles est variable (date du jour)
J'ai trouvé cela mais je ne comprends pas toutes les variables
Sub Moyenne()
Dim sh As Worksheet, S As Double, M As Double, DL As Long => déclaration des variables ?
For Each sh In Sheets => je suppose que cela est une boucle ?
DL = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
S = S + WorksheetFunction.Sum(sh.Range("A1:A" & DL))
D = D + DL
Next => fin de la boucle ?
End Sub
Je vous laisse un exemple simple
Merci pour votre retour
Merci pour le code et surtout pour les commentaires
J'ai cherché à executer la fonction sur le changement de valeurs des cellules mais sans succès. Voilà ce que j'ai trouvé, je pense ne pas être très loin mais
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B4:U19")
If Not Intersect(Target, KeyCells) Is Nothing Then
Call Moyenne
End If
End Sub
Est-ce dû au fait qu'il y ait plusieurs feuilles ?
ok j'ai compris. Il faut coller ce code sur chaque feuille. Ce qui est répétitif
Comment faire pour créer une fonction qui pourrait s'appliquer sur toutes les pages actuelles ou les futures qui seront créées
J'ai écris le code dans le module vba afin d'appliquer le code sur toutes les pages mais sans succès
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim KeyCells As Range
Set KeyCells = Range("B4:U19")
For Each sh In Sheets
If Not Intersect(Target, KeyCells) Is Nothing Then
Call Moyenne
End If
Next sh
End Sub
Pourquoi vouloir calculer la moyenne globale à changement de valeur sur chaque feuille? Il suffirait de la calculer à l'activation de la feuille moyenne
Avec la création de nouvelles feuilles et intégration de l'appel sur chaque feuille
Merci pour votre aide très précieuse.