Ecrire dans une cellule

**Yvanou** · 12/08/2009, 18h50

Bonjour,

J'ai créé une boucle FOR qui me calcule une valeur RESULTAT à chaque tour. J'aimerais que chacune des valeur de RESULTAT soit inscrite dans une cellule de ma feuille XXX pour ensuite les exploiter et créer des graphes.

J'ai essayé ceci comme boucle:

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 + Count To Annee2 - 1 + Count
 
        Total1 = Total1 * (1 + Actualisation)
 
        Worksheets("XXX").Cells(i, Colonne).Value = Total1
 
        Actualisation = Actualisation * (1 + Taux_Act)
 
    Next i

mais rien ne s'inscrit dans ma feuille XXX.

Que faire?

Merci d'avance

**jfontaine** · 12/08/2009, 22h02

Bonjour,

Comment sont alimentées les variables colonne et count?

**Yvanou** · 13/08/2009, 09h33

count et colonne sont deux "Integer" que je défini avant le début de la boucle. Ce sont des constantes.

**jfontaine** · 13/08/2009, 09h36

as tu essayer de mettre un point d'arret sur la ligne

Code :

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

Worksheets("XXX").Cells(i, Colonne).Value = Total1

Pour voir si ton code boucle bien

**diude54** · 13/08/2009, 09h37

Pourrais tu en dire plus parce que pour moi le bout de code que tu nous montre fonctionne. Après si rien ne s'inscrit ça vient peu être de tes constantes qui sont mal définies, ou de ta boucle qui est mal définie, mais sans le reste du code on ne peut rien dire.

**Yvanou** · 13/08/2009, 09h57

as tu essayer de mettre un point d'arret sur la ligne
Pour voir si ton code boucle bien

En fait, c'est un bout de code que j'ai ajouté dans une fonction (qui me sommait les éléments calculés dans la boucle FOR) pour que celle-ci m'inscrive les résultats intermédiaires dans les cellules d'un tableau.

Après l'ajout du code la fonction m'effectue toujours correctement la somme mais rien ne s'inscrit dans les cellules de XXX.

Voici le code... mais rien qu'en le relisant après copie je me rend compte de quelques erreurs...

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Function Calcul_Total(Phase As String, Objet1 As Long, Objet2 As Double, Objet3 As Double, Objet4 As Double, _
    Objet5 As Double, Annee As Double, DureeP1 As Double, DureeP2 As Double, DureeP3 As Double, Duree_totale As Double, _
    Taux_Act As Double) As Double
 
    Application.Volatile
 
    Dim Total1 As Double
    Dim Actualisation As Double
    Dim i As Integer
    Dim Count As Integer
    Dim Colonne As Integer
 
    If Phase = "Phase 1" Or Phase = "MGlobale" Then
 
        Count = 3
 
        If Phase = "Phase 1" Then
 
            Colonne = 2
 
        ElseIf Phase = "MGlobale" Then
 
            Colonne = 5
 
        End If
 
    ElseIf Phase = "Phase 2" Then
 
        Count = DureeP1 + 4
 
    ElseIf Phase = "Phase 3" Then
 
        Count = DureeP2 + DureeP1 + 4
 
    End If
 
    Total1 = (Objet1 + Objet2 + Objet3 + Objet4 + Objet5) / Annee
    Actualisation = 1 + Taux_Act
 
    Worksheets("XXX").Range(Cells(Count, Colonne), Cells(Count, Colonne)).Value = "Total1"
 
    Dim Annee2 As Integer
    Annee2 = CInt(Annee)
 
    For i = 1 + Count To Annee2 - 1 + Count
 
        Total1 = Total1 * (1 + Actualisation)
 
        Worksheets("XXX").Cells(i, Colonne).Value = Total1
 
        Actualisation = Actualisation * (1 + Taux_Act)
 
    Next i
 
    Calcul_Total = Total1
 
