Macro calculant la moy de plusieurs feuilles

Question

Bonjour, 
Je vais essayer de me faire comprendre après plusieurs heures de recherche.
Je voudrais créer une macro qui mette à jour une feuille "bilan"
La feuille bilan permet de calculer la moyenne d'une cellule située sur plusieurs feuilles.
Je m'explique :
Dans la feuille bilan, dans la cellule B6, je souhaite calculer la moyenne de toutes mes cellules B6 des feuilles nommées evaluation (i). Le nombre de feuille evaluation(i) n'est pas fixe, j'en rajoute au fur et à mesure des semaines. Donc je veux que lorsqu'une nouvelle feuille est crée lorsque je clique sur la macro de mise à jour, la feuille bilan refasse le calcul
Et ainsi de suite pour la cellule B7,B8....., C6,C7...
Merci d'avance

ccm81 · Answer

bonjour 

un exemple attaché à un bouton (activeX) de la feuille bilan qui fait la moyenne des cellules des feuilles "evaluation" ayant la même adresse que celles de "plage"

Option Explicit 

Const plage = "$B$6:$C$8" 
Const nomF = "evaluation" 

Private Sub btOK_Click() 
Dim nuF As Long, nbF As Long 
Dim s As Double 
Dim c As Range 
Dim li As Long, co As Long 
For Each c In Range(plage) 
  li = c.Row 
  co = c.Column 
  s = 0 
  nbF = 0 
  For nuF = 1 To Sheets.Count 
    If InStr(1, Sheets(nuF).Name, nomF) > 0 Then 
      s = s + Sheets(nuF).Cells(li, co).Value 
      nbF = nbF + 1 
    End If 
  Next nuF 
  c.Value = s / nbF 
Next c
bonne suite 

bonne suite

eriiic · Answer

Bonjour,  

Si tes feuilles sont consécutives tu n'as pas besoin de macro :  
=MOYENNE(Eval1:Eval1000!B6)  
assure toi seulement d'insérer tes feuilles à prendre en compte, et seulement celles là, entre Eval1 et Eval1000 (qui peuvent très bien ne pas servir, la fonction moyenne ne tient pas compte des cellules vides)  

eric

ccm81 · Answer

exact, j'ai zappé la dernière ligne de la procedure  
les deux dernière lignes  

Next c  
End Sub
https://www.cjoint.com/?0CglxNX3N0d   

bonne suite

ccm81 · Answer

re

ça doit être possible, mais que veux tu dire exactement par "la cellule contient une valeur" : quelle cellule? de quelle feuille? le mieux est de donner un exemple

bonne suite

ccm81 · Answer

re

quelque chose comme ça?
https://www.cjoint.com/?0CgqiNUBex4 

bonne suite

ccm81 · Answer

bonjour

une modification pour différencier les cellules vides de celles qui contiennent un 0 à prendre en compte dans le calcul de la moyenne

Private Sub btOK_Click()
Dim nuF As Long, nbv As Long
Dim s As Double, v
Dim c As Range
Dim li As Long, co As Long
For Each c In Range(plage)
  li = c.Row
  co = c.Column
  s = 0
  nbv = 0
  For nuF = 1 To Sheets.Count
    If InStr(1, Sheets(nuF).Name, nomF) > 0 Then
      v = Sheets(nuF).Cells(li, co).Value
      If v <> "" Then
        s = s + v
        nbv = nbv + 1
      End If
    End If
  Next nuF
  If nbv = 0 Then
    c.Value = ""
  Else
    c.Value = s / nbv
  End If
Next c
End Sub
bonne journée

Macro calculant la moy de plusieurs feuilles

6 réponses

Discussions similaires

Newsletters