Rounddown VBa Erreur

[Hoareau]

Bonjour
Chaque lettre correspond a des chiffres
Dans une macro je demande toutes les combinaisons avec la moyenne des chiffres de la combinaison = 10

1)
Avec Rounddown je ramène la moyenne à un chiffre plus près de 0, il me met des valeurs qui correspondent à 9 dans 10, je teste avec des colonnes ajoutée moyenne et arrondi.inf

Arrondi.Inf me donne les bons résultats pas Rounddown >>> Pourquoi

nSum = Application.WorksheetFunction.Average(A, B, C, D, E, F)
nSum = Application.WorksheetFunction.RoundDown(nSum, 0)

Je voudrai savoir pourquoi :
N1 N2 N3 N4 N5 N6 Moyenne Arrondi.inf
1 2 3 17 18 20 10,17 10
1 2 3 17 19 20 10,33 10
1 2 3 18 19 20 10,50 10
1 2 4 11 19 20 9,50 9
1 2 4 12 18 20 9,50 9
1 2 4 12 19 20 9,67 9


2)
nSum = Application.WorksheetFunction.Average(A, B, C, D, E, F)
nSum = Application.WorksheetFunction.RoundDown(nSum, 0)

Fonctionne avec les érreurs ci dessus

nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E, F),0) ne fonctionne pas, message erreur

Merci

 

[Pierrot93]

Re : Rounddown VBa Erreur

Bonjour Hoareau

peut être qu'un fichier en pièce jointe avec le code complet et le résultat attendu nous aiderait à t'aider, car là, en l'état personnellement je ne vois pas...

@+

 

[Hoareau]

Re : Rounddown VBa Erreur

Réponse à ma question 2)
Il fallait mettre 2 WorksheetFunction

nSum = WorksheetFunction.RoundDown(WorksheetFunction.Average(A, B, C, D, E, F), 0)