Difficulté à déboguer une fonction

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/02/2013, 14h19
sab_info

Difficulté à déboguer une fonction

Bonjour,

J'ai un souci à déboguer mon projet VBA.

Le procédure que je suis pour déboguer est la suivante:
- je marque un arrêt à la fin de ma fonction "End Function"
- ensuite j'utilise la touche F8 qui me permet de pointer sur le début de la fonction et je retape sur F8 pour avancer dans le code.

Mais le problème c'est que cela marche juste pour une de mes fonctions quand je refais la même procédure pour les autres et beh rien ne se passe.

Avez vous une idée sur le problème ?

Merci
05/02/2013, 14h25
Kimy_Ire

Met plusieurs points d'arrêt à l'intérieur de chacune de tes fonctions. De cette manière tu pourras "rentrer" à l'intérieur d'elles lors du mode pas à pas.
05/02/2013, 14h32
gFZT82

Bonjour,

A priori, si tu places un point d’arrêt dans ton code et que tu n’atteins pas ce point d’arrêt, c’est que ta fonction n’est pas appelée ou que tu en sors par un branchement.

Cordialement.
05/02/2013, 15h22
sab_info

Citation:

Envoyé par Kimy_Ire

Met plusieurs points d'arrêt à l'intérieur de chacune de tes fonctions. De cette manière tu pourras "rentrer" à l'intérieur d'elles lors du mode pas à pas.

Bonjour,

J'ai fait ce que tu m'as conseillé j'ai placé pas mal de points d'arrêt dans une de mes fonctions pour la déboguer et j'ai appuyé sur F8 et donc la curseur a pointé sur une macro de protection de la feuille.

Je suis vraiment perdue :(
05/02/2013, 15h27
sab_info

Citation:

Envoyé par gFZT82

Bonjour,

A priori, si tu places un point d’arrêt dans ton code et que tu n’atteins pas ce point d’arrêt, c’est que ta fonction n’est pas appelée ou que tu en sors par un branchement.

Cordialement.

Bonjour,

Justement je veux déboguer cette fonction là car c'est elle qui me récupère les données à partir de ma base sql server.

Je n'ai pas de branchement particulier dans cette fonction là et j'appelle ma fonction dans mon code avec un "Call " !!!!!
06/02/2013, 11h21
sab_info

Bonjour,

J'ai pu déboguer en créant une nouvelle macro et j'ai mis le code de ma fonction de dans.

Mais le problème c'est que est ce que je dois supprimer la fonction et laisser juste le code de la macro ? est ce que je peux les laisser tous les deux ?
06/02/2013, 11h48
gFZT82

Bonjour,

Il faudrait que tu montres ce code pour nous permettre de t'aider.

Cordialement

Citation:

Envoyé par gFZT82

Bonjour,

Il faudrait que tu montres ce code pour nous permettre de t'aider.

Cordialement

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
 
 
Bonjour,
 
Voilà le code du module que j'ai rajouté et qui contient le code de ma fonction :
 
 
Sub Insert()
Dim objDBHelper As New DBHelper
Dim rs As ADODB.Recordset
Dim strSP As String
Dim params As Variant
Dim test1 As Variant
Dim test2 As Variant
 
    On Error Resume Next
    strSP = "sp_History"
    params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _
                 , Array("@Date", adDate, 10, DateExe, adParamInput))
    Set rs = objDBHelper.RunSPReturnRS(strSP, params)
    If Not rs.EOF Then
        Worksheets(gSheet3Name).Range("Heures") = rs.Fields("Quantity").Value
        Worksheets(gSheet3Name).Range("NUO") = rs.Fields("Amount").Value
        Worksheets(gSheet3Name).Range("Frais") = rs.Fields("PENAmount").Value
        Worksheets(gSheet3Name).Range("Achat") = rs.Fields("CHAmount").Value
 
        Worksheets(gSheet3Name).Range("HeuresA") = rs.Fields("QuantityA").Value
        Worksheets(gSheet3Name).Range("NUOA") = rs.Fields("AmountA").Value
        Worksheets(gSheet3Name).Range("FraisA") = rs.Fields("AmountA").Value
        Worksheets(gSheet3Name).Range("AchatA") = rs.Fields("AmountA").Value
 
 
    End If
    rs.Close
    Set rs = Nothing
End Sub

Et là vous avez le code de ma fonction d'origine :

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
 
