arrondir

Question

Bonsoir

le code est bon pour arrondir le resultat d'un textbox je voudrais arrondir tous les resultats qui s'affiche sur notre formulaire.
 exemple resultat textbox1, resultat textbox2, resultat textbox3, resultat textbox4  
comment faire pour arrondir plusieurs textbox sur une formulaire

if nb-int(nb)<=0.5 then
nb = int(nb)
else
nb = int(nb)+1
end if

merci de nous aidez

mortalino · Answer

salut,

il faut boucler sur tes contrôles du Formulaire :

    Dim oControl as control

for each oControl in Me.Controls
    If TypeOf oControl Is TextBox Then
        oControl.Text = Round(oControl.Text)
    end if
next oControl

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

amigna · Answer

merci de votre réponse j'ai pas bien compris je voudrais quand le resultat aprés la virgule est compris  entre 1 à 5 il arrondis sans ajouter rien et quand le resultat aprés la virgule est compris entre 6 à 9 il ajoute 1 sur le resultat pour arrondir .
 merci de votre compréhension

mortalino · Answer

As-tu essayé ?
L'avantage de la fonction Round, c'est qu'il arrondi selon CE critère (arrondi inférieur si nb entre *.0 et *.4, supérieur pour le reste), contrairement à ton code avec Int, t'économise ainsi l'emploie d'une condition 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Arrondir

3 réponses

Votre réponse

Discussions similaires