Déclaration de variables

[photoechange]

Bonjour, le forum

J'ai déclaré une variable single
DIM mavar as single
Pas de problème ça fonctionne pour le reste du programme les calculs aussi

Ma question
Je veux savoir comment paramétrer ma variable pour avoir seulement 2 chiffres après la virgule et non pas exe:2,3547596060068
Merci d'avance pour vos réponses

 

[Charly2]

Bonsoir photoechange, bonsoir à toutes et à tous

Après ton calcul, tu pourrais essayer :

SingleVar = Int(d * 100! + 0.5!) / 100!

A+

 

[PascalXLD]

Bonjour

Si c'est l'arrondi qui t'inrteresse tu peux faire aussi

mavar =round(mavar ,2)

Bon WE

 

[Bernard_XLD]

Bonjour Photoechange, Charly2, Pascal

une troisième possibilité

mavar = ((mavar * 100) \\ 1) / 100

Cordialement, A+

ps:
Charly2, cela serait pas plutôt
SingleVar = Int(d * 100) / 100
Pascal, pour info, de mémoire mais je peux me tromper, round ne passe pas sur excel97.

Edition: passe pas ,l'antislash

Message édité par: yeahou, à: 02/04/2006 09:11

 

[photoechange]

Merci à tous pour votre aide ça fonctionne
@+steph

 

[Charly2]

Salut photoechange, Pascal et Yeahou

C'est vrai que j'ai fait avec ce que j'avais : pas de Round sur XL97 :huh:

Tu m'as fait douter un instant Yeahou, mais pour l'arrondi, il faut bien ajouter 0.5, par contre je n'ai pas assez vérifié et j'ai fait un test qui m'a surpris :

SingleVar = 3.145

1) SingleVar = Int(SingleVar * 100! + 0.5!) / 100!
-> résultat 3.14

2) SingleVar = Int(SingleVar * 100 + 0.5) / 100
-> résultat 3.15

Conclusion, il vaut mieux utiliser vos calculs ou laisser XL effectuer la conversion au moment de du calcul !!! :S

PS : Yeahou, pour obtenir l'antislash hors balise Code, il suffit de le quadrupler.

A+

 

[Bernard_XLD]

Re

Charly2, c'est du à int qui renvoie uniquement la partie entière
pas de problème avec cette formule qui fonctionne sous 97
singlevar = 3.146
singlevar = ((singlevar * 100) \\\\\\\\ 1) / 100
MsgBox singlevar'renvoie 3.15
la même chose avec Int pose problème
singlevar = 3.146
singlevar = Int(singlevar * 100) / 100
MsgBox singlevar'renvoie 3.14

A+

 

[Charly2]

re bonjour le fil, re Yeahou,

Intéressant à savoir, merci pour l'info et j'y ferai attention à l'avenir.

J'ai bien aimé l'astuce de la division entière.

Sinon, bravo pour tes 500. Je parle de ceux comptabilisés car tu en a bien plus que ça à ton actif

A+

 

[Bernard_XLD]

Re

pour info on peut également se servir de ces particularités pour des opérations sous 97 (sans round donc)

arrondi inf: =int(val)
arrondi sup: =-fix(-val)

A+