Chiffre arrondi dans vba.

Fermé

Mourhad Messages postés 10 Date d'inscription lundi 13 juin 2016 Statut Membre Dernière intervention 10 avril 2017 - Modifié le 10 avril 2017 à 10:37
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 10 avril 2017 à 16:08

Bonjour à tous j’additionne dans mon useform 2 textbox le résultat apparait dans une troisième or cette dernier arrondit automatiquement et non conserve pas les décimal.

ci dessous le la partie du code pour l'addition

Private Sub TextBox9_Change()
TextBox84.Value = Val(TextBox9.Value) + Val(TextBox59.Value)
End Sub
Private Sub TextBox59_Change()
TextBox84.Value = Val(TextBox9.Value) + Val(TextBox59.Value)
End Sub

je souhaiterais garder les décimales.

Merci par avance pour votre aide.

A voir également:

Chiffre arrondi dans vba.
Excel trier par ordre croissant chiffre - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Clavier iphone chiffre et lettre - Guide
Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
Arrondi 0.5 supérieur ou inférieur ✓ - Forum Excel

4 réponses

Réponse 1 / 4

momo
10 avril 2017 à 11:03

Bonjour
pour les chiffes dans les textBox pour faire des calcul il faut mettre un point
et mettre un KeyPress exemple:

Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
   KeyAscii = 0
   Beep
 End If
End Sub

A+
Maurice

Réponse 2 / 4

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
10 avril 2017 à 11:28

Bonjour

Si ta valeur dans le textbox du style "12,34" tu as 12 si la valeur est "12.34"
tu as 12,34

Sub demo()
    MsgBox Val("12.34")
    MsgBox Val("12,34")
    'solution
    MsgBox ("12,34") * 1
End Sub

Réponse 3 / 4

Mourhad Messages postés 10 Date d'inscription lundi 13 juin 2016 Statut Membre Dernière intervention 10 avril 2017
10 avril 2017 à 11:52

étant novice en vba ou doit je effectuer la modification

cordialement

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
Modifié le 10 avril 2017 à 11:55

Puis je caresser l'espoir que tu lises ma proposition et que tu essaies la petite macro que j'ai pris la peine de te montrer ?

Réponse 4 / 4

Mourhad Messages postés 10 Date d'inscription lundi 13 juin 2016 Statut Membre Dernière intervention 10 avril 2017
10 avril 2017 à 14:42

je l'ai bien lu et je les essayé en la collant dans le userform
sans succès malheureusement.

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
10 avril 2017 à 16:08

a la place de la donnée dans ma démo, tu écris textbox9 (value n'est pas obligatoire car propriété par défaut

Discussions similaires

[VBA / Excel] Arrondir à l'entier supérieur

Bonjour,
tout est écrit dans le titre.
j'utilise actuellement une variable en Integer, mais les valeurs sont arrondies au supérieur ou à l'inférieur.
J'aimerai qu'elle soit arrondie uniquement au supérieur, même quand je suis a X,00000001 que ça me mette X+1 comme entier.
Comment faire ça?
Pouvez vous m'aider?

Merci

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Excel arrondir à 0.5 sup ou inf

Bonjour,

j'aimerais arrondir une plage de nombre au 0.5 supérieur ou inférieur, exemple:

nombres compris entre 3.75 et 4.24 -> 4.0
nombres compris entre 4.25 et 4.74 -> 4.5
etc

Merci beaucoup de votre aide !

Excel Mac 2011. version 14.1.4

Configuration: Mac OS X / Safari 534.52.7

Arrondi au 0.5 supérieur dans une formule + condition

Bonjour,

Je suis en train de préparer un gros tableur qui servira pour le publipostage de bulletins scolaires. J'ai trouvé sur le site plusieurs formules/façons de faire mais le souci c'est que ma note est déjà déterminée par une formule de moyenne (exemple : =(BV5+BW5)/2). Donc, comment et à quel endroit dois-je rajouter la formule d'arrondi ?

Enfin, j'ai aussi une colonne ADMIS/ADMISE ou REFUSÉ/REFUSÉE qui contient une formule avec conditions (si telle note, étudiant admis ou refusé). Mais j'aimerai qu'en plus de cela, la formule s'accorde avec la civilité.
Exemple : Si Mme XX obtient 11 elle est admise et non admis.

Je ne sais donc pas ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...