Discussion :

[cyberboy00]

Bonjour,
J'ai écrit un code qui me permet de calculer la médiane pour chaque ligne de ma feuille, le voici :

Code :

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

1
2
3
4
5
6
7
8
9
 
L = Cells.SpecialCells(xlCellTypeLastCell).Row
C = Cells.SpecialCells(xlCellTypeLastCell).Column
 
For r = 3 To L
Cells(r, C + 2).Formula = "=MEDIANE(" & Cells(r, 2).Address & _
":" & Cells(r, C).Address & ")"
 
Next r

Le souci c'est que dans le fichier de sortie, il m'affiche dans case médiane "#NOM?" malgré que j'ai bien ma formule de la médiane !
D'avance merci !
Cordialement.

[mercatog]

Bonjour

Code :

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

1
2
3
4
 
Range(Cells(3, C + 2), Cells(L, C + 2)).Formula = "=MEDIAN(" & Cells(3, 2).Address(0, 0) & ":" & Cells(3, C).Address(0, 0) & ")"
'ou
'Range(Cells(3, C + 2), Cells(L, C + 2)).FormulaLocal = "=MEDIANE(" & Cells(3, 2).Address(0, 0) & ":" & Cells(3, C).Address(0, 0) & ")"

Soit formulalocal et mediane, soit formula et median

PS: Sans boucle, c'est mieux

[cyberboy00]

Merci beaucoup !