Public Function Insert(ByVal IDAct As String)
Dim objDBHelper As New DBHelper
Dim rs As ADODB.Recordset
Dim strSP As String
Dim params As Variant
Dim test1 As Variant
Dim test2 As Variant
 
    On Error Resume Next
    strSP = "sp_History"
    params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _
                 , Array("@Date", adDate, 10, DateExe, adParamInput))
    Set rs = objDBHelper.RunSPReturnRS(strSP, params)
    If Not rs.EOF Then
        Worksheets(gSheet3Name).Range("Heures") = rs.Fields("Quantity").Value
        Worksheets(gSheet3Name).Range("NUO") = rs.Fields("Amount").Value
        Worksheets(gSheet3Name).Range("Frais") = rs.Fields("PENAmount").Value
        Worksheets(gSheet3Name).Range("Achat") = rs.Fields("CHAmount").Value
 
        Worksheets(gSheet3Name).Range("HeuresA") = rs.Fields("QuantityA").Value
        Worksheets(gSheet3Name).Range("NUOA") = rs.Fields("AmountA").Value
        Worksheets(gSheet3Name).Range("FraisA") = rs.Fields("AmountA").Value
        Worksheets(gSheet3Name).Range("AchatA") = rs.Fields("AmountA").Value
 
 
    End If
    rs.Close
    Set rs = Nothing
End Function

En gros ce code là permet de récupérer des données insérées dans des colonnes particulières d'un tableau croisé dynamique et ces données là doivent être stockée dans une base de données sql server.

Je n'arrive pas à récupérer les données insérées dans mon tableau excel du coup je voulais déboguer pour détecter le problème mais je n'y arrivais pas c'est pour ce fait que j'ai rajouté une macro pour pouvoir le faire.

Merci

06/02/2013, 13h37
gFZT82

Citation:

Est-ce que je dois supprimer la fonction et laisser juste le code de la macro ? Est-ce que je peux les laisser tous les deux ?

La principale différence entre une procédure sub et une fonction est la valeur retournée par la fonction. Dans ton cas, il s’agit bien d’une procédure, aucune valeur n’étant retournée par la fonction. Tu dois donc supprimer la fonction et utiliser la procédure.

Citation:

En gros ce code là permet de récupérer des données insérées dans des colonnes particulières d'un tableau croisé dynamique et ces données là doivent être stockées dans une base de données sql server.

Je suis étonné par ton commentaire car ta procédure semble faire l’inverse, à savoir récupérer des données d’une base SQL pour les copier dans une feuille Excel.

Cordialement.
06/02/2013, 13h40
Invité

Difficulté à déboguer une fonction

Bonjour,
Il n’y a pas 36 solutions.
Soit tu n’appelles pas ta fonction dans ton code, dans ce cas il faut trouver l’endroit où elle est censée être appelée.
Soit les messages d’erreurs sont inhibés (On error resume next ou on error goto ?), dans ce cas
Tu dois mètre en commentaires les (on error ) dans le menu Edition->remplacer puis remplace (on error) par( 'on error) dans tout le projet.
Tu ré exécute ton projet [F8] note que [MAJ] + [F8] te permet d’exécuter pas à pas les fonctions dans leur totalités. Là le débogueur devrait s’arrêter sur l’erreur regarde si les erreurs sont bien gérées si oui retire le commentaire de la fonction et continu jusqu’à l’erreur qui te préoccupe. N’oublie pas de retirer les autres commentaires après débogage.

A+

Aller,
Je te donne la réponse a ton problème.

On voit bien que le On Error Resume Next masque le probème.

Si ta requête te retourne 0 enregistrement, c’est normal que ton tableau soit vide.
Si non, les objets vb n’autorise pas les valeurs null ; dans une table il peut y avoir des champs null.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
On Error Resume Next
    strSP = "sp_History"
    params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _
                 , Array("@Date", adDate, 10, DateExe, adParamInput))
    Set rs = objDBHelper.RunSPReturnRS(strSP, params)
    If Not rs.EOF Then
        Worksheets(gSheet3Name).Range("Heures") = "" & rs.Fields("Quantity").Value
        Worksheets(gSheet3Name).Range("NUO") = ""  & rs.Fields("Amount").Value
        Worksheets(gSheet3Name).Range("Frais") = "" &  rs.Fields("PENAmount").Value
        Worksheets(gSheet3Name).Range("Achat") = "" &  rs.Fields("CHAmount").Value
 
        Worksheets(gSheet3Name).Range("HeuresA") = "" &  rs.Fields("QuantityA").Value
        Worksheets(gSheet3Name).Range("NUOA") = "" &  rs.Fields("AmountA").Value
        Worksheets(gSheet3Name).Range("FraisA") = "" &  rs.Fields("AmountA").Value
        Worksheets(gSheet3Name).Range("AchatA") = "" &  rs.Fields("AmountA").Value
 
 
    End If

