Bonjour,

Je dispose d'une colonne A de 3200 valeurs. Je souhaite créer une macro qui sélectionne 30lignes toutes les 26 et qui calcule la moyenne de chaque paquet de 30 lignes et me l'affiche dans la colonne B. J'ai réussi à créer une macro qui me sélectionne les lignes pour lesquelles je souhaite calculer la moyenne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1")
 
DerLig = Split(FL1.UsedRange.Address, "$")(4)
 
NoCol = 1
 
For NoLig = 1 To DerLig Step 56
 
     Var = FL1.Range(Cells(NoLig, NoCol), Cells(NoLig + 29, NoCol)).Select
Next
 End Sub
Je voudrais insérer une fonction qui calcul la moyenne des lignes sélectionnées et de me l'afficher dans la colonne B. J'ai essayer d'intégrer cette formule dans la boucle for mais elle m'affiche #NOM.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 Cells(Nolig, NoCol+1).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Var)"
Je vous remercie d'avance pour votre aide.