code VBA pour Moyenne

[oufkiryo]

Bonjour tous le monde,

j'ai besoin du code pour faire la moyenne, j'utilise le code suivant mais ca ne marche pas, si quelqu'un connais le bon code svp.
merci.

j = 1
Do

j = j + 1

If ThisWorkbook.Worksheets("Temps").Range("A" & i)=_ ThisWorkbook.Worksheets("Importation temps").Range("C" & j) Then

ThisWorkbook.Worksheets("Temps").Range("v" & i) = _
ThisWorkbook.Worksheets("Temps").Range("v" & i) + _
ThisWorkbook.Worksheets("Importation temps").moyenne(Range("u" & j))

 

[mécano41]

Re : code VBA pour Moyenne

Bonjour,

Tu peux utiliser la fonction de feuille de calcul par ex:

Pour faire la moyenne des cellules B4:B10 et la mettre en E7 tu fais :

Range("E7").Value = WorksheetFunction.Average(Range("B4:B10"))

Cordialement

 

[oufkiryo]

Re : code VBA pour Moyenne

oui, mais le problème les cellules a mettre en moyenne change c'est pas toujours de B4 à B10, c'est pour ça que j'utilise une boucle.

 

[oufkiryo]

Re : code VBA pour Moyenne

j'ai essayer de mettre average au lieu de moyenne mais ça marche pas.

ThisWorkbook.Worksheets("Temps").Range("v" & i) = _
ThisWorkbook.Worksheets("Importation temps").Average(Range("u" & j))

 

[Kiseki]

Re : code VBA pour Moyenne

Bonjour,


Tu peux utiliser la fonction "décaler" pour connaitre cette plage peut être ?

Sinon le fichier joint permettrai aux lecteurs une plus grande compréhension et donc une réponse potentiellement meilleure.

 

[mécano41]

Re : code VBA pour Moyenne

Je te donnais juste un exemple d'utilisation de la fonction de feuille, je n'ai pas regardé le reste....Pour l'utiliser, il faut la mettre complète ...WorksheetFunction.Average(... :

ThisWorkbook.Worksheets("Importation temps").WorksheetFunction.Average(Range("u" & j))

Cordialement

 

[oufkiryo]

Re : code VBA pour Moyenne

bonjour mécano,

j'ai appliqué le code que tu ma donner mais ca marche pas, la macro bloque.

merci

 

[mécano41]

Re : code VBA pour Moyenne

Bonjour,

Si tu veux écrire en A1 de la feuille "Importation temps", la moyenne des cellules de U1 à U5 de la feuille 'Blablabla"(1 et 5 étant préalablement définis par les variables i et j), tu écris :

Sub essai()
i = 1
j = 5
Worksheets("Importation temps").Range("A1") = WorksheetFunction.Average(Worksheets("Blablabla").Range("U" & i & ":U" & j))
End Sub

Edit : s'il n'y a rien dans les cellules il y a division par 0...

Cordialement

 

[oufkiryo]

Re : code VBA pour Moyenne

Bonjour,

c'est pour les gens qui auront le mm problème voila le code que j'ai pu utiliser:

ThisWorkbook.Worksheets("Temps").Range("v" & i) = _
Application.Average(ThisWorkbook.Worksheets("Importation temps").Range("u2:u" & j))

bon courage.

merci pour l'aide mes amis.