appeler deux fonctions dans une autre

Version imprimable

Voir 40 message(s) de cette discussion en une page

bonjour tout le monde,

Je cherche à appeler deux fonctions qui me permettre de faire des sommes en une 3ème mon code est le suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub TotalP()
 
    Dim Totaux() As Double
 
 
    Totaux = SousTotalP1() + SousTotalP2() 
    'SousTotaP1 et SousTotalP2 sont deux Sub déjà définient et Totaux doit normalement me donner la somme des résultats obtenus dans les deux Sub
 
    MsgBox ("le total Passif : " & Totaux)
 
End Sub

Merci d'avance :)

23/05/2008, 13h44
fred65200

bonjour,

SousTotalP1() + SousTotalP2() devraient être des fonctions et non des Sub(s) si tu veux que ces macros te retournent un résultat.

cordialement
23/05/2008, 13h48
Godzestla
je pense que tu confonds Fonction et Sub (Procédure).

La procédure ne te ramène généralement pas de résultat, mais bien la fonction.

Dans ton cas il te faut une fonction.

du genre
Code:

1 2 3 4 Public Function SousTotalP1() As Double SousTotalP1 = 10 End Function
Ton code deviendra alors

Code:

Totaux = SousTotalP1() + SousTotalP2()

Rebonjour,

ça marche toujours pas,

Voilà les trois fonctions modifiées

Code:

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
 
 
Function SousTotalP1() As Double
Dim Tablo As Variant, Totaux() As Double, Total As Double, somme As Double
Dim TabloC As Variant, TabloD As Variant
 
    Tablo = Array( _
                101, 104, 105, 106, _
                11, _
                12, _
                13, _
                14)
 
 
    For i = 0 To UBound(Tablo)
        ReDim Preserve Totaux(i)
        Totaux(i) = ResultPassif(CStr(Tablo(i)))
    Next i
    For i = 0 To UBound(Totaux)
        Total = Total + Totaux(i)
    Next
 
    MsgBox ("le total1 est : " & Total)
 
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Function SousTotalP2() As Double
Dim Tablo As Variant, Totaux() As Double, Total As Double, somme As Double
Dim TabloC As Variant, TabloD As Variant
 
    Tablo = Array( _
                151, 153, 155, 157, 158)
 
    For i = 0 To UBound(Tablo)
        ReDim Preserve Totaux(i)
        Totaux(i) = ResultPassif(CStr(Tablo(i)))
    Next i
    For i = 0 To UBound(Totaux)
        Total = Total + Totaux(i)
    Next
 
    MsgBox ("le total2 est : " & Total)
 
End Function

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub TotalP()
 
    Dim Totaux() As Double
 
    Totaux = SousTotalP1() + SousTotalP2() 
 
    MsgBox ("le total Passif : " & Totaux)
 
End Sub

Voila. Sinon merci pour vos réponses ;)

re
tes fonctions complétées

Code:

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
Dim Tablo As Variant, Totaux() As Double, Total As Double, somme As Double
Dim TabloC As Variant, TabloD As Variant
 
    Tablo = Array( _
                101, 104, 105, 106, _
                11, _
                12, _
                13, _
                14)
 
 
    For i = 0 To UBound(Tablo)
        ReDim Preserve Totaux(i)
        Totaux(i) = ResultPassif(CStr(Tablo(i)))
    Next i
    For i = 0 To UBound(Totaux)
        Total = Total + Totaux(i)
    Next
    SousTotalP1 = Total
    MsgBox ("le total1 est : " & SousTotalP1)
 
End Function
 Function SousTotalP2() As Double
Dim Tablo As Variant, Totaux() As Double, Total As Double, somme As Double
Dim TabloC As Variant, TabloD As Variant
 
    Tablo = Array( _
                151, 153, 155, 157, 158)
 
    For i = 0 To UBound(Tablo)
        ReDim Preserve Totaux(i)
        Totaux(i) = ResultPassif(CStr(Tablo(i)))
    Next i
    For i = 0 To UBound(Totaux)
        Total = Total + Totaux(i)
    Next
    SousTotalP2 = Total
    MsgBox ("le total2 est : " & SousTotalP2)
 
