Discussion :

[sab_info]

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

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

[sab_info]

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

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

[sab_info]

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 " !!!!!

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

[gFZT82]

Bonjour,

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

Cordialement

[sab_info]

Bonjour,

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

Cordialement

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
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 :

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