Discussion :

[pmboutteau]

existe t'il une fonction vb pour faire les parties entières supérieures.

Pour l'instant je fais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Fix(x)+1

mais je suis pas sûr que si x vaut 3.75 par exemple que çà me donne 4+1 au lieu de 3+1

[malbaladejo]

Int(x) renvoi toujours la partie entière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Int(1.2) = 1
Int(1.5) = 1
Int(1.7) = 1

[pmboutteau]

Oui mais moi je veux la supérieure

2.1 => 3

Mais je crois que Fix +1 ou Int +1 me conviendra.

[escafr]

Oui mais moi je veux la supérieure

2.1 => 3

Mais je crois que Fix +1 ou Int +1 me conviendra.

ben le probleme de ta technique c'est que si tu as :

2.0 -> ca va donner 3...

[malbaladejo]

Tu n'as qu'a te faire une methode PartieEntiere:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function PartieEntiere(sngValeur)
     If Int(sngValeur) = sngValeur Then
             PartieEntiere = sngValeur
     Else
            PartieEntiere = Int(sngValeur)+1
     End If
End Function

[pmboutteau]

Exact, Bien vu. Je suis bon pour me faire une petite fonction!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
if x>Int(x) Then x=Int(x)+1 else x=Int(x)

:

[pmboutteau]

Excuse j'avais pas vu ta réponse

Merci