Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion degap05
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
Re : Limiter l'affichage à 3 chiffres aprés la virgule

Bonjour degap05,

Modifie la procédure suivante comme ci(dessous :

Code: 
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.
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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 :

Code: 
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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.


Code: 
Private Sub Workbook_Open()
UserForm1.Show
Application.Visible = False
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
  • Résolu(e)
Microsoft 365 Modifier le format d'un nombre issu d'une autre cellule
Réponses
2
Affichages
514
ilyes4205
I
D
  • Question Question
Autres MFC si 3 chiffres après la virgule
2
Réponses
17
Affichages
3 K
job75
G
  • Question Question
XL 2013 Conversion chiffres en lettre avec 3 chiffre après la virgule
Réponses
5
Affichages
3 K
patricktoulon
A
  • Question Question
XL 2019 Fonction "Moyenne" avec ajout unité : Limiter le nombre de chiffres
Réponses
12
Affichages
1 K
Astyanax
A
  • Question Question
XL 2010 À propos d'un CheckBox arapède
Réponses
2
Affichages
821
Magic_Doctor
  • Question Question
XL 2013 Les Fonctions personnalisé avec Aide à la saisie et Aide boite de dialogue
Réponses
0
Affichages
3 K
laurent950
  • Question Question
[RESOLU]Remplacer + par (,) virgule décimale dans nombre
Réponses
0
Affichages
648
cathodique
  • Question Question
Mise ne forme d'un champ numérique avec suppression de la virgule
Réponses
2
Affichages
740
Hornet06
  • Question Question
Nombre de zéro(s) immédiatement après la virgule
2
Réponses
17
Affichages
3 K
KenDev
  • Question Question
2 chiffres aprés la virgule, ni + ni -.
Réponses
4
Affichages
6 K
Adamev
L
  • Question Question
afficher un arrondi avant la virgule (sans modif le chiffre tapé)
Réponses
3
Affichages
6 K
logan138
L
K
  • Question Question
resultat avec plein de chiffre aprés la virgule
Réponses
12
Affichages
2 K
Charly2
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…