Discussion :

[arnaud.i]

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
  
  1. Extraction de la chaine de caractère correspondant au montant unitaire
  2. Extraction de la chaine de caractère déterminant la position de la virgule pour la chaine de caractère
  3. Reconstitution du montant de la chaine de caractères
  4. Utilisation d'une fonction " fx_nb_dec" pour formater le montant avec tous les chiffres après la virgule
  
  
• Calcul du montant total

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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