[VBA-E] Utilisation macros complémentaire xla

Version imprimable

10/04/2007, 13h43
EvaristeGaloisBis

bonjour
c'est ce que je cherche a faire également.
Intuitivement je faisais de la sorte : macro complémentaire, parcourir etc etc
mais il me refuse mes macros en disant qu'elles n'ont pas le format de macro complémentaire... alors que les macro tournent impeccablement bien...

Quid? comment puis je faire pour les mettre?
10/04/2007, 14h02
ouskel'n'or

Tu as réalisé tes macro dans un xls, c'est bien ça ?
Alors enregistre le fichier avec les seules macros (sans les données) sous le nom "NomDuFichier.xla"
Tu le places dans un endroit où tu as des chances de le retrouver ;) et ensuite, tu vas le chercher dans Excel -> Outils -> Macros complémentaires etc.
Là tes macros seront accessibles.
Tu peux aussi valider le fichier par soft. Regarde à AddIns dans l'aide.
Si tu as un souci, tu dis
A+

bon je pense que mon erreur vient de mon code...

j'ai mis dans mon xla un nouveau module (nommé toto.xla) avec de nombreuses fonctions (dont voici un extrait)

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
Function PASS(Optional iAnnee As Integer) As Double
If iAnnee = False Then iAnnee = Year(Now)
 
    Select Case iAnnee
        Case 2007: PASS = 32184
        Case 2006: PASS = 31068
        Case 2005: PASS = 30192
        Case 2004: PASS = 29712
        Case 2003: PASS = 29184
        Case Else: PASS = "Erreur"
    End Select
End Function
Function PMSS(Optional iAnnee As Integer) As Double
If iAnnee = False Then iAnnee = Year(Now)
    PMSS = PASS(iAnnee) / 12
End Function
 
Function TrancheA(dsalaire As Double, Optional iAnnee As Integer) As Double
    If iAnnee = False Then iAnnee = Year(Now)
    TrancheA = Min(dsalaire, PASS(iAnnee))
End Function
 
Function TrancheB(dsalaire As Double, Optional iAnnee As Integer, Optional bRetire As Boolean) As Double
    If iAnnee = False Then iAnnee = Year(Now)
    TrancheB = Min(dsalaire, 4 * PASS(iAnnee)) + (Not bRetire) * TrancheA(dsalaire, iAnnee)
End Function
 
Function TrancheC(dsalaire As Double, Optional iAnnee As Integer, Optional bRetire As Boolean) As Double
    If iAnnee = False Then iAnnee = Year(Now)
    TrancheC = Min(dsalaire, 8 * PASS(iAnnee)) + (Not bRetire) * TrancheB(dsalaire, iAnnee, True)
End Function
 
Function TrancheD(dsalaire As Double, Optional iAnnee As Integer) As Double
    If iAnnee = False Then iAnnee = Year(Now)
    TrancheD = dsalaire - TrancheC(dsalaire, iAnnee, True)
End Function
 
Function Min(d1 As Double, d2 As Double) As Double
    Min = d1 - (d1 > d2) * (d2 - d1)
End Function
 
Function Budget(rDonnees As Range, dTaux As Double) As Double
'si on n'entre pas des taux en pourcentage
    If dTaux > 1 Then dTaux = dTaux / 100
 
Budget = Application.WorksheetFunction.Sum(rDonnees) * dTaux
 
End Function
 
Function BudgetBrut(rDonnees As Range, dTauxA As Double, dTauxB As Double) As Double
'si on n'entre pas des taux en pourcentage
    If dTauxA > 1 Then dTauxA = dTauxA / 100
    If dTauxB > 1 Then dTauxB = dTauxB / 100
 
Budget = Application.WorksheetFunction.Sum(rDonnees) * dTaux
 
End Function

et quand je passe avec la méthode décrite plus haut j'ai un message d'erreur disant que je ne mets pas une macro complementaire valide.

je vais essayer la méthode des addsin, en esperant avoir plus de succes.

10/04/2007, 16h10
ouskel'n'or

Oui, sans aller plus loin, ça vient au moins de cette ligne

Citation:

If iAnnee = False Then iAnnee = Year(Now)

Tu déclares iAnnee comme un integer et tu l'utilises comme un boolean.
Mets plutôt

Code:

If iAnnee = 0 Then iAnnee = Year(Now)

Quoique je le déclarerais en variant
Tu testes ;)

Edit
J'ai regardé le reste de ton code. Si PASS ne dépasse pas 65536, ce sont des long, pas des doubles ;)
10/04/2007, 16h14
EvaristeGaloisBis

en fait le cast des variables est correct... et les portions de code aussi.
E, fait le test iAnnee =false signifie si la personne n'a rien mis pour iannee alors prends l'année en cours. (car iannee est un argument optionnel)

Je viens de refaire la manip une dernière fois et comme par hasard tout fonctionne. Il accepte mon code.
Malgré tout je n'arrive pas a comprendre ce qui n'allait pas avant.
Les lois de l'informatiques sont impénétrables.
10/04/2007, 16h15
ouskel'n'or

J'ai re-regardé ton code, un peu plus loin... Que veux-tu obtenir, là

Citation:

Function PMSS(Optional iAnnee As Integer) As Double
If iAnnee = False Then iAnnee = Year(Now)
......PMSS = PASS(iAnnee) / 12
End Function

Si tu as 2007/12, là tu vas avoir besoin d'un double... mais je ne sais pas si c'est vraiment 167,25 que tu souhaites obtenir...
Tu dis toujours :mouarf: