Arrondir

Signaler
Messages postés
53
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
18 août 2008
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
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

3 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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
Messages postés
53
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
18 août 2008

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
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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