XL 2019 moyenne

MOmichel · 2 Avril 2021

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"

job75 · 7 Avril 2021

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

job75 · 2 Avril 2021

Bonjour MOmichel,

MOmichel à dit:
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+

MOmichel · 7 Avril 2021

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

job75 · 7 Avril 2021

Bonjour,

MOmichel à dit:
c'est sur une ligne comme "Moyenconso = Moyenconso / 10" que je voudrais appliquer un arrondi superieur

En l'état ça n'a vraiment aucun sens !

A+

job75 · 7 Avril 2021

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

XL 2019 moyenne

MOmichel

XLDnaute Junior

Pièces jointes

job75

job75

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires