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.
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
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 & ")"
Donc si quelqu'un pouvait m'aider ca serait bien sympa. Merci d'avance.
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
Damien
Partager