Limiter l'affichage à 3 chiffres aprés la virgule

[degap05]

Bonjour,

Dans la discussion ci-dessous, qui propose une calculatrice:

https://www.excel-downloads.com/thr...rice-a-bande-limitee-a-255-caracteres.189289/

le résultat des opérations est affiché avec un grand nombre de décimales.
Je souhaiterais le limiter à 3.

Merci.
A+

 

[Papou-net]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Bonjour degap05,

Modifie la procédure suivante comme ci(dessous :

Public Sub ControlClick(Index As Integer)
    Select Case Index
    Case Is < 10: AjouterSurText CStr(Index)
    Case Is = 10: AjouterSurText ","
    Case Is = 11 'Résultat
        On Error GoTo ErreurCalcul
        Label1.Caption = Round(Evaluate(Replace(TextBox1.Text, ",", ".")), 3)
    Case Is < 18
        AjouterSurText ClGroup(CStr(Index)).Caption
        Case 18: If TextBox1.SelLength > 0 Then AjouterSurText ""
        Case 19: TextBox1 = "": Label1 = ""
    End Select
Exit Sub
ErreurCalcul:
MsgBox "Votre calcul comporte une erreur", vbCritical, "VOTRE CALCULATRICE VOUS PARLE !"
End Sub

Espérant avoir répondu.

Coprdialement.

 

[degap05]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Bonjour Papou-net,
J'ai bien modifié comme tu l'as indiqué, mais le résultat est le même; toujours autant de décimales après la virgule.
A+

 

[Papou-net]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Bonsoir degap05,

C'est pour le moins curieux : ça fonctionne bien chez moi, le label1 s'affiche bien avec 3 décimales après la virgule. Es-tu certain d'avoir bien recopié le code ?

Sinon, tu peux essayer la solution suivante :

Public Sub ControlClick(Index As Integer)
    Select Case Index
    Case Is < 10: AjouterSurText CStr(Index)
    Case Is = 10: AjouterSurText ","
    Case Is = 11 'Résultat
        On Error GoTo ErreurCalcul
        Label1.Caption = Format(Evaluate(Replace(TextBox1.Text, ",", ".")), "0.000")
    Case Is < 18
        AjouterSurText ClGroup(CStr(Index)).Caption
        Case 18: If TextBox1.SelLength > 0 Then AjouterSurText ""
        Case 19: TextBox1 = "": Label1 = ""
    End Select
Exit Sub
ErreurCalcul:
MsgBox "Votre calcul comporte une erreur", vbCritical, "VOTRE CALCULATRICE VOUS PARLE !"
End Sub

Pour en avoir le coeur net, je t'envoie le fichier modifié avec la première solution (01) et celui avec la seconde (02).

Cordialement.

 

[degap05]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Sans objet

 

[Papou-net]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Bonsoir degap05,

Apparemment, ça fonctionne comme tu le souhaitais, non ?

Mais attention : il n'est jamais recommandé de joindre sur le forum des pièces jointes sans désactiver les instructions de masquage de l'interface d'Excel. Le mal est moindre car tu as visiblement prévu de rétablir l'interface à la fermeture du classeur, mais c'est tout de même à éviter. Au pire, avertir clairement les forumeurs de cette particularité.

Cordialement.

 

[degap05]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Sans objet

 

[MJ13]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Bonjour Degap, Papou

Degap: tu dois changer ta piéce jointe.

Sur XL2010, on ne peux pas y accéder et Excel n'est pas visible donc Ctrl+Alt+Sup 😕.


Prière de ne pas mettre en Application.visible=false à l'ouverture, mais en commentaire.

Private Sub Workbook_Open()
UserForm1.Show
Application.Visible = False
End Sub

 

[degap05]

Re : Limiter l'affichage à 3 chiffres aprés la virgule

Sans objet