erreur exécutable vb6

Version imprimable

Bonjour,
Je réalise une application de gestion pour laquelle j'ai crée un.exe
Lorsque je l'éxécute j'ai le message suivant
cdp.exe a rencontré un problème et doit fermer. Nous vous prions etc....
J'ai réussi à isoler la fonction où se produit l'erreur. Il s'agit d'une fonction pour extraire les valeurs numériques d'une chaine.
La function est éxécutée en entier et juste avant l'exécution du Exit function ou End function j'ai ce message d'erreur. J'ajoute que si je consulte les informations du rapport suivant j'ai ce message :
AppName: cdp.exe AppVer: 1.0.0.0 ModName: msvbvm60.dll
ModVer: 6.0.98.2 Offset: 00108527
Je précise que ce programme tourne trés bien en mode développement.
Je vous remercie de votre aide
Cordialement
Michel
Comme demandé voici le code bloquant
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 Function extraireValeursNumeriques_DansChaine() On Error GoTo errfatale: Dim i As Byte, Nb As Byte ' cible = "12,3azerty23,5 67" 'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des 'virgules par des points ' MsgBox "début remplacement virgule par des points ok " Cible = Replace(Cible, ",", ".") ' MsgBox " virgule par des points ok " 'Pour gérer deux nombres qui se suivent: remplacement des espaces 'par un caractère Alpha ' MsgBox "début remplacement espaces par des X ok " Cible = Replace(Cible, " ", "x") ' MsgBox " remplacement espaces par des X ok " ' MsgBox "début Conversion ok " For i = 1 To Len(Cible) ' MsgBox "conversion pas à pas ok " If IsNumeric(Mid(Cible, i, 1)) Then NombreConv = Val(Mid(Cible, i, Len(Cible) - i + 1)) ' MsgBox "NombreCon ok " Nb = Nb + 1 Resultat = Resultat & NombreConv ' MsgBox "Resultat ok " i = i + Len(Str(NombreConv)) - 1 End If Next MsgBox "fin extrairevaleurnumérique ok " 'pb au niveau de la sortie de la fonction et affichage du message cité 'plus haut Exit Function errfatale: MsgBox err.Description End Function
Merci de votre aide
Cordialement
Michel

30/09/2011, 17h10
l_autodidacte

Peut-on avoir le code relatif à la fonction en question pour y voir plus clair ?

vb6 erreur bloquante

Comme demandé voici le code bloquant

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
Function extraireValeursNumeriques_DansChaine()
On Error GoTo errfatale:
Dim i As Byte, Nb As Byte
' cible = "12,3azerty23,5 67"
'Pour que fonction Val puisse reconnaitre les décimales: Remplacement des
'virgules par des points
' MsgBox "début remplacement virgule par des points ok "
Cible = Replace(Cible, ",", ".")
' MsgBox " virgule par des points ok " 
'Pour gérer deux nombres qui se suivent: remplacement des espaces
'par un caractère Alpha
' MsgBox "début remplacement espaces par des X ok "
Cible = Replace(Cible, " ", "x")
' MsgBox " remplacement espaces par des X ok "
' MsgBox "début Conversion ok "
For i = 1 To Len(Cible)
' MsgBox "conversion pas à pas ok "
If IsNumeric(Mid(Cible, i, 1)) Then
NombreConv = Val(Mid(Cible, i, Len(Cible) - i + 1))
' MsgBox "NombreCon ok "
Nb = Nb + 1
Resultat = Resultat & NombreConv
' MsgBox "Resultat ok "
i = i + Len(Str(NombreConv)) - 1
End If
Next
MsgBox "fin extrairevaleurnumérique ok "
'pb au niveau de la sortie de la fonction et affichage du message cité 'plus haut 
Exit Function
errfatale:
MsgBox err.Description
End Function

Merci de votre aide
Cordialement
Michel

04/10/2011, 12h05
DarkVader

On Error GoTo errfatale:
=> On Error GoTo errfatale

Dim i As Byte, Nb As Byte
=> Dim i As Long, Nb As Byte

For i = 1 To Len(Cible) If IsNumeric(Mid(Cible, i, 1)) Then
NombreConv = Val(Mid(Cible, i, Len(Cible) - i + 1))
=> NombreConv = Val(Mid(Cible, i, ??? ))

Nb = Nb + 1
=> ??? Nb jamais utilisé

Resultat = Resultat & NombreConv

i = i + Len(Str(NombreConv)) - 1
=> ???

Il serait plus simple d'expliquer le but de l'opération car le moins que l'on puisse dire
c'est qu'elle n'est pas évidente à la simple lecture du code.

Salut

@DarkVader :ccool:

Pour moi une fonction est faite pour retourner un résultat dans son NOM.
Je n’ai pas réussi à provoquer le problème que tu rencontres, par contre j’avais fait toutes les déclarations des variables avant de lancer le code.
J’ai crut comprendre que tu voulais additionner les chiffres contenus dans la chaîne ?
Voilà un code qui le fait (j'ai gardé l'essentiel de ton code)

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
Option Explicit
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim CiblE As String
If KeyAscii = 13 Then
    KeyAscii = 0
    CiblE = ExtratAdditionChaine(Text1.Text)
    If CiblE <> "-999" Then MsgBox CiblE
End If
End Sub
 
Function ExtratAdditionChaine(DataChaine As String) As Single
On Error GoTo errfatale:
Dim i As Byte
Dim NombreConv As Single, Resultat As Single
'DataChaine = "12,3azerty23,5 67"     ********* Resultat = 102.8 ********
DataChaine = Replace(DataChaine, ",", ".")
'Pour gérer deux nombres qui se suivent: remplacement des espaces par un caractère Alpha
DataChaine = Replace(DataChaine, " ", "x")
For i = 1 To Len(DataChaine)
    ' MsgBox "conversion pas à pas ok "
    If IsNumeric(Mid(DataChaine, i, 1)) Then
        NombreConv = Val(Mid(DataChaine, i, Len(DataChaine) - i + 1))
        Resultat = Resultat + NombreConv
        i = i + Len(Str(NombreConv)) - 1
    End If
Next
ExtratAdditionChaine = Resultat
'MsgBox "fin ExtratAdditionChaine ok "
Exit Function
errfatale:
MsgBox Err.Number & vbCrLf & Err.Description
Err.Clear
ExtratAdditionChaine = -999
End Function

04/10/2011, 16h06
michel31600

pb vb6

merci pour votre aide tout est ok
grace à votre aide

cordialement

Michel