Bonjour,
Debutant en VBA j'ai fait une petite macro et je souhaiterais simplifier le code ci-dessous par une boucle. en fait la formule est la même, il y a juste les colonnes qui changent.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
derligne = Range("A1").End(xlDown).Row
 
Range("B2").Formula = "=AVERAGE(calcul!B2:B" & derligne & ")"
Range("C2").Formula = "=AVERAGE(calcul!C2:C" & derligne & ")"
Range("D2").Formula = "=AVERAGE(calcul!D2:D" & derligne & ")"
Range("E2").Formula = "=AVERAGE(calcul!E2:E" & derligne & ")"
Range("F2").Formula = "=AVERAGE(calcul!F2:F" & derligne & ")"
Range("G2").Formula = "=AVERAGE(calcul!G2:G" & derligne & ")"
Range("H2").Formula = "=AVERAGE(calcul!H2:H" & derligne & ")"
Range("I2").Formula = "=AVERAGE(calcul!I2:I" & derligne & ")"
Range("J2").Formula = "=AVERAGE(calcul!J2:J" & derligne & ")"
Range("K2").Formula = "=AVERAGE(calcul!K2:K" & derligne & ")"
Range("L2").Formula = "=AVERAGE(calcul!L2:L" & derligne & ")"
Range("M2").Formula = "=AVERAGE(calcul!M2:M" & derligne & ")"
J'ai essayé plein de truc comme avec la boucle for ci-dessous mais j'y arrive pas, je dois sans doute me planter dans la syntaxe.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
For i = A To M
Range(i & "2").Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")"
Next i
Donc si quelqu'un pouvait m'aider ca serait bien sympa. Merci d'avance.

Damien