Discussion :

[mollus]

Bonjour à tous

Je voudrais réaliser une fonction permettant d’écrire une formule dans des cellules d’une feuille excel. Cette formule calcul la moyenne d’une plage de données d’une autre feuille.
Pour rentrer plus dans le détail je dispose de deux feuilles, la feuille 1 avec un grand nombre de données, et la feuille 2 qui synthétise la feuille 1. la cellule B2 de la feuille 2 fait la moyenne de la plage (T3 :T8) de la feuille 1 ; la cellule B3 la moyenne de ( T9 :T14) etc.
Je ne veux pas directement écrire le résultats dans la cellule mais écrire la formule : « =MOYENNE ( Feuille1 ! T3 :T8) » dans B2.
Pour faire cela j’ai crée cette petite fonction qui utilise des variables qui s’incrémentent à chaque ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
x = 3
y = 8
 
    For i = 2 To 49  
       Feuil1.Range("B" & i).Value = "=MOYENNE(Feuil1!T " & x & ":T" & y ")"
 
       x = x + 6
       y = y + 6  
    Next i    
End Sub

La fonction n'est vraiment pas compliquée mais je n’arrive pas à trouver la syntaxe pour que se ne soit pas x et y qui s’écrivent dans les cellules mais bien leurs valeurs. J'ai essayé avec .Formula, en modifiant les " mais la je sèche vraiment ...
En vous remerciant par avance.

[mercatog]

Code :

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

1
2
3
4
5
x = 3
For i = 2 To 49
    Sheets("Feuil2").Range("B" & i).Formula = "=AVERAGE(Feuil1!T" & x & ":T" & x + 5 & ")"
    x = x + 6
Next i

[mollus]

Un grand merci !!!