conversion string double

Version imprimable

07/06/2011, 15h33
pikameuh

conversion string double

Bonjour,

J'ai des valeurs numériques au format String et j'ai besoins de les aditionner.
Je n'arrive pas à convertir les string en double... J'ai parcouru le net pour m'aider, idem ...

Pouvez vous m'aider svp !:calim2:
07/06/2011, 15h41
fgiambelluco

Bonjour
Le problème rencontré n'est pas assez détaillé (code utilisé, message d'erreur,..).

N'hésites pas à mettre ton code utilisé avec un exemple de données contenues dans le String

Ba en faite, je récupère un String (qui contient un nombre)

Je voudrais additionner ses nombres. Mon code :

Code:

1
2
3
4
If (Me.ListeResultat.Column(7, i) = "E-TRONCO") Or (Me.ListeResultat.Column(7, i) = "A-COLLEC") Then
            temp = Me.ListeResultat.Column(5, i)
            varP = varP + Cdbl(temp)
            varP = StringtoDouble(varP)

Mais ça ne marche pas.

08/06/2011, 05h18
Invité

Bonjour

Quelques explications dans ton code sont nécessaires :

Comment est déclaré temp ?
Que renvoies Me.ListeResultat.Column(5, i) ?
Comment est déclaré VarP ?
C'est quoi cette fonction StringtoDouble ?

Philippe

Pour les variables :

Code:

1
2
3
4
5
6
Private Sub TotauMaj()
    Dim totLigne, varP, varD, varTest As Double
    Dim i As Long
    Dim temp As Variant
    Dim pos As Integer
    Dim strTemp As Variant

Citation:

Que renvoies Me.ListeResultat.Column(5, i) ?

ça renvoi la valeur de la colonne 5, ligne i de ma listeResultat

Citation:

C'est quoi cette fonction StringtoDouble ?

c'est la fonctio que je suis en train de coder car je ne trouve pas de fonction faisant le travail.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Public Function StringtoDouble(str)
    ' Declarer les variables
    Dim result, temp, comp, nbZ As Double
    Dim i, j As Integer
 
    ' Determiner le nombre d'entier
    comp = InStr(str, ".")
    If (comp = 0) Then
         comp = InStr(str, ",")
    End If
 
temp = 1
    ' Determiner les cas où il y a une partie decimale
    If (comp <> 0) Then
        ' Nombre de chiffre dans la partie entiere
        For i = 1 To comp - 2
            temp = temp * 10
        Next
        ' Premier caractere entier
        nbZ = temp
        temp = temp * Mid(str, 1, 1)
        ' Reste de la partie entiere
        For i = 2 To comp - 1
            nbZ = nbZ / 10
            temp = temp + (nbZ * Mid(str, i, 1))
        Next
        ' Partie decimale
        temp = temp + (Mid(str, comp + 1, 2) / 100)
 
    ' Determiner les cas où il n'y a pas de partie decimale
    Else
        ' Nombre de chiffre dans la partie entiere
        For i = 1 To Len(str) - 1
            temp = temp * 10
        Next
        ' Premier caractere entier
        nbZ = temp
        temp = temp * Mid(str, 1, 1)
        ' Reste de la partie entiere
        For i = 2 To Len(str)
            nbZ = nbZ / 10
            temp = temp + (nbZ * Mid(str, i, 1))
        Next
    End If
 
    StringtoDouble = temp
End Function

ça marche a peu prés bien, mais des fois j'ai des problème d'arrondie assez génant du genre : XX,XX + YY,YY = ZZ,ZZZZZZZZZZZZZZZZ ...

Bonjour,

Pour faire plus simple... voici une autre version :

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
33
34
35
36
37
38
 
Public Function StringToDouble(ByVal StringValue As String) As Double
Dim strDecSep                                               As String
Dim dblResult                                               As Double
Dim intChar                                                 As Integer
 
    On Error GoTo L_ErrStringToDouble
    'Suppression des éventuels espaces
    StringValue = Trim$(Replace(StringValue, Chr(32), vbNullString))
    'définition du séparateur de décimales du système
    strDecSep = Mid$(1 / 2, 2, 1)
    'affectation du code ASCII
    intChar = Asc(strDecSep)
    'si le string n'est pas un nombre... (on est pessimiste par principe)
    If IsNumeric(StringValue) = False Then
        If intChar = 44 Then
            'on force avec un point
            intChar = 46
        Else
            'on force avec une virgule
            intChar = 44
        End If
        'on remplace alors la chaîne nombre avec le séparateur correspondant
        StringValue = Replace(StringValue, Chr(intChar), strDecSep)
    End If
    'on convertit alors en double (on part du principe que StringValue est un nombre)
    dblResult = CDbl(StringValue)
 
    On Error GoTo 0
L_ExStringToDouble:
    'la fonction prend alors la valeur trouvée
    StringToDouble = dblResult
    Exit Function
 
L_ErrStringToDouble:
    dblResult = 0
    Resume L_ExStringToDouble
End Function

Argy

08/06/2011, 14h11
pikameuh

Ouah! ça marche nickel. Cependant je ne comprends pas tout dans ton code.

Merci tout de même !!
08/06/2011, 15h11
argyronet

pikameuh, j'ai commenté le code...

++

Argy
08/06/2011, 15h20
pikameuh

c'est vraiment cool de ta part !:ccool: