Discussion :

[MADA BLACK]

Bonsoir Forum
Bonsoir tout le monde
SVP Gentelman ..si vous pouvez m'aider a trouver une solution a ce probleme
Comment ecrire pour arrondire a l'unité superieur :
Par exemple un chiffre dans Text3 qui est ( 53744.30 ) je veux l'afficher ( 55745.00 )
Par exemple aussi ( 53149.58 ) je veux l'afficher ( 53150.00 )
Merci beaucoup d'avance pour l'aide
Ci joint un fichier
Cordialement
MADA BLACK
arrondir a l'unite superieur.zip

[iclic]

Salut Mada,

Pour être complet et encore plus court

Code :

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

1
2
3
4
 
 
Text3 = 53149.58
Text3 = Int(Text3 + 1) & ".00"

[DAUDET78]

Un truc comme ça ?
Daudet78.zip
Je n'ai modifié que l'écriture dans la deuxième fenêtre

PS : Y a peut être mieux à faire comme programme (je suis un débutant), mais ça marche.

[iclic]

Bonjour,

Après avoir vu ta form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then  ' touche Return ou Enter
   Me.Text1 = Val(Me.Text1) + Val(Text2)
   Me.Text3 = Replace(Me.Text1, ".", ",")
   Me.Text3.Text = Val(Int(Text1 + 1)) & ",00"
End If
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then  ' touche Return ou Enter
   Me.Text2 = Val(Me.Text1) + Val(Text2)
   Me.Text3 = Replace(Me.Text2, ".", ",")
   Me.Text3.Text = Val(Int(Text2 + 1)) & ",00"
 End If
End Sub

[DAUDET78]

Ton programme ne marche pas
Si tu rentres 0 et 0 ..... tu affiches 1 comme résultat !

[MADA BLACK]

Bonjour iclic
Bonjour DAUDET78
Merci beaucoup iclic pour votre aide et vos suggestions
Merci 1000 fois DAUDET78 pour votre super et formidable et impeccable solution et votre extra fichier
Tres ravi de vous rencontrer une autre fois dans ce sujet
Cordialement
MADA BLACK

[DAUDET78]

Un peu plus futé .......

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Texte_KeyPress(Index As Integer, KeyAscii As Integer)
 
If KeyAscii <> 13 Then Exit Sub ' pas touche Return ou Enter
    S0$ = Replace(Me.Texte(0).Text, ",", ".")
    S1$ = Replace(Me.Texte(1).Text, ",", ".")
    Me.Text3.Text = Format$(Int(0.99 + Val(S0$) + Val(S1$))) & ",00"
    Me.Texte(0).Text = Replace(S0$, ".", ",")
    Me.Texte(1).Text = Replace(S1$, ".", ",")
 
End Sub

En utilisant des zones "TextBox" indexées

[MADA BLACK]

Bonsoir DAUDET78
Je n'ai qu'a vous dire
BRAVO
Tres gentil de votre part
Merci pour tous
Tres cordialement
MADA BLACK