Discussion :

[t-die]

Bonjour,

J'ai un petit problème, J'ai une procédure Principale qui appelle une procédure de Facturation d'un produit avec un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT Case FactureType
 
CASE "MaFactureType" CALL MaFacture

Dans la procédure, il y a une condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IF faFINAL = "FINAL"

appel d'une procédure EviterTicketOUDoublon 'Dans le tableau qui contient les produits à facturer si l il manque 1 contrat, il y a un ticket et on ne facture pas et on passe à la ligne suivante :

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
 
If Sheets(sData).Cells(ChRow, fMid).Value = fdDuo Then GoTo EviterTicketsOuDoublons
 
    With Sheets(chTab)
    .Cells(j, 1).Value = Sheets(sData).Cells(ChRow, Fval1)
    .Cells(j, 2).Value = Sheets(sData).Cells(ChRow, Fval2)
    .Cells(j, 3).Value = Sheets(sData).Cells(ChRow, Fval3)
    .Cells(j, 4).Value = Sheets(sData).Cells(ChRow, Fval4)
    .Cells(j, 5).Value = Sheets(sData).Cells(ChRow, Fval5)
    .Cells(j, 6).Value = Sheets(sData).Cells(ChRow, Fval6)
    .Cells(j, 12).FormulaR1C1 = "=RC[-1]*RC[-2]"
    End With
 
    fdDuo = Sheets(sData).Cells(ChRow, fMid)
    j = j + 1
    k = k + 1
 
    If faFinal = "Final" Then Call historiserFinal

Si c'est une facture finale, il y a un onglet d'historique ou chaque ligne de la facture est inscrite sinon non :
l'appel de l'historisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub historiserFinal()
 
If Sheets(sData).Cells(ChRow, fTik).Value <> 0 Then GoTo Fin
 
 With Sheets(sHisto)
    .Cells(j, 1).Value = Sheets(sData).Cells(ChRow, Fval1)
    .Cells(j, 2).Value = Sheets(sData).Cells(ChRow, Fval2)
    .Cells(j, 3).Value = Sheets(sData).Cells(ChRow, Fval3)
    .Cells(j, 4).Value = Sheets(sData).Cells(ChRow, Fval4)
    .Cells(j, 5).Value = Sheets(sData).Cells(ChRow, Fval5)
    .Cells(j, 6).Value = Sheets(sData).Cells(ChRow, Fval6)
    .Cells(j, 12).FormulaR1C1 = "=RC[-1]*RC[-2]"
 End With

La première ligne est historisée ensuite fin du programme sans message d'erreur mais dans le mode debug un espin chRow à la valeur <Hors du contexte>.

Merci si quelqu'un peut m'aider

[SfJ5Rpw8]

Bonsoir,

et ta variable est déclarée ou ??


pense aussi à mettre en première ligne de toutes tes pages de code la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

cela t'aideras à comprendre la portée de tes variables...

[t-die]

Merci,

la variable est déclaré ainsi dans le module Facturer qui contient les procédures de facturation des différents type de produits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Option Explicit
Public ChRow

[t-die]

Bonsoir,

Pas de solution, ou de direction? personne n'a eu ce problème? J'ai trouvé que ça sur le net mais je comprend pas bien...http://www.xtremevbtalk.com/showthread.php?t=308676

Si ça dis qqch à quelqu'un? ce serait sympa de répondre..

[Theze]

Bonjour,

Difficile de t'aider avec ces morceaux de code car on ne voit pas où les variables sont initialisées. Il serait peut être judicieux de poster le code en entier y compris les variables déclarées en tête de module.

Hervé.

[SfJ5Rpw8]

Bonjour,

ton message d'erreur semble du à une mauvaise utilisation du debugger .. place un point d'arrêt sur la ligne causant problème et une fois à l'arrêt utilise le bouton droit de la souris pour placer ta variable dans ta table de visu ...

[t-die]

Ok merci,

je post lundi là fin des vacances mais je jette un coup d’œil quand même...

[t-die]

Si jamais quelqu'un a le même problème : la variable qui posait problème existait bien dans le module principal Facturer mais dans la sous-procédure elle n'était pas assigné...problème résolu...