Function PoidsVolume(AAnalyser As String) As Double
Dim I As Integer
Dim LongueurChaine As Integer
Dim PremierNombre As String
Dim DeuxièmeChiffre As Boolean
DeuxièmeChiffre = False
LongueurChaine = Len(AAnalyser)
For I = 1 To LongueurChaine - 1
If IsNumeric(Left(AAnalyser, 1)) Or Left(AAnalyser, 1) = "." Then
If IsNumeric(Left(AAnalyser, 1)) Then
PremierNombre = PremierNombre & Left(AAnalyser, 1)
Else
PremierNombre = PremierNombre & ","
End If
Else
If PremierNombre <> "" And DeuxièmeChiffre = True Then Exit For
If PremierNombre <> "" And DeuxièmeChiffre = False Then
PremierNombre = ""
DeuxièmeChiffre = True
End If
End If
AAnalyser = Right(AAnalyser, Len(AAnalyser) - 1)
Next I
If PremierNombre <> "" Then PoidsVolume = CDbl(PremierNombre) Else PoidsVolume = 1
End Function