Discussion :

[eliniel]

Bonjour,
Mon classeur comporte deux feuilles:
Une feuille qui contient des données et une où l'utilisateur rentre des paramètres.
L'un des paramètres est un intervalle, définit par deux adresses de cellules dont je me sers pour calculer une moyenne d'une partie d'une colonne. (à faire pour chaque colonne)

Ce qui ressemble à peu près à ceci.
Pièce jointe 157072 feuille 1

Pièce jointe 157073 feuille 2

Seulement, lorsque que je code en VBA la fonction :

Code :

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

Application.WorksheetFunctionMax(Sheets("donnees!C27:C28"))

Code :

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

=MOYENNE("donnees!A27:A28")

Cela ne donne rien.

de même en testant de manière directe (dans la barre de formule du tableur), je n'obtient que l'erreur "#VALEUR!".
Je comprends donc qu'il n'arrive pas à comprendre où est la valeur.

Une fois la valeur moyenne calculée pour chaque colonne, il me suffira de les copier dans une feuille toute propre afin d'exporter les résultats.

[Kaldore]

Si tu donnais ton fichier ou un exemple, ce serait plus facile de corriger le problème

[Menhir]

La moyenne, c'est la somme divisée par le nombre.

Tu fais la somme de ce qui est inférieur à ta borne supérieure (SOMME.SI) et tu soustrais la somme de ce qui est inférieur à la borne inférieure.
Ca te donne la somme de ce qui se trouve entre les deux bornes (tu peux aussi l'obtenir avec un SOMME.SI.ENS).

Tu fais la même chose pour les nombres (avec deux NB.SI ou un NB.SI.ENS).

Tu divises le premier par le second.

Il n'existe malheureusement pas de MOYENNE.SI.ENS qui aurait permis de faire tout ça d'un coup.

[Kaldore]

La fonction MOYENNE.SI.ENS existe dans Excel 2010

[Menhir]

Je me suis arrêté à 2007 (pour l'instant), d'où ma méconnaissance de cette fonction.

[eliniel]

La fonction Moyenne.Si.ens donne quoi une fois transcrise en vba?

Voici mon code, qui est censé me donner la moyenne, la valeur minimum et maximum de cette colonne.

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
16
17
18
19
20
 
REF = Sheets("donnees").Cells(27, 1).Value
Ref2 = Sheets("donnees").Cells(28, 1).Value
 
'Moyenne, valeur max, valeur min: Temp T°air sec1
    Sheets("donnees").Activate     'activer la feuille des données
    'Calcul de la moyenne
    MoyT°airsec1 = Application.WorksheetFunction.Average(Sheets("donnees!(INDIRECT(Ref:Ref2)"))    'faire la moyenne des valeurs de la colonne C
    'Calcul de la valeur max
    Valmax1 = Application.WorksheetFunctionMax(Sheets("donnees!C27:C28"))
    'Calcul de la valeur min
    Valmin1 = Application.WorkSheetFunctionMin(Sheets("donnees!C27:C28"))
    'Calcul d'écart-type
    ec1 = Application.WorksheetFunction.StDev(Sheets("donnees!C27:C28"))
    'Affichage des résultats
    Sheets("resultats").Activate   'Activer la feuille des résultats
    Range("G4") = MoyT°airsec1     'Afficher la valeur dans la cellule adaptée
    Range("H4") = Valmin1
    Range("II4") = Valmax1
    Range("J4") = ec1

EDIT: J'ai trouvé une autre solution.
Je place sous les bornes les cases indirectes de ces bornes et je fais la moyenne de ces cases indirectes.
De manière écrite sous le tableur ça marche.
Mais comment écrire la fonction indirecte d'une cellule en VBA?