calculer moyenne sous vbscript

Version imprimable

29/06/2010, 17h35
juzii

calculer moyenne sous vbscript

Bonjour

je cherche a calculer des moyennes dans un fichier excel. Le probleme est que je dois d abord sélectionner les cellules sur lesquelles effectuer ma moyenne, et bien évidement je ne connais pas leurs position exactes;

en fait je calcule la moyenne d'une ligne à partir des cellules de la ligne en cours de la colonne numéro 2 à une colonne x, je ne connais pas a l avance le nombre de colonne du fichier

ensuite outre ce problème de sélection que je n'arrive pas à résoudre, je ne trouve pas de formule "toute faite" pour calculer la moyenne genre "average(selection)". j ai trouvé "Application.WorksheetFunction", mais cette fonction ne semble pas marcher en vbscript.
j ai testé d'écrire directement dans la cellule "=moyenne(masélection)" depuis mon script vb, mais au niveau du fichier ce n'est pas reconnu

voila voila! je suis à cour d'idée!! quelqu'un aurait il une idée,?
merci
29/06/2010, 17h55
SfJ5Rpw8

montre nous ton code, que l'on voit comment tu accède à ta feuille et comment tu accède a la fonction average...

en fait dans ce code j ai essayé différentes choses..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
'paramètres'
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Open("H:\FichierCorrige.txt")
Set objWorksheet = objWorkbook.Worksheets(1)
 
'calcul moyenne concentration/temps'
set selection2 = objWorksheet.columns(2)
selection2.EntireColumn.Insert
set titre2 = objWorksheet.cells(1,2)
titre2.value="Moyenne"
 
nbligne = objWorksheet.Range("A2").End(xldown).Row
for l=2 to nbligne
	'set allvalues = objWorksheet.Range("B" & l ":" & objWorksheet.cells(l,nbcolonne-1))
'	nb= nbcolonne + 1
	set allvalues = objWorksheet.Range(objWorksheet.cells(l,2) & ":" & objWorksheet.cells(l,nb))
	'mean = "MOYENNE(" & allvalues & ")"
	objWorksheet.cells(2,2).value=nbligne
	objWorksheet.cells(3,2).value=allvalues
next	
 
'on enregistre le classeur et on quitte excel
objWorkbook.SaveAs("H:\FichierCorrige.xls")
objExcel.Quit

et il ne reconnait pas les syntaxe comme

Code:

1
2
 
set allvalues = objWorksheet.Range(objWorksheet.cells(l,2) & ":" & objWorksheet.cells(l,nb))

Code:

'mean = "MOYENNE(" & allvalues & ")"

30/06/2010, 09h42
SfJ5Rpw8
pour la définition de la plage ce serait plutôt :

Code:

set allvalues = objWorksheet.Range(objWorksheet.cells(l,2),objWorksheet.cells(l,nb))

ensuite pour la moyenne
Code:

1 2 3 4 Dim MaMoyenne MaMoyenne= objExcel.WorksheetFunction.Average (allvalues )
30/06/2010, 10h27
juzii

merci !
je vais tester