Discussion :

[sakhob]

Bonjour,

Je souhaiterai écrire une fonction GetColumnAverage qui à partir d’un tableau, renvoie la moyenne par colonne.
Exemple : en passant ce tableau en entrée de la fonction

col1	col2	col3
1	2	3
2	3	4
3	4	5
4	5	6
5	6	7

On obtient ce résultat :

col1	col2	col3
3	4	5

Je vous remercie de votre aide
cdt

[Invité]

Bonjour,

As-tu déjà un début de code ? Si oui, où est ce que tu bloques ? Si non, as-tu une petite idée de comment commencer ? (en supposant que tu es déjà fait du vba).

[joe.levrai]

A la sauvette

sur la plage contiguë de la feuille active en partant de A1

Code :

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

1
2
3
4
5
6
7
8
Sub ioi()
Dim Tabl(), Resultat(), i As Long
Tabl = Cells(1, 1).CurrentRegion.Value      ' récupération de la plage
ReDim Resultat(1 To UBound(Tabl, 2))        ' création du tableau de résultat 
    For i = LBound(Tabl, 2) To UBound(Tabl, 2)  ' boucle sur chaque colonne // SINON For i = LBound(Resultat) To UBound(Resultat)
        Resultat(i) = Application.Average(Application.Index(Tabl, , i)) ' moyenne de la colonne
    Next i
End Sub

[sakhob]

Merci joe.levrai pour votre retour.

par contre la personne ne veut pas de la fonction Average d’Excel dans le code.

c'est ça qui me bloque.

Merci de votre aide.

[joe.levrai]

Ceci n'est pas la fonction average de la classe WorksheetFunction (les fonction de feuille de calcul), mais de l'objet Application

Si la personne souhaite emprunter des chemins détournés pour réinventer la poudre, c'est sans moi car ceci ressemble donc à un exercice scolaire, dont la résolution mathématique est très bête.

Bon courage

[sakhob]

Merci pour votre retour.
Je vais tester votre code

[sakhob]

Merci joe.levrai

j'ai tester le code mais je ne vois pas mes résultats.

je souhaiterai voir afficher les résultats dans la feuille.

pour rappel le resultat attendu est:

colonne1 colonne2 colonne3
3 4 5

[joe.levrai]

Bonjour,

les résultats sont dans le tableau Resultat
il suffit d'injecter son contenu sur la feuille

Les trois dernières ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub ioi()
Dim Tabl(), Resultat(), i As Long
Tabl = Cells(1, 1).CurrentRegion.Value      ' récupération de la plage
ReDim Resultat(1 To UBound(Tabl, 2))        ' création du tableau de résultat
    For i = LBound(Tabl, 2) To UBound(Tabl, 2)  ' boucle sur chaque colonne // SINON For i = LBound(Resultat) To UBound(Resultat)
        Resultat(i) = Application.Average(Application.Index(Tabl, , i)) ' moyenne de la colonne
    Next i
 
    With ThisWorkbook.Worksheets.Add
        .Cells(1, 1).Resize(1, UBound(Resultat)).Value = Resultat
    End With
End Sub

[sakhob]

merci beaucoup