End Function
 Sub TotalP()
 
    Dim Totaux As Double
 
    Totaux = SousTotalP1() + SousTotalP2()
 
    MsgBox ("le total Passif : " & Totaux)
 
End Sub

tiens nous au courant

23/05/2008, 14h41
ririrourou
merci c'est nikel :D:D:D sinon en fait au lieu d'écrire
Code:

1 2 Totaux = SousTotal1() + SousTotal2() + ...
J'aurais bien aimé faire
Code:

1 2 3 For i = 0 To ... Totaux =SousTotal & i 'ou un truc du genre
Tu pourras m'aider? parce que je dois le faire le plus générique possible comme ça je pourrais ajouter autant de SousTotaux que je veux

Mais sinon pour la modif c'était exactement ce que je cherchais :D

Encore une fois merci :):):):)

essaie si ça te convient

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub TotalP()
 Dim tabSousTotaux As Variant
 tabSousTotaux = Array(SousTotalP1(), SousTotalP2())
 
    Dim Totaux As Double
     For i = LBound(tabSousTotaux) To UBound(tabSousTotaux)
     Totaux = Totaux + tabSousTotaux(i)
     Next i
    'Totaux = SousTotalP1() + SousTotalP2()
 
    MsgBox ("le total Passif : " & Totaux)
 
End Sub

23/05/2008, 15h08
ririrourou
oui c'est ce que je mettais au début et ca marche bien mais est ce que je pourrais pas avoir une méthode qui me calcule combien de SousTotaux j'ai, genre:
Code:

1 2 3 4 For i = 0 To Ubound(je c'est pas) ReDim Preserve Tab(i) Tab = Array(SousTotal & i())
Merci d'avance
23/05/2008, 15h20
fred65200

re

à part écrire une macro qui va compter tes fonctions qui commence par "SousTotalP" dans VBA, je ne vois pas.
Et ça commence à devenir l'usine à gaz.
@+
23/05/2008, 16h15
ririrourou

re,

oui t'as tt à fait raison :( une vraie usine à gazz :?:?:?:?:? merci en tt cas :D tu m'as suffisament aidée :):):):):)

et voilà, largement inspiré d'une macro de J Walkenbach

Recopie tout le code dans un module
Fonctionne ici pour Module1
Cette macro compte les fonctions qui commence par "SousTotalP" , les lance et ajoute le résultat de chacune à Totaux.
Tes fonctions doivent toutes être dans le même module

Tu dis

Code:

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
84
85
'IL FAUT COCHER LA RÉFÉRENCE
'Microsoft Visual Basic for Application Extensibility
Dim Total As Double
Dim Totaux As Double
Sub TotalP()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
        Dim LineNum As Long
        Dim NumLines As Long
        Dim WS As Worksheet
        Dim Rng As Range
        Dim ProcName As String
        Dim ProcKind As VBIDE.vbext_ProcKind
 
 
        Set VBProj = ActiveWorkbook.VBProject
        Set VBComp = VBProj.VBComponents("Module1")
        Set CodeMod = VBComp.CodeModule
 
        With CodeMod
            LineNum = .CountOfDeclarationLines + 1
            ProcName = .ProcOfLine(LineNum, ProcKind)
            Totaux = 0
 
            Do Until LineNum >= .CountOfLines
 
                If Left(ProcName, 10) Like "SousTotalP" Then
                    Application.Run ProcName
                    Totaux = Totaux + Total
                End If
 
                LineNum = LineNum + .ProcCountLines(ProcName, ProcKind) + 1
                ProcName = .ProcOfLine(LineNum, ProcKind)
            Loop
        End With
        MsgBox "Totaux = " & Totaux
        Set VBProj = Nothing
        Set VBComp = Nothing
        Set CodeMod = Nothing
    End Sub
Function SousTotalP1() As Double
Dim Tablo As Variant, Totaux() As Double, somme As Double ', Total As Double
Dim TabloC As Variant, TabloD As Variant
  Total = 0
 
    Tablo = Array( _
                101, 104, 105, 106, _
                11, _
                12, _
                13, _
                14)
 
 
    For i = 0 To UBound(Tablo)
        ReDim Preserve Totaux(i)
        Totaux(i) = ResultPassif(CStr(Tablo(i)))
       ' Totaux(i) = CStr(Tablo(i))
    Next i
    For i = 0 To UBound(Totaux)
        Total = Total + Totaux(i)
    Next
    SousTotalP1 = Total
    MsgBox ("le total1 est : " & SousTotalP1)
 
