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

Arrondi dans les calculs dans un Userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion donpopo
  • 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

donpopo

XLDnaute Occasionnel
Bonjour le forum,

Je suis confronté depuis quelques heures à un petit problème de précision de calcul en VBA.

Dans un formulaire 'Userform1', je souhaite encoder un nombre (décimal ou non) dans le TextBox1 et un autre nombre (taux TVA) dans TextBox2.

Je voudrais que le résultat de TextBox1 x TextBox2 / 100 s'inscrive dans Label1 et que l'addition de TextBox1 et de Label1 se marque dans Label2.

Le code dans mon userform a l'air de fonctionner, mais les résultats de Label1 et Label2 ne sont pas corrects.

Je souhaite afficher tous ces nombres avec une précision de 2 décimales.

J'ai joint un fichier zippé pour mieux expliquer mon problème.

P.S.: de plus, les résultats diffèrent si je tape un point à la place d'une virgule pour les décimales.

Merci d'avance de votre aide.

donpopo
 

Pièces jointes

Trier par date Trier par votes
Re : Arrondi dans les calculs dans un Userform

Bonjour donpopo,
Essaies ce code
Bruno
Code: 
Private Sub TextBox1_Change()
  TextBox1 = Replace(TextBox1, ".", ",")
    If TextBox2 <> "" And TextBox1 <> "" Then
        Label1 = Round(CDbl(TextBox1) * CDbl(TextBox2) / 100, 2)
        Label2 = Round(CDbl(TextBox1) + CDbl(Label1), 2)
    End If
End Sub

Private Sub TextBox2_Change()
TextBox2 = Replace(TextBox2, ".", ",")
    If TextBox1 <> "" And TextBox2 <> "" Then
        Label1 = Round(CDbl(TextBox1) * CDbl(TextBox2) / 100, 2)
        Label2 = Round(CDbl(TextBox1) + CDbl(Label1), 2)
    End If
End Sub
 
Vote positif 0 Vote négatif
Re : Arrondi dans les calculs dans un Userform

Bonjour le forum,

J'ai assez bien avancé grâce aux renseignements fournis par youky(BJ).

Cependant, je bloque lorsque je désire additionner des textbox (valeurs numériques).

J'ai bien essayé avec CDbl, mais cela ne fonctionne pas.

Pourriez-vous m'aider?

J'ai joint un fichier zippé

Merci

donpopo
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Arrondi dans les calculs dans un Userform

Bonjour,
Voici en retour ton fichier
J'ai mis la caption des Label =0 pour éviter des erreurs
Donc à faire aussi sur le veritable fichier.
Macro trés peu changées.
Bruno
 

Pièces jointes

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

R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
248
Redba13
R
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
837
bérylion
B
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
641
Francky79
F
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
540
jeff1494
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
918
chaelie2015
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
B
  • Résolu(e)
XL 2016 Format date dans un Userform
Réponses
7
Affichages
903
patricktoulon
V
  • Question Question
XL 2016 Champs calculés dans un TCD
Réponses
4
Affichages
820
chris
D
  • Résolu(e)
Microsoft 365 Mise à jour de certaines données dans une ListView d'un UserForm
Réponses
8
Affichages
745
Diane272727
D
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
627
arnoldbrice19
A
A
  • Question Question
Microsoft 365 BIG DATA - Calculs avancés - Éviter les plantages ?
Réponses
1
Affichages
474
merinos-BernardEtang
N
  • Question Question
Microsoft 365 Navigation avec boutons d'une Listbox dans un Userform
Réponses
1
Affichages
740
Oneida
D
  • Résolu(e)
Microsoft 365 Bouton pour masquer une information dans un UserForm
Réponses
2
Affichages
361
Diane272727
D
  • Résolu(e)
XL 2013 icon avec une image Mso dans la barre de titre du UserForm
Réponses
10
Affichages
1 K
patricktoulon
  • Résolu(e)
XL 2010 Ranger différentes valeurs dans une cellule
Réponses
13
Affichages
1 K
Eric C
C
  • Résolu(e)
XL 2010 D'une userform transfert sur plusieurs feuilles en fonction
Réponses
4
Affichages
863
ccia
C
S
  • Résolu(e)
XL 2016 Création X Cases à cocher en fonction d'une liste avec un nombre de terme variable dans un Userform
Réponses
2
Affichages
528
S[1]t'Yor
S
  • Question Question
Microsoft 365 Comment retrouver un taux depuis les chiffres source et cible avec un arrondi appliquer sur la cible
Réponses
5
Affichages
563
Heodrene
F
  • Résolu(e)
XL 2019 Besoin d'aide pour reporter une donnée d'un Userform vers un tableau
Réponses
2
Affichages
733
Flnte
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…