End Function

**Yvanou** · 13/08/2009, 10h12

Je viens d'essayer de mettre un point d'arrêt mais comme il s'agit d'une fonction, ça n'a pas l'air de s'arrêter beaucoup.

Par ailleurs, petite rectification par rapport à ce que je disais tout à l'heure. En fait, ma fonction ne fonctionne plus du tout. La somme ne se calcule plus, j'ai le message d'erreur #VALEUR! dans la cellule d'appel de la fonction.

Je viens de corriger le code par rapport aux erreurs que j'ai constaté tout à l'heure mais cela ne fonctionne toujours pas:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Function Calcul_Total(Phase As String, Objet1 As Long, Objet2 As Double, Objet3 As Double, Objet4 As Double, _
    Objet5 As Double, Annee As Double, DureeP1 As Double, DureeP2 As Double, DureeP3 As Double, Duree_totale As Double, _
    Taux_Act As Double) As Double
 
 
    Application.Volatile
 
    Dim Total1 As Double
    Dim Total As Double
    Dim Actualisation As Double
    Dim i As Integer
    Dim Count As Integer
    Dim Colonne As Integer
 
    If Phase = "Phase 1" Or Phase = "MGlobale" Then
 
        Count = 3
 
        If Phase = "Phase 1" Then
 
            Colonne = 2
 
        ElseIf Phase = "MGlobale" Then
 
            Colonne = 5
 
        End If
 
    ElseIf Phase = "Phase 2" Then
 
        Count = CInt(DureeP1 + 4)
 
    ElseIf Phase = "Phase 3" Then
 
        Count = CInt(DureeP2 + DureeP1 + 4)
 
    End If
 
    Total1 = (Objet1 + Objet2 + Objet3 + Objet4 + Objet5) / Annee
    Actualisation = 1 + Taux_Act
 
    Total = Total1
 
    Worksheets("XXX").Range(Cells(Count, Colonne), Cells(Count, Colonne)).Value = Total1
 
    Dim Annee2 As Integer
    Annee2 = CInt(Annee)
 
    For i = 1 + Count To Annee2 - 1 + Count
 
        Total = Total + Total1 * Actualisation
 
        Worksheets("XXX").Cells(i, Colonne).Value = Total1 * Actualisation
 
        Actualisation = Actualisation * (1 + Taux_Act)
 
    Next i
 
    Calcul_Total = Total
 
End Function

**jfontaine** · 13/08/2009, 10h53

je viens d'essayer ton code dans un classeur vierge et j'ai bein des données qui s'inscrivent dans la feuille. (J'ai juste modifier la nom de la feuille)

