Discussion :

[sophiefag]

Bonjour,
Je n’arrive pas à faire marcher la formule ci-dessous..
Il doit y avoir une erreur quelque part.. mais je n’arrive pas à la trouver.. Quand je fais marcher la macro « beta », dans la cellule B6 ; il y a écrit « Nom ? » et en cliquant, on voit la formule : MOYENNE(cells(i + 11; j + 3):$E$767). (la cellule E767 est bien la dernière de la colonne contenant une valeur)
J’ai essayé en faisant : cells(i,j).Offset(11, 3), cells(i,j).Offset(11, 3).End(xlDown) (pour définir ma plagemoyenne)
Mais ça ne marche pas non plus.. Donc je suis bloquée..
Si quelqu’un voit mon problème ! Merciiii !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function moyenne(i, j)
plagemoyenne = "Cells(i + 11, j + 3):" & Cells(i + 11, j + 3).End(xlDown).Address
Cells(i, j).Formula = "=AVERAGE(" & plagemoyenne & ")"
End Function
 
Sub beta()
Call moyenne(6, 2)
Call moyenne(6, 6)
Call moyenne(6, 10)
Call moyenne(6, 14)
Call moyenne(6, 18)
End Sub

[papimcha]

bonjour,

essaye sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function moyenne(i, j)
 'cells(i+11,j+3) était considérer comme un texte
plagemoyenne = Cells(i + 11, j + 3) & ":" & Cells(i + 11, j + 3).End(xlDown).Address
Cells(i, j).Formula = "=AVERAGE(" & plagemoyenne & ")"
End Function
 
Sub beta()
Call moyenne(6, 2)
Call moyenne(6, 6)
Call moyenne(6, 10)
Call moyenne(6, 14)
Call moyenne(6, 18)
End Sub

Je pense que ca devrait marcher,
bonne journée

edit : trop tard

[sophiefag]

Merci beaucoup!
Ca marche très bien!

[fring]

edit : trop tard

Je te laisse passer klaxonne la prochaine fois

Mais une petite précision quand même, si tu ne précises pas la propriété Address, par défaut il prendra la propriété Value et ça va couiner

Code :

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

plagemoyenne = Cells(i + 11, j + 3).Address & ":" & Cells(i + 11, j + 3).End(xlDown).Address