recopie d'une moyenne...help!!

Pierrot93

XLDnaute Barbatruc

• 7 Mai 2007

• #2

Re : recopie d'une moyenne...help!!

Bonjour Fourmi

essaye peut être comme ci dessous :

Code:

Mo = WorksheetFunction.Average(TabNombre)

ca devrait fonctionner dès l'instant ou ton tableau est bien alimenté.

bon après midi
@+

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 7 Mai 2007

• #3

Re : recopie d'une moyenne...help!!

Bonjour Fourmi4X et le forum,

Comment initialises tu la variable "z" si celle-ci est à zéro c'est normale que tu trouves 0 à ta moyenne.

A te lire avec un petit exemple SVP. Bon test.

 

Vote positif 0 Vote négatif

F

fourmi4x

Guest

• 7 Mai 2007

• #4

Re : recopie d'une moyenne...help!!

merci pour vos réponses.

la changement de la formule average ne produit rien.

le z est affecté d'une valeur rentrée par l'utilisateur (environ 20) qui fonctionne...
le x vient du fait que tout ceci est compris dans une boucle for, donc le x s'incrémente.


je viens de tester le tableau et il n'est pas affecté...grr
sachant que dans ma feuille vol_histo il y a bel et bien des valeurs au bon endroit, je ne comprends pas ce qui peut bugger la dedans :

ReDim TabNombre(1 To z)

For compteur = 1 To z
Worksheets("vol_histo").Activate
TabNombre(compteur) = Worksheets("vol_histo").Range("A1").Offset(compteur, x).Value
Next compteur


???
encore merci de votre aide

 

Dernière modification par un modérateur: 7 Mai 2007

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 7 Mai 2007

• #5

Re : recopie d'une moyenne...help!!

Re Bonjour Fourmi4x et le Forum,

Salut Pierrot,

Par exemple, j'entends un fichier si celui-ci ne contient pas de données confidentielles.

Autrement tu vas dans ta Macro, Tu cliques sur la ligne SUB puis après tu appuyes sur F8 et ta macro va s'excuter pas à pas à chaque appuis sur F8. Il suffit que tu places le pointeur de ta souris sur l'instruction "TabNombre(compteur)" juste la ligne venant d'être passée ( celle du dessous est en jaune) et tu verras si ta macro affecte bien les valeurs dans ton tableau.

Bon test.

 

Vote positif 0 Vote négatif

F

fourmi4x

Guest

• 7 Mai 2007

• #6

Re : recopie d'une moyenne...help!!

re bonjour et merci d'avoir répondu

la technique du F8 est tout simplement géniale 🙂
j'ai donc découvert que tout se passait correctement ( O miracle !)

sauf qu'il me met, arrivé au calcul de la moyenne :
Worksheets("ACCUEIL").Range("A1") = MonExcel.WorksheetFunction.Average(TabNombre)

"erreur d'execution 1004 : impossible de lire la propriété Average de la classe WorksheetFunction"

alors que mon tableau est bien rempli tout beau et tout.
j'ai beau regarder des exemples je ne vois pas en quoi j'utilise mal la fonction average 🙁

mon fichier est très gros je ne peux pas l'uploader. je pense de toute façon que c'est une mauvaise utilisation de la fonction average, mais si ce n'est pas ça je vais essayer de tout supprimer sauf le nécessaire.

j'espère ne pas abuser mais ça fait 2 jours que je suis là-dessus et je n'arrive pas à faire une simple moyenne de tableau... 🙁

 

Vote positif 0 Vote négatif

JYLL

Nous a quitté

Repose en paix

• 7 Mai 2007

• #7

Re : recopie d'une moyenne...help!!

re Bonjour Fourmi4X et le Forum,

Solution simple pour faire ta moyenne.

Code:

Sub Moyenne()
Dim I As Long, Colonne As Integer, Somme As Double
    I = 1
    Colonne = 1
    While Cells(I, Colonne) <> ""
        Somme = Somme + Cells(I, Colonne)
        I = I + 1
    Wend
    Cells(I, Colonne) = Somme / (I - 1)
End Sub

Bon test.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Mai 2007

• #8

Re : recopie d'une moyenne...help!!

Re Fourmi, bonjour Jyll

@Fourmi
petite question idiote sans doute, a quoi sert ton :

Code:

Set MonExcel = New Excel.Application

en l'état vois pas trop l'interêt...

bon après midi
@+

 

Vote positif 0 Vote négatif

F

fourmi4x

Guest

• 8 Mai 2007

• #9

Re : recopie d'une moyenne...help!!

bonne nuit à tout le monde

bon merci beaucoup JYLL tu m'as littéralement sauvé du suicide ça marche c'est beau c'est même magique. merci beaucoup.

et oui pierrot c'était idiot de faire ça...mais bon c'est pas ma faute j'apprends grâce à des tutoriels parfois top détaillés il faut croire...

enfin bon merci à vous deux pour votre aide 🙂 et au plaisir 🙂

 

Vote positif 0 Vote négatif