cs_hazzel
Messages postés20Date d'inscriptionjeudi 13 novembre 2008StatutMembreDernière intervention19 juillet 2013
-
6 déc. 2008 à 20:48
cs_hazzel
Messages postés20Date d'inscriptionjeudi 13 novembre 2008StatutMembreDernière intervention19 juillet 2013
-
7 déc. 2008 à 18:41
Bonjour à tous,
Alors voila, j'utilise la macro (mis en bas) et j'ai le problème suivant, c'est que excel a une facheuse tendance a dire que 10.4 - 10.4 = 0.00000000000000000000000000001 Et evidement, moi dans ma macro j'aimerai que ce chiffre soit arrondie, car si il est différent de 0, le If le met automatiquement comme erreur : ( Car ici ma valeur inscrite en f n'est jamais égal a 0... Donc je voulais savoir si il existé une macro qui permet d'arrondir la valeur et permettre ainsi de ne plus avoir 10^(-15) mais bien 0. Un peu comme la recherche V avec la valeur VRAI.
Merci pour votre soutient
Sub Impr_cotisation()
ActiveWorkbook.Unprotect ("cca") 'protection du classeur retiré
'ActiveWindow.SelectedSheets.PrintPreview
f = Range("H3") 'enrg la valeur cible
If f = 0 Then
ActiveSheet.Unprotect "cca"
b = Range("E4") 'enrg la valeur cible
ActiveSheet.Protect "cca"
Sheets("cotisation").Visible = False
Sheets("listing").Select
Range("A1").Select
ActiveSheet.Unprotect "cca"
While ActiveCell <> b
ActiveCell.Offset(1, 0).Activate
Wend
ActiveCell.Offset(0, 7).Activate
Selection.Interior.ColorIndex = 4
ActiveSheet.Protect "cca"
ActiveWorkbook.Protect ("cca") 'protection du classeur
Else: GoTo err
err:
x = MsgBox("Le nombre d'heures total n'as pas été réparti, il reste encore " & f & " heures à répartir")
End If
cs_Orohena
Messages postés577Date d'inscriptionvendredi 26 septembre 2008StatutMembreDernière intervention20 novembre 20104 6 déc. 2008 à 20:59
Bonjour
Je te propose la solution suivante
Sub test()
Dim f As Double, arrondi As Double
f = 0.000000000000001
arrondi = Round(f, 10)
MsgBox "avant arrondi : " & f & " après arrondi : " & arrondi
End Sub