XL 2019 moyenne

[MOmichel]

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]

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 :

L = 13 'pour tester
Moy = Application.RoundUp(Application.Average(Range(Cells(L, 23), Cells(L, 32))), 0)
MsgBox Moy 'pour tester

A+

 

[MOmichel]

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]

Bonjour,

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]

Bon je comprends que vous voulez arrondir à la décimale supérieure :

L = 13 'pour tester
Moy = Application.RoundUp(Application.Average(Range(Cells(L, 23), Cells(L, 32))), 1)
MsgBox Moy 'pour tester