Calcul d'une moyenne via une variable tableau

[atlas]

Bonsoir , je rencontre une difficulté pour calculer une moyenne avec .formula et une variable tableau .
J’obtiens un #NOM ? dans les cellules et pourtant la formule MOYENNE est bonne puisque si je double clique une cellule et que je fais « entrée » alors la moyenne est calculée .

Voici le code (et je joint le fichier)

Option Explicit

Sub moyenne20()

Dim derlignClot, nbcolonnes As Integer
derlignClot = derlignC()
nbcolonnes = calcnbcol()

Dim plage As Variant
plage = ThisWorkbook.Worksheets("base").Range("A2:A" & derlignClot)
Dim i As Integer

ThisWorkbook.Worksheets("base").Select
For i = LBound(plage) To UBound(plage) - 20

ThisWorkbook.Worksheets("base").Cells(i, nbcolonnes + 1).Formula = "=MOYENNE(A" & i & ":A" & i + 19 & ")"

Next

End Sub

Private Function derlignC()

Dim der As Integer

der = ThisWorkbook.Worksheets("base").Range("A65536").End(xlUp).Row
derlignC = der
End Function

Private Function calcnbcol()

Dim nbcolonnes As Integer
nbcolonnes = ThisWorkbook.Worksheets("base").UsedRange.Columns.Count
calcnbcol = nbcolonnes
End Function

 

[tbft]

Re : Calcul d'une moyenne via une variable tableau

Bonjour

essaye de mettre ta formule dans
.FormulaLocal

Tiens moi au courant..

 

[atlas]

Re : Calcul d'une moyenne via une variable tableau

Et bien oui ça marche !

Et il y a une explication ? Quelle différence entre .formula et .formulalocal ?
Apparemment il y a une mais je ne saisis pas la nuance ....

 

[JNP]

Re : Calcul d'une moyenne via une variable tableau

Bonsoir le fil 🙂,
En principe, on utilise les fonctions en anglais, càd AVERAGE pour la moyenne.
Dans une cellule, FormulaLocal permettra de conserver MOYENNE si l'apli est en Français. Du fait, AVERAGE est plus prudent 😛...
D'autre part, si tu utilises Moyenne dans VBA pur, ça ne fonctionnera pas, il faut utiliser Application.WorksheetFunction.Average().
Bonne soirée 😎

 

[atlas]

Re : Calcul d'une moyenne via une variable tableau

Merci ...
@++