Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Moyenne par partie MAcro VBA pour exel

  • Initiateur de la discussion Initiateur de la discussion reve20
  • 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 !

R

reve20

Guest
Bonjour a tous,
Mon problème est le suivant :
Je récupères chaque jours 86400 mesures sur 9 paramètres.
J'aimerai pouvoir réduire ce nombre en réalisant une moyenne de 60 mesures en 60 mesures grace a une macro VBA.
J'ai trouvé au fil de mes recherches le code suivant qui semblait résoudre mon problème mais helas lorsque je veux l'activer le mode "debogage" se lance et semble donc m'indiquer une erreur. Avez vous une autre macro ? ou y'a t il une petite chose a corriger
En vous remerciant
 
Re : Moyenne par partie MAcro VBA pour exel

Bonsoir,
Ce decalage s'est fait quand j'ai passe en citation je ne sais pas pourquoi, l'espace n'existe pas dans mes lignes.
Merci quand meme 🙂
 
Re : Moyenne par partie MAcro VBA pour exel

Bonjour 🙂
Sous réserve que tes données soient en colonnes A à I, résultat en J à R, et que tes colonnes soient de la même hauteur :
Code:
Sub Moyenne60()
Dim DerLigne As Long, I As Integer, J As Long
DerLigne = Range("A" & Cells.Rows.Count).End(xlUp).Row
For I = 1 To 9
    For J = 0 To Int(DerLigne / 60)
        Cells(J + 1, I + 9) = Application.WorksheetFunction.Average( _
            Application.WorksheetFunction.Average( _
            Range(Cells(J * 30 + 1, I), Cells((J + 1) * 30, I))), _
            Application.WorksheetFunction.Average(Range(Cells(J * 30 _
            + 31, I), Cells((J + 1) * 30 + 30, I))))
    Next J
Next I
End Sub
Bonne suite 🙂
 
Re : Moyenne par partie MAcro VBA pour exel

Re 🙂
Le problème est simple, tes données sont du texte et pas des chiffres... Sélectionne toute tes données, Ctrl + H, demande à remplacer les "." par des "," et ça va beaucoup mieux marcher... 😛
N'oublie pas d'enregistrer en "XLSM", sinon, ça ne gardera pas les macros... 🙄
Bonne suite 🙂
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
657
Réponses
7
Affichages
815
Réponses
2
Affichages
673
Réponses
7
Affichages
830
Réponses
16
Affichages
2 K
Réponses
2
Affichages
1 K
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…