Je ne vois aucun problème (hors test d'integrité des données)

**Yvanou** · 13/08/2009, 11h03

Et tu récupères aussi le la valeur de renvoi de la fonction (le total final) ?

**jfontaine** · 13/08/2009, 11h05

Oui, j'ai aussi le total

**Yvanou** · 13/08/2009, 11h11

???????

Je ne comprends vraiment pas ce qui ne va pas dans ma fonction...

**jfontaine** · 13/08/2009, 11h13

si ton fichier ne contient pas de données confidentielles post le.
Je pourrais tester si ca fonctionne sur mon popste

**Yvanou** · 13/08/2009, 11h21

C'est un fichier pour le boulot donc ça m'ennuie de le diffuser comme ça...

Je viens de faire un essai. J'ai transformé ma function en sub pour voir à quel moment le programme bug. Apparemment à la ligne:

Code :

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

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

VBA me renvoie le message, Erreur 1004: Erreur définie par l'application ou par l'objet

Qu'est que ça veut dire?

**Yvanou** · 13/08/2009, 11h24

Je viens de comprendre: j'avais oublié de donner une valeur à "Colonne"

Effectivement, lorsque je lance la macro, tout se passe bien. Il doit y avoir un problème dans la rédaction de la fonction.

J'ai placé des MsgBox régulièrement dans la fonction pour voir à quel moment ça plante. Apparemment, c'est la ligne:

Code :

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

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

qui pose problème puisqu'au delà de cette ligne, rien ne se calcule, je ne reçois plus mes message box.

Je ne comprend vraiment pas ce qui se passe.

**jfontaine** · 13/08/2009, 12h08

Quel est la valeur des variables a ce moment la?

**Yvanou** · 13/08/2009, 13h14

Count = 3 et Colonne = 2

J'ai écris une macro Sub Ecrire() pour tester l'action d'envoyer une valeur dans une cellule de XXX. Cela fonctionne.

Apparemment, c'est le fait d'écrire le code dans une fonction qui pose problème. J'appelle donc ma macro Ecrire(arg1,arg2...) depuis ma fonction.

Seulement, lorsque je tape Ecrire(arg1...) dans mon code, VBA me dit qu'il attends un signe = après.

Pourquoi?

**jfontaine** · 13/08/2009, 13h41

peux tu faire voir le code qui appel la fonction

**Yvanou** · 13/08/2009, 13h58

Voici les deux codes: la macros et la fonction appelant la 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Sub Ecrire(Total1 As Double, Count As Integer, Colonne As Integer, Actualisation As Double)
 
Application.Volatile
 
Worksheets("XXX").Cells(Count, Colonne) = Total1 * Actualisation
 
End Sub
 
 
Function Calcul_Reconst (Phase As String, Objet1 As Double, Objet2 As Double, Annee As Double, DureeP1 As Double, DureeP2 As Double, DureeP3 As Double, Duree_totale As Double, _
    Taux_Act As Double) As Double
 
    Application.Volatile
 
    Dim Total1 As Double
    Dim Total As Double
    Dim Actualisation As Double
    Dim i As Integer
    Dim Count As Integer
    Dim Colonne As Integer
    Dim k As Object
 
    If Phase = "Phase 1" Or Phase = "MGlobale" Then
 
        Count = 3
 
        If Phase = "Phase 1" Then
 
            Colonne = 2
 
        ElseIf Phase = "MGlobale" Then
 
            Colonne = 9
 
        End If
 
    ElseIf Phase = "Phase 2" Then
 
        Count = DureeP1 + 4
 
        Colonne = 2
 
    ElseIf Phase = "Phase 3" Then
 
        Count = DureeP2 + DureeP1 + 4
 
        Colonne = 2
 
    End If
 
 
    Total1 = (Objet1 +Objet2) / Annee
    Actualisation = 1
 
    Total = Total1
 
    MsgBox " Count = " & Count
    MsgBox " Colonne = " & Colonne
    MsgBox " Total1 = " & Total1
 
    k = Application.Run("Ecrire", Total1, Count, Colonne, Actualisation)
 
    MsgBox " Total1 = " & Total1
 
    Actualisation = 1 + Taux_Act
    Dim Annee2 As Integer
    Annee2 = CInt(Annee)
 
    For i = (1 + Count) To (Annee2 - 1 + Count)
 
        Total = Total + Total1 * Actualisation
 
        k = Application.Run("Ecrire", Total1, i, Colonne, Actualisation)
 
        MsgBox " Total = " & Total
 
        Actualisation = Actualisation * (1 + Taux_Act)
 
    Next i
 
    Calcul_Reconst = Total
 
End Function

**jfontaine** · 13/08/2009, 14h36

Désolé, je ne vois le code qui appel la fonction Calcul_Reconst

**Yvanou** · 13/08/2009, 14h52

La fonction Calcul_Reconst est appelée depuis une cellule de mon classeur:

Code :

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

=Calcul_Reconst("Phase 1";E18;E25;E30;E33;E36;B6;B6;B40;B73;'CHIFFRAGE TOTAL'!C4;Hypothèses!B75)

Ecrire dans une cellule [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager