Discussion :

[Madigrizz]

Bonjour
Je suis débutant dnas l'utilisation des macros sur Excel et la programmation en VBA.
Pour ce qui est du programme sur lequel je travail: je dispose de relevé de températures d'une installation, quart d'heure par quart d'heure.
J'ai 3 jeux de donnée (date / température) différents que j'ai rangé dans les plages: Date1, Tempeature1, Date2 Temperature2, Date3, temperature3.
J'aimerai pouvoir moyenner ces donner pour finir une des températures horaires mais aussi moyenners ces plages entre elles.
Voilà où j'en suis pour l'instant:





Et ma première tentative de code VBA est la suivante:





Ce code exprime bien ce que je souhaite obtenir, j'ai éssayé plusieurs façon de le coder mais malheureusement la boucle For dans laquelle je cherche à calculer les moyennes ne fonctionne pas.

Quelqu'un pourrait-il m'aider s'il vous plait?

Merci d'avance

[Menhir]

Ta boucle n'y est pour rien.
VBA ne comprends pas les fonctions en français. Donc tes 3 premières "MOYENNE" vont se casser les dents à l'exécution.
Quand à la quatrième ligne, l'utilises pour mettre dans une cellule une formule qui calcule la moyenne de trois valeurs fixes, ce qui, à priori, n'a pas d'intérêt : autant calculer cette valeur en VBA et mettre le résultat dans la cellule.
Cela dit, la syntaxe de cette ligne n'est pas correcte. En l'état, ça indique de mettre dans la cellule une fonction qui calculera la moyenne de trois cellules nommées et non celle de tes 3 variables.

Cela dit, je ne comprends pas pourquoi tu veux faire ça en VBA alors qu'il s'agit juste de déposer une formule dans une cellule.

[Madigrizz]

Ok merci pour ta réponse!
Pour à mon tour répondre à certains points que tu as soulevé:
J'vais commencé par faire cette moyenne que j'essaye de faire en VBA, en la rentrant directement dans les cellules de la colonne L, mais le faite que excel recalcule en permanence les 8700 moyennes ralentissait énormément mon programme. Je connais l'astuce de l'execution manuelle des formules gràce à la touche F9, mais je comptais mappuyer sur ce cas de figure pour pratiquer le VBA et progresser.
Cest pourquoi je te remerci pour tes conseils!
Pour le calcul de moyenne, j'avais commencé à tout faire d'un coup plutot que de passer par trois variables intermédiaires, je vais surement suivre tes conseils et revenir vers cette organisatin là.
Par contre pour le problème du Francais, tu me conseils donc de remplacer les "Moyenne" et Moyenne.si.ens" par "Average" et AverageIFS"??

[Madigrizz]

En mettant tout dans un même calcul et en me débarrassant du français j'obtiens ça, mais ça ne marche toujours pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets("Moyenne").Range("L" & j + 11).FormulaLocal = "= AVERAGE(AverageIfs(Temperature1, Date1, "" >= "" & Cells(j + 11, 11), 
Date1, "" < "" & Cells(j + 11 + 1, 11)),AverageIfs(Temperature2, Date2, "" >= "" & Cells(j + 11, 11), Date2, "" < "" & Cells(j + 11 + 1, 11)),
AverageIfs(Temperature3, Date3, "" >= "" & Cells(j + 11, 11), Date3, "" < "" & Cells(j + 11 + 1, 11)))"

[Philippe Tulliez]

Bonjour Madigrizz,
Ce n'est pas la propriété FormulaLocal mais Formula qu'il faut utiliser

[mfoxy]

Bonjour,


juste pour avis :

Il aurait été peut-être plus judicieux de créer un Tableau Croisé dynamique , au lieu de vouloir ce lancer dans une macro Vba me semble t'il ?
Les segments feraient office de filtre, une colonne moyenne journalière et la possibilité de modifier la vue / ajout MFC au bon vouloir de l'utilisateur.

Une manière pérenne et "professionnel" de créer des rapports interactifs.