Discussion :

[jfontaine]

Peux tu me donner les valeurs transmises pour faire un test

[Yvanou]

Dans l'ordre:

"Phase 1"
1500000
1300000
3
3
7
5
15
0,03

[jfontaine]

Je crois que le problème provient de la valeur de phase.
Le if respectant la casse, si tu envoies phase 1 il sera different que Phase 1

essai ce code en remplacement des if

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
 
    Select Case UCase(Phase)
        Case "PHASE 1"
            Count = 3
            Colonne = 2
        Case "PHASE 2"
            Count = DureeP1 + 4
            Colonne = 2
        Case "PHASE 3"
            Count = DureeP2 + DureeP1 + 4
            Colonne = 2
        Case "MGLOBALE"
            Count = 3
            Colonne = 9
    End Select

j'ai par la meme occasion replacé le code suivant

Code :

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

Worksheets("XXX").Cells(Count, Colonne) = Total1 * Actualisation

dans la fonction

[Yvanou]

Je viens d'essayer avec la fonction CASE, mais ça ne fonctionne pas.

D'après les messages box que je reçois, le code arrête de fonctionner à partir de la ligne:

Code :

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

Worksheets("XXX").Cells(Count, Colonne) = Total1 * Actualisation

[Invité]

Bonjour,

Je ne dis pas que le problème vient de là mais à priori j'éviterais d'utiliser "Count" comme une variable alors que c'est un mot clé.

[Yvanou]

Bonjour et merci pour votre intérêt,

Je viens de remplacer Count par Ligne mais le problème reste toujours là: les calculs ne se font pas au-delà de la ligne pré-citée. J'enrage...

[Invité]

Encore une question pour essayer de bien comprendre étant donné que l'on ne dispose que d'une partie de votre code :

Code :

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

Actualisation = Actualisation * (1 + Taux_Act)

je ne vois pas où une valeur est affectée à "Taux_Act"

[Yvanou]

Taux_Act est une des variables d'entrée, le dernier de la liste. C'est un Double.

[Yvanou]

Je tiens à remercier particulièrement jacques_jean et jfontaine pour leur aide qui m'a permis de résoudre mon problème.

Le fin mot de l'histoire est qu'il apparaît impossible, à mon niveau de connaissance de vba, d'écrire des résultats dans des cellules à partir d'une fonction. Il faut impérativement passer par une procédure classique pour remplir un Worksheet.