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

[VBA] - Pb arrondi dans le retour d'une valeur

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

shadweak

Guest
Bonjour à vous et merci d'avance pour l'attention,

Je mets la valeurs d'une feuille (décimale à 4 chiffre après la virgule ex : 0.1278) dans une autre à l'aide de cet fonction :

Sheets("lm").Cells(Sheets("aide saisie").Range("conso_lm") + PN + P + I, Sheets("aide saisie").Range("PXM_T_D")).Value = _
Sheets("BDD_communication").Cells(idcom.Row, Sheets("aide saisie").Range("pxmin_mgl_com")).Value

le code m'arrondi ma valeur à deux décimales soit 0.13

j'ai bien vérifier ce n'est pas un problème de format de cellule
qui plus est si je met un msg box ainsi :

Sheets("lm").Cells(Sheets("aide saisie").Range("conso_lm") + PN + P + I, Sheets("aide saisie").Range("PXM_T_D")).Value = _
Sheets("BDD_communication").Cells(idcom.Row, Sheets("aide saisie").Range("pxmin_mgl_com")).Value
msgbox(Sheets("BDD_communication").Cells(idcom.Row, Sheets("aide saisie").Range("pxmin_mgl_com")).Value)

il me renvoi bien la bonne valeur...

si quelqu'un a une idée c'est avec grand plaisir !

Merci
 
Trier par date Trier par votes
Re : [VBA] - Pb arrondi dans le retour d'une valeur

c'est un format personnalisé pour afficher 4 chiffres apres la virgule :
_-* # ##0,0000 €_-;-* # ##0,0000 €_-;_-* "-"?? €_-;_-@_-

Je viens de penser que j'ai oublier de préciser que c'est une cellule fusionner qui reçoit la valeur ... je ne sais pas si ça joue


j'ai donc essayer le code suivant :

MsgBox (Sheets("BDD_communication").Cells(idcom.Row, Sheets("aide saisie").Range("pxmin_com")).Value)

Sheets("lm").Cells(6, 6).Value = _
Sheets("BDD_communication").Cells(idcom.Row, Sheets("aide saisie").Range("pxmin_com")).Value


et la à nouveau la réponse msgbox me donne la bonne valeur mais dans la cellule non fusionnée elle en format monétaire normal arrondi à 2 après la virgule :s
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : [VBA] - Pb arrondi dans le retour d'une valeur

Bon je viens de trouver une solution :

Mettre le format de la donnée de base en standard ou en pourcentage...

alors je ne sais pas trop mais dans ces deux formats la la valeur arrive correctement ...

Donc pB résolu !

PS : Par contre si quelqu'un sait le pourquoi du comment je suis intéressé ...
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
294
sylvanu
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
873
escudo
E
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
651
ZiM
Z
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
  • Résolu(e)
Microsoft 365 VBA ADODB RECSET : écrire le résultats dans deux cellules.
Réponses
2
Affichages
531
VBA_dev_Anne_Marie
S
  • Question Question
XL 2010 Intégrer une conversion date xx en 20 xx dans macro vba excel
Réponses
9
Affichages
1 K
Deadpool_CC
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
J
  • Question Question
XL 2016 [RESOLU] Recherche d'une date dans VBA
Réponses
1
Affichages
1 K
Jojoye
J
X
  • Résolu(e)
Microsoft 365 supprimer seulement les doublons consécutives dans la même cellule
Réponses
6
Affichages
972
Xray
X
A
  • Résolu(e)
XL 2016 Recherche la valeur d'une cellule dans la colonne d'une autre feuille
Réponses
12
Affichages
2 K
Lolote83
L
B
  • Question Question
XL 2010 Alimenter une valeur issue d'une base de donnée dans une textbox crée dynamiquement avec variable
Réponses
6
Affichages
2 K
Bob O' Deville
B
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
O
  • Question Question
Microsoft 365 Insertion donnée dans une ligne en fonction d'une valeur de Cellule
Réponses
2
Affichages
1 K
olivier91620
O
S
  • Résolu(e)
Autres Pourquoi les coches dans le filtre ne s'affiche pas malgré code VBA semble marcher (uniquement filtre personnalisé dans table base de données)
Réponses
6
Affichages
1 K
Scoub
S
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
  • Résolu(e)
XL 2019 en VBA: impossible récupérer valeur d'une cellule en ayant le numero de ligne et de colonne ds variables
Réponses
3
Affichages
1 K
Dranreb
J
  • Question Question
XL 2013 Comment attribuer une valeur relative à "value" d'un "TextBox" dans un "Userform" en VBA ?
Réponses
2
Affichages
2 K
JM W-S-P
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…