Problème format d'un nombre (avec décimales) calculé dans un autre module

Version imprimable

Bonjour,

J'ai un problème de format, en effet je dois calculer un montant total à partir d'un prix unitaire qui est dans un fichier plat.
Dans ce fichier plat il y a position du montant unitaire et la position de la virgule à placer pour reconstituer le montant unitaire
Ex : 00001280007 -
Le dernier caractère correspond au placement de la virgule (de la droite vers la gauche)
Les 10 autres caractères correspondent au montant
Le montant unitaire est donc 0.0128

Jusqu'à cette étape je récupère bien 0.0128 mais lorsque je veux récupérer ce montant dans un autre module pour l'utiliser il m'indique 0.

Ci-dessous les étapes pour reconstituer le montant final plus la macro utilisée

Pouvez-vous m'aider?

Merci

Dans un module "Module2" - Extraction du montant unitaire dans un fichier plat

Extraction de la chaine de caractère correspondant au montant unitaire
Extraction de la chaine de caractère déterminant la position de la virgule pour la chaine de caractère
Reconstitution du montant de la chaine de caractères
Utilisation d'une fonction " fx_nb_dec" pour formater le montant avec tous les chiffres après la virgule

Calcul du montant total
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 Public Function SplitAmount(Line As String) 'Montant extrait montant d'une chaine de caractères Montant = Replace(Mid(strLine, 38, 14), " ", "") 'Montant_Decimal_Locator donne le nombre de caractère de droite à gauche pour placer la virgule Montant_Decimal_Locator = Replace(Mid(strLine, 52, 1), " ", "") Nb_Decimale = Len(Montant) - Montant_Decimal_Locator nb_Avant_Virgule = Mid(Montant, 1, Montant_Decimal_Locator) nb_Après_Virgule = Mid(Montant, Montant_Decimal_Locator + 1, Len(Montant) - Montant_Decimal_Locator) Montant_Final_Unitaire = fx_nb_dec((nb_Avant_Virgule & "," & nb_Après_Virgule), Nb_Decimale) End Function Public Function fx_nb_dec(ByVal Nombre, ByVal Decimales) fx_nb_dec = Int(Nombre * 10 ^ Decimales + 1 / 2) / 10 ^ Decimales End Function 'Dans un autre module Public Montant_Final_Unitaire As Double Sub test Dim Montant As Double Dim Quantité as Integer Dim... Montant_Total = Quantité * Montant_Final_Unitaire

24/10/2019, 13h12
Patrice740

Bonjour,

Option Explicit en début de chaque module est une excellente méthode pour éviter ce qui se passe !
D'autre part j’évite l'emploi des variables publiques car c'est généralement une source de problèmes.
Il est préférable de transmettre des variables locales aux procédures qui en ont besoin.

Sur la base de ton exemple 00001280007 - avec un seul chiffre indiquant la position du séparateur décimal

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
Dim Montant_Final_Unitaire As String
Dim Montant_Total As Double
Dim Quantité As Integer
 
Montant_Final_Unitaire = "00001280007 - "
Quantité = 1
 
Montant_Total = Quantité * SplitAmount(Montant_Final_Unitaire)
MsgBox Montant_Total
End Sub
 
Private Function SplitAmount(ByVal strLine As String) As Double
Dim PosDec As Integer
 
strLine = Split(strLine)(0)
PosDec = Right(strLine, 1)
PosDec = Len(strLine) - PosDec
strLine = Left(strLine, Len(strLine) - 1)
 
SplitAmount = Val(Left(strLine, PosDec - 1) & "." & Mid(strLine, PosDec))
End Function

Sinon,
Déclare proprement tes variables.
Le séparateur de décimal de vba est le point
Utiliser VAL pour convertir une chaine en nombre

Salut

Si j'ai bien compris, tu dois diviser le nombre sans le dernier caractère par 10 puissance ce dernier caractère.

Si en A1, on a '00001280007 (chaîne de caractères)

alors

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub calcul_nombre_déc()
 
Dim lenombre As Long
Dim lapuiss As Byte
Dim nombre_dec As Double
 
With Worksheets(1).Range("A1")
        lenombre = Left(.Text, Len(.Text) - 1) + 0
        lapuiss = Right(.Text, 1) + 0
End With
 
nombre_dec = lenombre / WorksheetFunction.Power(10, lapuiss)
 
Debug.Print nombre_dec
 
End Sub

Hé salut, ami mercatog
Je viens de voir ton post.

Mon code est à adapter si, comme je ne l'avais pas vu, le nombre est suivi de " -".
Il suffit de considérer le 1er élément d'un split avec " " comme séparateur. (Listindex 0)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Option Explicit Sub calcul_nombre_déc() Dim lenombre As Long Dim lapuiss As Byte Dim nombre_dec As Double Dim lacstr As String lacstr = Split(Worksheets(1).Range("A1"), " ")(0) lenombre = Left(lacstr, Len(lacstr) - 1) + 0 lapuiss = Right(lacstr, 1) + 0 nombre_dec = lenombre / WorksheetFunction.Power(10, lapuiss) Debug.Print nombre_dec End Sub