Discussion :

[eliniel]

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.

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

Le problème est qu'au niveau de la ligne :

Code :

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

Sheets(k).Cells(72 + h, 5).Value = Cells.Find(NvPal, , xlValues).Address

j'ai une erreur "Variable Objet ou variable de bloc with non défini".

Mon programme étant assez lourd, y-a-t-il une meilleure méthode pour obtenir ce que je désire?

[Nako_lito]

quand on fait un "Find", il faut se préparer a l'éventualité que la valeur ne soit pas trouvée. Ce qui retourne une erreur similaire a ce que tu décris.

[eliniel]

Merci Nako,
Mais j'ai trouvé comment résoudre mon problème sans passer par la fonction Find sur laquelle je n'avais aucun résultat depuis ce matin.
Je vais de ce clique aller voir ton lien.

Ma solution consiste à récolter les valeurs de bases des intervalles et d'incrémenter les coordonnées comme ci dessous:

Code :

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

1
2
 'Valeur pour faire la moyenne DT
                    Sheets(k).Cells(56 + h, 2).Value = "=(AVERAGE(INDIRECT(""donnees!""&ADDRESS(" & x & ",13)):INDIRECT(""donnees!""&ADDRESS(" & i & ",13))))-(AVERAGE(INDIRECT(""donnees!""&ADDRESS(" & x & ",12)):INDIRECT(""donnees!""&ADDRESS(" & i & ",12))))"