End Function
 Function SousTotalP2() As Double
Dim Tablo As Variant, Totaux() As Double, somme As Double ', Total As Double
Dim TabloC As Variant, TabloD As Variant
 Total = 0
    Tablo = Array( _
                151, 153, 155, 157, 158)
 
    For i = 0 To UBound(Tablo)
        ReDim Preserve Totaux(i)
        Totaux(i) = ResultPassif(CStr(Tablo(i)))
      '  Totaux(i) = (CStr(Tablo(i)))
    Next i
    For i = 0 To UBound(Totaux)
        Total = Total + Totaux(i)
    Next
    SousTotalP2 = Total
    MsgBox ("le total2 est : " & SousTotalP2)
 
End Function

C'est assez générique?

23/05/2008, 16h49
ririrourou
Je pense que c'est assez générique pour moi mais tu seras ce que je dois ajouter parce ça se compile pas pour moi: on me donne une erreur au niveau de la définition de VBProj :roll::
Code:

1 2 Dim VBProj As VBIDE.VBProject
voila le message d'erreur: "Type défini pas l'utilisateur non défini"

Et puis pour: 'il faut cocher la référence

Ca veut dire quoi au juste :oops:
23/05/2008, 16h51
fred65200
as tu coché la référence
Code:

1 2 'IL FAUT COCHER LA RÉFÉRENCE 'Microsoft Visual Basic for Application Extensibility
Dans VBA outil / Références
http://www.fcbat.com/temp/R%C3%A9f.JPG
@+
23/05/2008, 17h08
ririrourou
:oops::oops::oops: effectivement fallait cocher cette case mais bon ... :oops: par contre j'ai tuoujours des erreur :roll: il arrive pas a trouver la fonction SousTotal1 :(:(:(:(:(:(:( le bug est à ce niveau
Code:

1 2 3 4 5 If Left(ProcName, 10) Like "SousTotalP" Then Application.Run ProcName Totaux = Totaux + Total End If
:roll::roll::roll::roll::roll::roll::roll:
24/05/2008, 10h25
fred65200

bonjour,

les premières fonctions étaient nommées
SousTotalP1 et SousTotalP2 et pas SousTotal1 et SousTotal2. Tu vérifies.

Cest fonctions sont elles dans Module1, si ce n'est pas le cas, as tu modifié le nom du module dans le code?

Code:

If Left(ProcName, 10) Like "SousTotalP" Then

SousTotalP ne contient que 9 caractères.

Code:

If Left(ProcName, 9) Like "SousTotalP" Then

@+
28/05/2008, 17h11
ririrourou
Bonjour,

d'abord dsl de ne pas pouvoir répondre immédiatement mais j'avais un soucis sur mon PC, en effet les fonction sont bien dans le module1 et j'utilise effectivement les fonction commençant pas SousTotalP l'autre jour j'avais juste fait une erreur de frappe. Malheureusement, j'ai toujours un problème dans la compilation mnt mon erreur se situe exactement ici
Code:

1 2 Set VBProj = ActiveWorkbook.VBProject
le message qu'on m'affiche est le suivant:
Erreur d'éxécution '1004'
L'accès par programme au projet Visual Basic n'est pas fiable
28/05/2008, 17h43
fred65200

:cry:

quel est le niveau de sécurité de ton classeur?
@+
29/05/2008, 08h49
ririrourou

Bonjour,

Ben on m'a toujours conseiller de le mettre au niveau élevé :roll:
31/05/2008, 11h42
fred65200

Bonjour avec un peu de retard,
as tu essayé ta macro en changeant le niveau de sécurité?
Tiens nous au courant.
@+
03/06/2008, 10h20
ririrourou

bonjour,

Effectivement j'ai changé le niveau de sécurité mais ca me donnetuoujours des bug :cry:

bonjour fred65200,

l'autre jour tu m'as dit qu'on peut jamais appeler une sub dans une autre alors comment peut t'en au même tps exécuter une fonction et pouvoir l'appeler dans une autre aussi.

Voir 40 message(s) de cette discussion en une page