Bonsoir,
la réponse de facilité serait d'écrire un code du type :
'*****************
Option Base 1
Sub MoyennePondérée()
Dim Ta() 'array A
Dim Tb() 'array B
Dim i As Integer
Dim Total As Double
Dim Ponderation As Integer
Dim Moyenne As Long
'les deux tableaux
Ta = Array(11, 12, 15, 11, 12)
Tb = Array(1, 2, 1, 3, 1)
'et le calcul
For i = 1 To UBound(Ta, 1)
Total = Total + (Ta(i) * Tb(i))
Ponderation = Ponderation + Tb(i)
Next i
Moyenne = Total / Ponderation
MsgBox "La moyenne est de :" & Moyenne, vbInformation
End Sub
'****************
Il y a certainement plus court et plus simple mais à cette heure-ci...
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème."