arrondir nombre dans un textbox

Bonjour, j'ai beau fouiller les tutoriaux, je ne trouve pas comment ne faire afficher que 2 chiffres après la virgule dans mes textbox.

Rechercher dans ce forum"arrondir"

Tu trouveras surement ton bonheur... ICI !!!

ton lien marche pas La Praline ;)

Regardes du côté de "Format" Jeff, du style format (trucbidule,"0.00") par exemple

Pour le fun ....
Un TextBox sur le Form

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

Option Explicit Dim Pos As Integer   Private Sub Form_Load() Dim A As Single A = 1234.5678 'pour attribuer une valeur au TextBox avec seulement 2 décimales Text1 = Format(A, "#0.00") End Sub   Private Sub Text1_Change() 'recherche si il y a un separateur décimale Pos = InStr(1, Text1, ",") ' ou le . (point) suivant les paramétres regionaux 'si Pos = 0, pas de separateur décimale If Pos <> 0 Then 'separateur décimale présent Text1 = SuppDecimale(Text1, 2) 'recalage du cursseur Text1.SelStart = Len(Text1) End If End Sub   Public Function SuppDecimale(Valeur As String, NbrDecimal As Integer) As String Dim Alenvers As String Alenvers = StrReverse(Valeur) NbrDecimal = NbrDecimal + 1 'recherche la position du separateur décimale Pos = InStr(1, Alenvers, ",") If Pos > NbrDecimal Then Alenvers = StrReverse(Right$(Alenvers, Len(Alenvers) - (Pos - NbrDecimal))) SuppDecimale = Alenvers Else SuppDecimale = Valeur End If End Function   Private Sub Text1_KeyPress(KeyAscii As Integer) 'pour eviter toutes autres entrées que du numérique Select Case KeyAscii 'transformation du code ascii des touches au dessus de la ligne AZERTY...... 'pour ne pas avoir à verrouiller ou maintenir l'appuis de Maj Case 38: KeyAscii = 49 ' de & en 1 Case 233: KeyAscii = 50 'de é en 2 Case 34: KeyAscii = 51 ' de " en 3 Case 39: KeyAscii = 52 ' de ' en 4 Case 40: KeyAscii = 53 ' de ( en 5 Case 45: KeyAscii = 54 ' de - en 6 (ici probleme si besoin d'un nombre en négatif) Case 232: KeyAscii = 55 'de è en 7 Case 95: KeyAscii = 56 ' de _ en 8 Case 231: KeyAscii = 57 'de ç en 9 Case 224: KeyAscii = 48 'de à en 0   Case 46: KeyAscii = 44 ' de . en , Case 44 'autorise la ,   'ou inversement si le separateur decimal et le . 'Case 44: KeyAscii = 46 ' de , en . 'Case 46 'autorise le .   Case 8 'autorisation de <--- suppr '(la touche Suppr, <- et -> n'est pas detecté comme KeyAscii) Case 48 To 57 'autorisation de toutes les touches numeriques (0 à 9) 'sinon annule la derniere touche Case Else: KeyAscii = 0 ': Beep End Select End Sub

---

La partie Text1_KeyPress et du copier/coller de Vos contributions VB6 , [Trucs & Astuces] Forcer les touches clavier en numerique

Voici mon tout premier programme informatique :) J'ai installé VB il y a deux semaine. C'est pas encore terminer mais j'obtien ce que je veux pour l'instant ! www.aircreation.ca/test.exe

J'aimerais seulement que quelqu un me lance un indice sur comment je peux ( me faire un formulaire excel ou viendrons s ajouter la liste des item pour générer mon devis

le titre de ton post, "arrondir nombre dans un textbox", il vaudrait mieux en créer un autre, car ta derniere intervention n'a rien à voir avec le titre.

J'ai regarder ton programme, bon resultat pour 2 semaines de programmation VB, je soupsonne que tu as deja programmé dans un autre langage, peut être.

Par contre, l'interressant pour le forum, s'est le code source, l'executable ne permettant pas de partager les astuces, et des fois de soumettre des observations (amicales), pour rendre le programme final encor plus rapide, ergonomique ....

Bonne continuation

Penser au bouton RESOLU pour ce post

J'ai fais du HTML à temps perdu c'est pas mal tout. Mais j'ai trouvé les tutoriaux très bien fait avec les exemples de code et un peu de temps hehe.

Désolé d'avoir mis la reponse dans le mauvais sujet.
J'ai réussi le Format merci de l'aide.

Donc c'est résolu, je vais partir un autre sujet demain pour l impression du devis.