nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant average
Arrondi.Inf me donne les bons résultats pas Rounddown ????
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
nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant average
Arrondi.Inf me donne les bons résultats pas Rounddown ????
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
nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant average
Arrondi.Inf me donne les bons résultats pas Rounddown ????
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
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
chez moi les 3 syntaxes selon ce que j'ai proposé fonctionnent,
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
Cela ne résout qu'une partie de mon problème, pourquoi les 9
apparaissent avec les 10 alors que j'avais fixé la barre à 10.
Je me disais que peut être le fait de mettre 2 lignes pour avoir le m ême
résultats pouvait avoir interféré mais ce n'est pas le cas.
Donc il faut que je cherche ailleurs dans la macroBonjour,nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant averageArrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LStephBonjour
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
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
chez moi les 3 syntaxes selon ce que j'ai proposé fonctionnent,
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
Cela ne résout qu'une partie de mon problème, pourquoi les 9
apparaissent avec les 10 alors que j'avais fixé la barre à 10.
Je me disais que peut être le fait de mettre 2 lignes pour avoir le m ême
résultats pouvait avoir interféré mais ce n'est pas le cas.
Donc il faut que je cherche ailleurs dans la macro
Bonjour,
nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant average
Arrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LSteph
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
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
chez moi les 3 syntaxes selon ce que j'ai proposé fonctionnent,
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
Cela ne résout qu'une partie de mon problème, pourquoi les 9
apparaissent avec les 10 alors que j'avais fixé la barre à 10.
Je me disais que peut être le fait de mettre 2 lignes pour avoir le m ême
résultats pouvait avoir interféré mais ce n'est pas le cas.
Donc il faut que je cherche ailleurs dans la macroBonjour,nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant averageArrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LStephBonjour
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
Bonjour,nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant averageArrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LStephBonjour
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
Bonjour,
nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant average
Arrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LSteph
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
Bonjour,nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant averageArrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LStephBonjour
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
re,
?La syntaxe avec 2 worksheetfunction fontionne trés bien merci
chez moi les 3 syntaxes selon ce que j'ai proposé fonctionnent,
Reste que je ne comprends pas où tu vois une erreur dans tes résult ats
11+4
20+1!
19+2!
57/6 en arrondi.inf (rounddown c'est la même) cela fait bien 9
Cordialement.
LSteph
On 31 juil, 11:26, PST wrote:La syntaxe avec 2 worksheetfunction fontionne trés bien merci
Cela ne résout qu'une partie de mon problème, pourquoi les 9
apparaissent avec les 10 alors que j'avais fixé la barre à 10.
Je me disais que peut être le fait de mettre 2 lignes pour avoir le même
résultats pouvait avoir interféré mais ce n'est pas le cas.
Donc il faut que je cherche ailleurs dans la macroBonjour,nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant averageArrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2 , 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19 ,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LStephBonjour
Chaque lettre correspond a des chiffres
Dans une macro je demande toutes les combinaisons avec la moyenne de s
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 d es
colonnes ajoutée moyenne et arrondi.inf
Arrondi.Inf me donne les bons résultats pas Rounddown >>> Pourquo i
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
re,
?
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
chez moi les 3 syntaxes selon ce que j'ai proposé fonctionnent,
Reste que je ne comprends pas où tu vois une erreur dans tes résult ats
11+4=15
20+1=21
19+2=21
57/6 en arrondi.inf (rounddown c'est la même) cela fait bien 9
Cordialement.
LSteph
On 31 juil, 11:26, PST <pgjigno...@wanadoo.fr> wrote:
La syntaxe avec 2 worksheetfunction fontionne trés bien merci
Cela ne résout qu'une partie de mon problème, pourquoi les 9
apparaissent avec les 10 alors que j'avais fixé la barre à 10.
Je me disais que peut être le fait de mettre 2 lignes pour avoir le même
résultats pouvait avoir interféré mais ce n'est pas le cas.
Donc il faut que je cherche ailleurs dans la macro
Bonjour,
nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant average
Arrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2 , 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19 ,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LSteph
Bonjour
Chaque lettre correspond a des chiffres
Dans une macro je demande toutes les combinaisons avec la moyenne de s
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 d es
colonnes ajoutée moyenne et arrondi.inf
Arrondi.Inf me donne les bons résultats pas Rounddown >>> Pourquo i
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
re,
?La syntaxe avec 2 worksheetfunction fontionne trés bien merci
chez moi les 3 syntaxes selon ce que j'ai proposé fonctionnent,
Reste que je ne comprends pas où tu vois une erreur dans tes résult ats
11+4
20+1!
19+2!
57/6 en arrondi.inf (rounddown c'est la même) cela fait bien 9
Cordialement.
LSteph
On 31 juil, 11:26, PST wrote:La syntaxe avec 2 worksheetfunction fontionne trés bien merci
Cela ne résout qu'une partie de mon problème, pourquoi les 9
apparaissent avec les 10 alors que j'avais fixé la barre à 10.
Je me disais que peut être le fait de mettre 2 lignes pour avoir le même
résultats pouvait avoir interféré mais ce n'est pas le cas.
Donc il faut que je cherche ailleurs dans la macroBonjour,nSum = Application.WorksheetFunction.Rounddown(Average(A, B, C, D, E,
F),0) ne fonctionne pas, message erreur
Il manque WorksheetFunction avant averageArrondi.Inf me donne les bons résultats pas Rounddown ????
RoundDown et Arrondi.inf c'est exactement la même chose
Sije mets arrondi.inf dans la feuille ou bien les macros suivantes.
Tout ceci me ramène le bon résultat soit avec Rounddown(x...n,0)
on obtient 10 et avec Rounddown(x...n,1) on obtient 10,3
Sub rndDAvrg()
With ActiveCell
.Value = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2 , 3,
17, 19, 20), 0)
.Offset(0, 1).Formula =
WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3, 17, 19 ,
20), 0)
End With
End Sub
Sub lRnd()
nsum = Application.WorksheetFunction.Average(1, 2, 3, 17, 19, 20)
nsum = Application.WorksheetFunction.RoundDown(nsum, 1)
[a1] = nsum
End Sub
Sub lRNd2()
'corrigé
nsum = WorksheetFunction.RoundDown(WorksheetFunction.Average(1, 2, 3,
17, 19, 20), 1)
[a4] = nsum
End Sub
'LStephBonjour
Chaque lettre correspond a des chiffres
Dans une macro je demande toutes les combinaisons avec la moyenne de s
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 d es
colonnes ajoutée moyenne et arrondi.inf
Arrondi.Inf me donne les bons résultats pas Rounddown >>> Pourquo i
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