Discussion :

[dodo69]

Bonjour,

Je me trouve de nouveau confronter à un problème :s

J'ai une macro qui se termine comme ceci

Code :

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

1
2
3
4
5
6
7
8
 
Sub detail_revenu ()
 
.... 'traitement
 
Call detail_market_share
 
End Sub

Ainsi j'apelle une autra macro:

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
Sub detail_market_share()
Dim i As Integer
Dim j As Integer
Dim valeur_tot As Double
Dim valeur_cel As Double


Application.ScreenUpdating = False

With Sheets("Area and Country")

For j = variable + 3 To (2 * variable) + 3 'variable est public et défini préalablement
i = 11

valeur_tot = .Cells(der_ligne, j - (variable + 1))   'après cette ligne le programme repasse a la macro précédente ... :'(
                     
     If valeur_tot = 0 Then   ' si le total du pays = 0 alors NEW ..
            For i = 11 To der_entreprise
            .Cells(i, j) = "NEW"
            Next i
            
    End If
         
    For i = 11 To der_entreprise
                   
       ........

Mon problème se trouve à l'exécution de la ligne en rouge,
je m'explique

Une fois cette ligne traitée, valeur_tot comporte une valeur du genre 15663
mais au lieu de continuer dans la sub detail_market_share() elle repasse dans l'autre sub : "detail_revenu "

Quelqu'un pourrait m'expliquer pourquoi ?

Merci d'avance

Cdlt
DoDO

[Orhleil]

En explication à "Pourquoi le programme retourne à detail_revenu ?", je répondrais que tu as sûrement dans detail_revenu un "On Error..." et du coup à ta ligne en rouge, detail_market_share renvoie une erreur, que detail_revenu traite comme n'importe quelle autre erreur.
Par contre j'ai du mal à voir ce qui envoie une erreur dans cette ligne rouge...

EDIT : essaie avec ça pour voir :

Code :

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

valeur_tot = CDbl(.Cells(der_ligne, j - (variable + 1)).Value)

On convertit le contenu en Double, pour être sûr qu'il cherche pas à affecter un String à un Double...

[MarcelG]

Salut,

Peux-tu insérer dans ton 2ème code,

Code :

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

Debug.Print der_entreprise

Et faire part du retour affiché dans ta fenêtre Exécution (CTRL + G)

Il se peut que l'arrêt soit dû à cette variable non prise en compte car npn déclarée.

[dodo69]

Bon si j'ai suivi pour les erreurs que l'on cherche durant plus d'une heure...
et qu'une réponse comme celle de MarcelG:

Code :

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

Debug.Print der_entreprise

nous fait remarquer que l'on sait tromper dans les variables, écrit "der_ligne" au lieu de "der_entreprise" dans les lignes de code.

On peut alors vous remercier pour le temps que vous avez consacré à chercher une erreur introuvable :s et s'excuser puis cliquer sur le bouton delestage.

Encore merci

Bien sincérement
DoDo

[MarcelG]

Dodo69,

Tu n'as pas à t'excuser.

Pour ma part, je n'ai pas mis bien longtemps à détecter ce problème de variable.

Ce genre de situation arrive souvent. Le principal étant que cette anomalie te serve lors d'un prochain développement (contrôle des variables).

Positionne plutôt ton post en "Résolu".

[dodo69]

^^ Ba merci bien MarcelG en tout cas,

J'y ferai plus attention à l'avenir

Merci
cdlt
DoDo