Faire la moyenne de différents groupes de cellule

Résolu

Moyenne

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention - 24 avril 2014 à 09:03

Bonjour tout le monde,

Je suis sur Excel 2007 en VBA et je souhaite réaliser le programme suivant.

J'ai des suites de 32 de données dans une même colonne sur une feuille Excel, et je souhaite faire la moyenne de chaque groupe de données.

Par Exemple:

Groupe 1: Feuille 1 cellule J4 à J35 moyenne à coller en feuille 3 cellule B4
Groupe 2: Feuille 1 cellule J37 à J68 moyenne à coller en feuille 3 cellule B5
etc...

Chaque groupe est espacé d'une ligne.

J'ai tenté plusieurs approches en enregistrant une macro ou en tentant d'utiliser les fonction Offset pour décaler ma sélection mais sans succès.

Merci d'avance pour votre aide et si j'ai par hasard oublié des informations je suis disponible pour donner des précisions.

Afficher la suite

A voir également:

Excel moyenne par groupe
Excel moyenne - Guide
Comment créer un groupe whatsapp - Guide
Liste déroulante excel - Guide
Excel trier par ordre croissant chiffre - Guide
Word et excel gratuit - Guide

6 réponses

Réponse 1 / 6

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Bonjour

en B4 feuille2 essaies comme ceci
=MOYENNE(DECALER(Feuil1!J4;32*(LIGNE()-4);0;32;1))
à tirer vers le bas

Cordialement

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup pour ta réponse rapide mais elle me fait penser que j'ai oublié un détail.

J'avais vu cette solution mais moi je souhaite réaliser ma fonction sous VBA en fait mon classeur et vide et en appuyant sur un bouton toutes mes moyennes se font et viennent ce mettre les unes en dessous des autres dans la feuille 3.

https://www.cjoint.com/?3Dxo2eitwTE

Voici mon classeur avec en feuille 1 et 2 mes programmes de récupération de données et en feuille 3 le template avec de ce que je veux récupérer

Réponse 2 / 6

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Désolé, je ne peux pas lire ton fichier. peux tu l'envoyer au format excel 2003 (fichier/enregistrer sous/type .... xls)

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

https://www.cjoint.com/?3DxpeTLyXgc

Réponse 3 / 6

krakixx Messages postés 3404 Date d'inscription Statut Membre Dernière intervention 718

Salut tu a un bon tutorial ici

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Oui merci ça je sais faire.
Le but de mon programme VBA est de ne pas à avoir faire ça 2000 fois

Réponse 4 / 6

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Un début de réponse
https://www.cjoint.com/?3DxpUq8lv9V

Cdlimnt

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup !
Par contre je ne vois pas à quoi correspondent les variables après CalculMoyenne

Réponse 5 / 6

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Comme il me fallait faire un test et que je ne savais pas exactement ce que tu comptais faire, j'ai écris la procédure

Sub essai()
  Call CalculMoyenne("CD", 10, "Synthèse", 4)
End Sub

qui appelle CalculMoyenne
CalculMoyenne(FD As String, co As Long, FS As String, ko As Long)
dont les paramètres
FD est le nom de la feuille de données, co est le n° de colonne à traiter
FS est le nom de la feuille de Synthèse et ko la colonne où on mettra le résultat
Ce paramétrage devrait te permettre d'utiliser plusieurs fois CalculMoyenne

Cdlmnt

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Ouais merci beaucoup j'ai réussi à comprendre entre temps =)

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Tout d'abord merci beaucoup, utilisée plusieurs fois la fonction est une excellente idée!
Mais j'ai un petit problème, j'ai changé les varibles maintenant et le programme ressemble à ça


Option Explicit

Public Sub CalculMoyenne(sh1 As String, Colsh1 As Long, sh3 As String, Colsh3 As String)

Dim PLsh1 As Long, lifin As Long, n As Long, plage As Range, i As Long, moy As Double, PLsh3 As Long
PLsh1 = 4
PLsh3 = 4

    With Sheets(sh1)

     lifin = .Cells(Rows.Count, Colsh1).End(xlUp).Row
     Set plage = .Range(.Cells(PLsh1, Colsh1), .Cells(lifin, Colsh1))
     n = Application.WorksheetFunction.CountIf(plage, "") + 1
  
    For i = 1 To n
        Set plage = .Cells(PLsh1 + (i - 1) * 33, Colsh1).Resize(32, 1)
        moy = Application.WorksheetFunction.Average(plage)
        Sheets(sh3).Cells(PLsh3 + i - 1, Colsh3) = moy
    Next i
  
    End With

End Sub

Sub Synthese()

    Dim derlig As Long
    
    Call CalculMoyenne("CD", 10, "Synthese", "D")
  
    Call CalculMoyenne("CD", 11, "Synthese", "I")
  
End Sub

Mais au niveau de la ligne en gras l'erreur d'éxecution 9 apparait
"l'indice n'appartient pas à la sélection"

Comment peut on l'enlever? j'ai fait pleins d'essais impossible de régler le problème

Réponse 6 / 6

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Quand tu es en erreur, passes le curseur sur les différentes variables pour voir leur valeur, tu verras (peut être) d'où vient le problème
Chez moi

Public Sub CalculMoyenne(FD As String, co As Long, FS As String, ko As Long)
Dim lidebFD As Long, lifin As Long, n As Long, plage As Range, k As Long, moy As Double, lidebFS
lidebFD = 4
lidebFS = 4
With Sheets(FD)
  lifin = .Cells(Rows.Count, co).End(xlUp).Row
  Set plage = .Range(.Cells(lidebFD, co), .Cells(lifin, co))
  n = Application.WorksheetFunction.CountIf(plage, "") + 1
  For k = 1 To n
    Set plage = .Cells(lidebFD + (k - 1) * 33, co).Resize(32, 1)
    moy = Application.WorksheetFunction.Average(plage)
    Sheets(FS).Cells(lidebFS + k - 1, ko) = moy
  Next k
End With
End Sub

Sub essai()
  Call CalculMoyenne("CD", 10, "Synthèse", 4)
  Call CalculMoyenne("CD", 11, "Synthèse", 9)
End Sub

ceci fonctionne

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Je viens de voir l'erreur, le nom de la feuille au niveau de l'appel "Synthèse" et non "Synthese"
Comme quoi...

Cdlmnt

Vinsanity15 Messages postés 39 Date d'inscription Statut Membre Dernière intervention

Ouais je viens de changer le nom de l'onglet le problème est réglé.
J'ai testé les plusieurs appels c'est nickel aussi donc merci beaucoup pour ton aide problème résolue

Discussions similaires

Calculer la moyenne mensuelle de données par jour sur excel

moyenne de cellules avec détection de cellules vide

calcul automatique d'une moyenne en php

Avis bac STI2D

QI d'un enfant de 12ans

comment faire une moyenne des durée de temps

Votre réponse

Discussions similaires