Discussion :

[dahuhunter]

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

[preverse]

Boucle sur Cells(i,j).Formula

[dahuhunter]

J'ai essayé

Code :

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

1
2
3
4
 
For i = A To M
Cells(2, i).Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")"
Next i

Erreur définie par l'application ou par l'objet

et ca

Code :

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

1
2
3
4
 
For i = 2 To 13
Cells(2, i).Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")"
Next i

les calculs se lancent mais quand je regarde dans mon classeur excel la formule n'est pas bonne il n'y a pas de lettre dedans et le resultat n'est pas bon voila ce que ca m'affiche dans excel pr la cellule B2

Code :

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

=MOYENNE(calcul!22:2102)

[preverse]

Utilise FormulaR1C1 pour avoir des positions relatives et ne plus avoir à utiliser des lettres dans tes formules.

A noter que tu fais ta moyenne sur une plage incluant ta cellules de moyenne, ça fait une référence circulaire.

[Gorfael]

Salut à tous
dahuhunter au lieu de

Code :

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

1
2
3
For i = A To M
Cells(2, i).Formula = "=AVERAGE(calcul!" & i & "2:" & i & derligne & ")"
Next i

Qui ne peut fonctionner, tu peux faire :

Code :

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

1
2
3
For i = 1 To 13
Cells(2, i).Formula = "=AVERAGE(calcul!" & chr(64+i) & "2:" & chr(64+i) & derligne & ")"
Next i

ou encore

Code :

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

1
2
3
For i = 1 To 13
Cells(2, i).Formula = "=AVERAGE(calcul!" & cells(2,i).address & ":" & cells(65536,i).end(xlup).address & ")"
Next i

A+

[dahuhunter]

oh j'étais parti en vacances et miracle en revenant mon pb est résolu merci Gorfael ca marche du feu de dieu
a+

[dahuhunter]

Ok merci pour votre aide je vais essayer avec les références relatives.
La cellule de moyenne est située sur une autre feuille que la plage, c'est parce que j'ai pas mis le debut du code