Bonjour à tous,
Je cherche à faire la moyenne de valeurs situées dans un intervalle.
Les bornes de cet intervalle change à chaque itération, donc cela donne une moyenne différente à chaque itération.
Pour calculer la moyenne, j'utilise une formule qui a besoin des coordonnées des cellules des bornes.
Je cherche donc les coordonnées des cellules contenant ces valeurs.
Le but du programme est que, lorsque l'on a un intervalle, le programme fasse la moyenne des valeurs de la colonne M comprises dans cet intervalle puis la même chose pour la colonne L.
J'arrive à obtenir les coordonnées d'un des paliers, mais pas l'autre.
Pour changer la valeur des paliers, j'incrémente une cellule: cells(i,1) et une variable NvPal, afin que les bornes de l'intervalle soient égales au deux valeurs.
Le problème est qu'au niveau de la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 'Valeur pour faire la moyenne DT Dim NvPal as Double NvPal = Min + Abs(seuil * h) 'valeur minimum du palier Sheets(k).Cells(72 + h, 4).Value = i 'On veut renvoyer l'adresse de i dans la formule du DT Sheets(k).Cells(72 + h, 5).Value = Cells.Find(NvPal, , xlValues).Address Sheets(k).Cells(56 + h, 2).Value = "=(AVERAGE(INDIRECT(""donnees!""&ADDRESS(R[16]C[2],13)):INDIRECT(""donnees!""&ADDRESS(R[16]C[3],13))))-(AVERAGE(INDIRECT(""donnees!""&ADDRESS(R[16]C[2],12)):INDIRECT(""donnees!""&ADDRESS(R[16]C[3],12))))" 'valeur de DT
j'ai une erreur "Variable Objet ou variable de bloc with non défini".
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets(k).Cells(72 + h, 5).Value = Cells.Find(NvPal, , xlValues).Address
Mon programme étant assez lourd, y-a-t-il une meilleure méthode pour obtenir ce que je désire?
Partager