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

Calcul d'une moyenne en VBA

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

baptbapt

XLDnaute Occasionnel
Ceci est ma macro de base qui me servait a faire une somme sur 10 minutes,
pour faire la moyenne sur 10 minutes, il faut donc que je divise par 10?

Dim a As Integer
Dim totala As Long
Dim inda As Integer
Dim liga As Integer

liga = 9
inda = 4
totala = 0
For b = 1 To 86
' en fonction du nombre de valeurs à cumuler
For a = 1 To 10
totala = totala + Range("P" & a + inda).Value
totala=totala/10 <---- ajout pour moyenne
Range("Q" & liga).Value = totala
Next a
inda = inda + 1
liga = liga + 1
totala = 0
Next b
 
Re : Calcul d'une moyenne en VBA



si tu veux une moyenne il faut d'abord tout ajouter avant de diviser
 
Re : Calcul d'une moyenne en VBA

re baptbapt, Salut lapix,

Heu... Je suis comme lapix, je suis un peu perplexe sur ce que tu veux faire. Est-ce que tu as essayer de lancer ta macro? Les résultats sont un peu bidons.
De plus, je ne comprends meme pas ce que tu veux faire comme moyenne. Tu utilises 2 boucles et je ne comprends pas tres bien pourquoi.
Donne nous plus d'info sur ce que tu veux faire pour qu'on puisse t'aider.

@+
 
Re : Calcul d'une moyenne en VBA

re

peut-être une piste

WorksheetFunction, propriété

Voir aussiS'applique àExempleDétails
Cette propriété renvoie l'objet WorksheetFunction. En lecture seule.
Exemple

Cet exemple montre comment afficher le résultat obtenu après application de la fonction de feuille de calcul Min à la plage A1:A10.
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
 
- 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
4
Affichages
735
Réponses
5
Affichages
914
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…