Bonjour à tous,
Après quelques recherche, je ne parviens pas à trouver mon problème alors voila, je me tourne vers vous!
Le problème n'est pas énorme et je ne pense pas qu'il nécessite le fichier, c'est purement lié à la fonction je crois. Enfin au cas ou, si vous voulez vraiment le fichier pas de soucis, je vous enverrai le paquet
Pour faire court, je récupère des données Excel sur un premier fichier, j'intègre ces données dans des variables tableaux et de la, je fais la moyenne, le mini et le max de mon tableau.
Sur le principe, ça fonctionne impeccablement bien!
Mais petit couac, le résultat obtenu est entier hors, je voudrais obtenir un chiffre après la virgule.
' pour l'enregistrement dans les tableaux
' à ce moment, les valeurs ont 2 décimales
For y = 1 To 5
date_TUSetude(y) = Cells(moy_ligne - 1 + y, 1)
TC1etude(y) = Cells(moy_ligne - 1 + y, 2) + TC_correction_500(1) + reccord_correction_500(1)
TC2etude(y) = Cells(moy_ligne - 1 + y, 3) + TC_correction_500(2) + reccord_correction_500(2)
TC3etude(y) = Cells(moy_ligne - 1 + y, 4) + TC_correction_500(3) + reccord_correction_500(3)
TC4etude(y) = Cells(moy_ligne - 1 + y, 5) + TC_correction_500(4) + reccord_correction_500(4)
TC5etude(y) = Cells(moy_ligne - 1 + y, 6) + TC_correction_500(5) + reccord_correction_500(5)
TC6etude(y) = Cells(moy_ligne - 1 + y, 7) + TC_correction_500(6) + reccord_correction_500(6)
TC7etude(y) = Cells(moy_ligne - 1 + y, 8) + TC_correction_500(7) + reccord_correction_500(7)
TC8etude(y) = Cells(moy_ligne - 1 + y, 9) + TC_correction_500(8) + reccord_correction_500(8)
TC9etude(y) = Cells(moy_ligne - 1 + y, 10) + TC_correction_500(9) + reccord_correction_500(9)
TC10etude(y) = Cells(moy_ligne - 1 + y, 11) + TC_correction_500(10) + reccord_correction_500(10)
TC11etude(y) = Cells(moy_ligne - 1 + y, 12) + TC_correction_500(11) + reccord_correction_500(11)
TC12etude(y) = Cells(moy_ligne - 1 + y, 13) + TC_correction_500(12) + reccord_correction_500(12)
Next y
'Ici, calcul de la moyenne, du mini et du maxi
' à partir de la, le contenu de moy_TC1 est entier...
moy_TC1 = Application.WorksheetFunction.Average(TC1etude)
min_TC1 = Application.WorksheetFunction.Min(TC1etude)
max_TC1 = Application.WorksheetFunction.Max(TC1etude)
Une idée?