Discussion :

[Nefko]

Salut à tous,

Je dispose d'un classeur avec une centaine de feuilles dans laquelle j'aimerais faire un calcul de moyenne de façon dynamique (avec plages de cellules variables) dans chacune d'entre elles.

Avec l'enregistreur de Macro et les adaptations que j'y ai effectué, j'en ai déterminé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
Dim DerLigneMat As Long
DerLigneMat = Range("A" & Rows.Count).End(xlUp).Row
 
Range("B3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE[R6]C[8]:R[" & DerLigneMat & "]C[8]))"
End sub

Le soucis est que Visual Basic m'affiche un message d'erreur avec ce code. Comment pourrais-je m'y prendre afin de prendre en compte la dernière ligne de ma plage de chaque feuille?

[ARTURO83]

Bonjour,

erreur en bleu dans la formule

Code :

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

"=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE[R6]C[8]:R[" & DerLigneMat & "]C[8]))"

la bonne formule

Code :

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

"=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8]))"

Pour balayer toutes les feuilles, il faut employer une boucle FOR, chercher la dernière ligne de chaque feuille
exemple:

Code :

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

1
2
3
4
    For i = 1 To Sheets.Count
        DerLigneMat = Range("A" & Rows.Count).End(xlUp).Row
        Sheets(i).[B3].FormulaR1C1 = "=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8]))"
    Next i

Cdlt

[patricktoulon]

re
bonjour
heu..ARTURO83 tu es sur !!!?????
tu n'a pas l'impression qu'il manque quelque chose sur la ligne "DerLigneMat ="

Pour balayer toutes les feuilles, il faut employer une boucle FOR, chercher la dernière ligne de chaque feuille
exemple:

Code :

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

1
2
3
4
For i = 1 To Sheets.Count
        DerLigneMat = Range("A" & Rows.Count).End(xlUp).Row
        Sheets(i).[B3].FormulaR1C1 = "=AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8])/(AVERAGE(R[6]C[7]:R[" & DerLigneMat & "]C[7])+AVERAGE(R[6]C[8]:R[" & DerLigneMat & "]C[8]))"
    Next i

[Nefko]

Merci beaucoup à tous les deux. La macro fonctionne parfaitement maintenant.

[patricktoulon]

re
je donne la ligne au cas ou

Code :

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

DerLigneMat = sheets(i).Range("A" & Rows.Count).End(xlUp).Row