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

XL 2019 moyenne

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

MOmichel

XLDnaute Junior
bonjour
Pourriez-vous m'aider car je manipule pas la fonction Average (moyenne)

voila ce que je voudrais faire

Je voudrais créer une variable (Moy)
qui serait la moyenne (arrondi supérieur) d'une line"L" (variable deja déclarée dans mon code)
sur les cellules colonne "I" ---> "I" allant de 23 à 32 ("I" est une variable deja déclarée qui représente une colonne du fichier)

je vais me servir de cette "moy" pour faire une décroissance sur les colonne "I" --> "I" de 77 à 86 en fonction de la somme de "I" allante de "I" 37 à 44

par avance merci de votre aide

ci joint mon fichier qui est le résultat du début de mon code jusqu'à la ligne
MsgBox "Traitement terminé", vbOKOnly + vbInformation, "CONFIRMATION"
 

Pièces jointes

Solution
Bon je comprends que vous voulez arrondir à la décimale supérieure :
VB:
L = 13 'pour tester
Moy = Application.RoundUp(Application.Average(Range(Cells(L, 23), Cells(L, 32))), 1)
MsgBox Moy 'pour tester
Bonjour MOmichel,
Je voudrais créer une variable (Moy)
qui serait la moyenne (arrondi supérieur) d'une line"L" (variable deja déclarée dans mon code)
sur les cellules colonne "I" ---> "I" allant de 23 à 32
Pour calculer une moyenne il n'y a pas besoin de boucle :
VB:
L = 13 'pour tester
Moy = Application.RoundUp(Application.Average(Range(Cells(L, 23), Cells(L, 32))), 0)
MsgBox Moy 'pour tester
A+
 
bonjour
D'abord je m'excuses pour cette reponse tardive et je vous remercie par avance de votre siolution , mais c'est sur une ligne comme "Moyenconso = Moyenconso / 10" que je voudrais appliquer un arrondi superieur , cnnaissez-vous le code ?

par avance
merci
 
Bon je comprends que vous voulez arrondir à la décimale supérieure :
VB:
L = 13 'pour tester
Moy = Application.RoundUp(Application.Average(Range(Cells(L, 23), Cells(L, 32))), 1)
MsgBox Moy 'pour tester
 
- 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
5
Affichages
531
Réponses
2
Affichages
811
Réponses
6
Affichages
736
Réponses
3
Affichages
830
  • Question Question
Réponses
20
Affichages
3 K
  • Question Question
Réponses
2
Affichages
1 K
Réponses
4
Affichages
795
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…