Citation:
Envoyé par rdurupt
Aller,
Je te donne la réponse a ton problème.

On voit bien que le On Error Resume Next masque le probème.

Si ta requête te retourne 0 enregistrement, c’est normal que ton tableau soit vide.
Si non, les objets vb n’autorise pas les valeurs null ; dans une table il peut y avoir des champs null.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 On Error Resume Next strSP = "sp_History" params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _ , Array("@Date", adDate, 10, DateExe, adParamInput)) Set rs = objDBHelper.RunSPReturnRS(strSP, params) If Not rs.EOF Then Worksheets(gSheet3Name).Range("Heures") = "" & rs.Fields("Quantity").Value Worksheets(gSheet3Name).Range("NUO") = "" & rs.Fields("Amount").Value Worksheets(gSheet3Name).Range("Frais") = "" & rs.Fields("PENAmount").Value Worksheets(gSheet3Name).Range("Achat") = "" & rs.Fields("CHAmount").Value Worksheets(gSheet3Name).Range("HeuresA") = "" & rs.Fields("QuantityA").Value Worksheets(gSheet3Name).Range("NUOA") = "" & rs.Fields("AmountA").Value Worksheets(gSheet3Name).Range("FraisA") = "" & rs.Fields("AmountA").Value Worksheets(gSheet3Name).Range("AchatA") = "" & rs.Fields("AmountA").Value End If
Bonjour,

Est ce que je dois supprimer "On Error Resume Next" ?

On fait mon recordset "rs" est vide et donc il me récupère pas les valeurs de ma base de données sql server.

Je ne sais pas où est le problème et surtout où est ce que je pourrais faire quelque chose.

Merci

07/02/2013, 15h18
sab_info

Citation:

Envoyé par gFZT82

La principale différence entre une procédure sub et une fonction est la valeur retournée par la fonction. Dans ton cas, il s’agit bien d’une procédure, aucune valeur n’étant retournée par la fonction. Tu dois donc supprimer la fonction et utiliser la procédure.

Je suis étonné par ton commentaire car ta procédure semble faire l’inverse, à savoir récupérer des données d’une base SQL pour les copier dans une feuille Excel.

Cordialement.

Bonjour,

Ma fonction me permet de récupérer des données à partir de ma base de données sql server.
07/02/2013, 15h28
Invité

Est-ce que je dois supprimer "On Error Resume Next" ?

En fait, le « On Error Resume Next" ? » inhibe les messages d’erreurs.
Si tu les traites toi-même ça présente un intérêt, si non une erreur est préférable à un fonctionnement blizzard, au moins tu es informé.
Déjà enlève le On Error Resume Next et regarde le message d’erreur on n’y verra plus claire.
07/02/2013, 15h32
sab_info

Citation:

Envoyé par rdurupt

Aller,
Je te donne la réponse a ton problème.

On voit bien que le On Error Resume Next masque le probème

>>>> J'ai commenté cette ligne là et je n'ai pas eu d'erreurs

Citation:

Envoyé par rdurupt

Si ta requête te retourne 0 enregistrement, c’est normal que ton tableau soit vide.

>>>> Ma requête me retourne bien des enregistrements coté sql server mais coté excel il y a rien qui s'affiche

Merci
07/02/2013, 15h42
Invité

Ma requête me retourne bien des enregistrements coté sql server

Ta requête pointe sur une table ou une vue ?
07/02/2013, 16h00
sab_info

Citation:

Envoyé par rdurupt

Ta requête pointe sur une table ou une vue ?

Sur une table

Sur une table

Code:

1
2
3
strSP = "select sp_History.* from sp_History  where IDAc=@IDAct and DateExe=@Date;"
    params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _
                 , Array("@Date", adDate, 10, DateExe, adParamInput))

Citation:

Envoyé par rdurupt

Code:

1
2
3
strSP = "select sp_History.* from sp_History  where IDAc=@IDAct and DateExe=@Date;"
    params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _
                 , Array("@Date", adDate, 10, DateExe, adParamInput))

Tu peux m'expliquer ta solution stp

Citation:
Envoyé par rdurupt
Code:

1 2 3 strSP = "select sp_History.* from sp_History where IDAc=@IDAct and DateExe=@Date;" params = Array(Array("@IDAct", adVarChar, 70, IDAc, adParamInput) _ , Array("@Date", adDate, 10, DateExe, adParamInput))
Ma table s'appelle History et ma procédure stockée sp_History

J'ai essayé avec ton code en renommant la table car toi t'as mis le nom de la procédure stockée "sp_History" et la fonction m'a rien récupéré.

Voir 40 message(s) de cette discussion en une page