Discussion :

[Tomme]

mon problème :

Je voudrais calculer dans une cellule (sur une feuille de calcul appelée "Graph") la moyenne d'une partie de la colone "P" de la feuille de calcul "Resultat".
En faisant :

Code :

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

Sheets("Graph").Range("J37").FormulaR1C1 = "=AVERAGE(Resultats!R[433]C[6]:R[472]C[6])"

Ca marche et je me retrouve avec la moyenne de la ligne 433 à 472. Ok

Mais moi je ve passer ces "bornes" inférieur et supérieur en paramètre.
les bornes sont stoquée dans "J35" et "J36"

du coup j'ai écrit :

Code :

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

1
2
3
4
    Dim Moy_inf As Double, Moy_sup As Double,    
    Moy_inf = Sheets("Graph").Range("J35").Value
    Moy_sup = Sheets("Graph").Range("J36").Value
    Sheets("Graph").Range("J37").FormulaR1C1 = "=AVERAGE(Resultats!R[& Moy_inf]C[6]:R[& Moy_sup]C[6])"[/

Mais ... ça marche pas ! !

du coup j'en appel ç la communauté !

Merci

[zazaraignée]

Fais toi une petite userForm sur laquelle il y a un RefEdit et un bouton de validation (et peut-être un bouton Annuler pour sortir...). Dans ta macro, tu applelle cette UserForm et tu y récolte la valeur du RefEdit pour la suite de ta macro.

[jfontaine]

Essai comme ca

Code :

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

1
2
 
Sheets("Graph").Range("J37").Formula= "=AVERAGE(Resultats!" & Moy_inf & ":" & Moy_sup & ")"

[Tomme]

jfontaine,

merci pour ta réponse, mais dans le code que tu m'a donner il n'y a pas de référence à la colone dans laquelle sont selectionnée les cellules donc on veu faire la moyenne ?

pour mémoire je veux faire la moyenne de "P,Moy_inf" à "P,Moy_sup"

je ne vois pas dans ton code ce qui indique que l'on parle de la colonne "P" ?

Merci

[zazaraignée]

C'est pa un p mais une perluette qui est le symbole de concaténation de chaînes. Les noms de variables font références à des objets Range.

Je maintiens ma proposition de permettre à l'utilisateur de sélectionner les cellules (ou plages de cellules) avec un composant RefEdit (dans la palette d'outils de l'éditeur de UserForm, le dernier outil).

[Tomme]

merci Zaza pour ton message mais il est un peu trop complex pour moi !

qu'est ce qu'une perluette ?

en fait je ne veux pas que l'utilisateur puisse aller selectionner les cellules à "moyenner" car la plages peux représenter plusieur centaine de cellules sur une feuille différente, pas très aréable d'utilisation !

Moi je veu qu'a la lecture d'un graphique, il remarque visuellement la zone de la courbe qui est linéarisable et qu'il rentre les abscisse de cette zone (Moy_inf et Moy_sup) pour que la macro lui calcule la moyenne

J'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Moyenne()
 
    Dim Moy_inf As Double, Moy_sup As Double, Interval_point As Double
 
    Inteval_point = Sheets("Resultats").Range("B4").Value
    Moy_inf = Sheets("Graph").Range("J35").Value
    Moy_sup = Sheets("Graph").Range("J36").Value
    MsgBox Interval_point & "  " & Moy_inf & "  " & Moy_sup
 
        If Moy_inf <> 0 & Moy_sup <> 0 Then
            Sheets("Graph").Range("J37").Formula = "=AVERAGE(Resultats!P" & Moy_inf & ":P" & Moy_sup & ")"
        End If
 
End Sub

et ça marche putôt bien !