VBA : calcul de moyenne

Re : VBA : calcul de moyenne

Bonjour Actaris51,

Juste une précision : Par "dernieres valeurs remplies", est-ce la dernière colonne remplie ? (Dans votre exemple, colonne R ?)

a+
Matt

Re : VBA : calcul de moyenne

Bonjour Matt
NOn en fait il s'agit de la derniere colonne remplie avec des valeurs numériques.
Donc dans mon exemple la colonne N
J'ai mit des "X" dans la colonne R et les autres colonnes blanches pour indiquer que c'est là que seront entrées les nouvelles données lorsque l'on sera a la semaine 40, 44...
Si il le faut, je peut enlever ces "X" si cela peut simplifier le code.
Merci

Re : VBA : calcul de moyenne

Bonjour a tous,

Essayes ce code et tiens nous au courant si on va dans le bon sens

Sub MoyenneDernierMois()
Dim PremCol As Byte 'Première colonne du tableau
Dim DerCol As Byte 'Dernière colonne du tableau
Dim LaCol As Byte 'Colonne pour la moyenne
Dim LigRef As Byte '1ere ligne utilisée
Dim i As Integer 'Indice de boucle

PremCol = 5
DerCol = 31
LigRef = 3

'Recherche de la colonne moyenne
For i = DerCol To PremCol Step -1
If Not IsEmpty(Cells(LigRef, i)) And IsNumeric(Cells(LigRef, i)) Then
LaCol = i
Exit For
End If
Next

With Sheets("KPIs")
.Range("E2").FormulaR1C1 = "=AVERAGE(Données!R3C" & LaCol & ":R11C" & LaCol & ")"
.Range("E3").FormulaR1C1 = "=AVERAGE(Données!R11C" & LaCol & ":R20C" & LaCol & ")"
End With

End Sub


Caillou

Re : VBA : calcul de moyenne

bonjour a tous

Une solution
toutefois il serait bon de preciser si un 0 doit pris en compte (dans la colonne N il ne l'est pas)

Re : VBA : calcul de moyenne

Merci à vous deux.
Vos deux solutions marchent. Mais celle de Caillou correspond exactement à ce que je recherchais.
Merci encore, vous me dépannez vraiment.

Re : VBA : calcul de moyenne

J'arrive un peu tard !🙂

Sub test()

Application.ReferenceStyle = xlR1C1

'on sélectionne la feuille sur laquelle on veut calculer une moyenne
Sheets("Données").Select
Col = Val(InputBox("Dernière colonne renseignée"))
MoyenneBlocking = Round(WorksheetFunction.Average(Range(Cells(3, Col), Cells(11, Col))), 2)
MoyenneNonBlocking = Round(WorksheetFunction.Average(Range(Cells(12, Col), Cells(20, Col))), 2)

'on affiche le résultat
Sheets("KPIs").Activate
Cells(2, 5).Value = MoyenneBlocking
Cells(3, 5).Value = MoyenneNonBlocking

Application.ReferenceStyle = xlA1


End Sub

tant pis je la mets quand même
a+
Matt