Discussion :

[Valérie32]

Bonsoir à tous! Je débute en VBA Excel et je cherche des codes qui permettraient de calculer des fonctions basiques de Excel (telles que la moyenne, l'écart-type... ) d'une colonne d'un tableau dont les lignes peuvent varier.
Merci d'avance, j'avoue que je me sens un peu perdue!

[ouskel'n'or]

Tout dépend si tu peux utiliser une formule dans une cellule sous tes données ou si tu veux seulement le résultat de la formule
Je te donne les deux exemples pour la moyenne

1. Donne le résultat et peut le placer sous les données ou l'utiliser "ailleurs"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test1()
Dim PremLig As Integer, derlig As Long, Result As Double
    PremLig = 2
    derlig = Split([Feuil1].UsedRange.Address, "$")(4)
 
    'si ta colonne A est d'une taille différente que la plus longue colonne
    derlig = [Feuil1].Range("A65536").End(xlUp).Row
 
    Result = Application.WorksheetFunction.Average([Feuil1].Range("A" & PremLig & ":A" & derlig))
    [Feuil1].Cells(derlig + 1, 1) = Result
    MsgBox Result
End Sub

2. Place la formule sous les données

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2() 
Dim PremLig As Integer, derlig As Long
    PremLig = 2
    'derlig = Split([Feuil1].UsedRange.Address, "$")(4) 'dernière ligne des données
 
    'Ou... si ta colonne A est d'une taille différente que la plus longue colonne
    derlig = [Feuil1].Range("A65536").End(xlUp).Row
 
    'Place la formule sur la première ligne vide de la colonne A
    [Feuil1].Cells(derlig + 1, 1).Formula = "=AVERAGE(" & [Feuil1].Range("A" & PremLig & ":A" & derlig).Address & " )"
    MsgBox [Feuil1].Cells(derlig + 1, 1)
End Sub

Pour l'écart type, je te conseille la formule sous les données plutôt que le calcul (!!!) (formule non utilisable avec VBA - Excel 2003)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test3() 'Avec formule placée sous les données
Dim PremLig As Integer, derlig As Long
    PremLig = 2
 
    'Attention, si la dernière contient la moyenne, utiliser derlig - 1
    derlig = [Feuil1].Range("A65536").End(xlUp).Row 'ignore la ligne contenant la moyenne
 
    'Place la formule sur la même ligne que la moyenne, colonne B
    [Feuil1].Cells(derlig + 1, 2).Formula = "=STDEVA(" & [Feuil1].Range("A" & PremLig & ":A" & derlig).Address & " )"
    MsgBox [Feuil1].Cells(derlig + 1, 2)
End Sub

Pour tester, lance d'abord le test 3 sinon ton écart type inclut la moyenne qui se trouvera en dernière ligne dans son calcul
Bonne journée

[Valérie32]

Merci Ouskel'n'or! Grâce à toi, c'est devenu plus clair dans ma tête!