Macro complémentaire - fonction avec argument

**larryj** · 10/05/2010, 09h34

Bonjour à tous,

Tout d'abord, merci pour ce forum et ces tutoriels qui me sont d'une grande aide au quotidien.

Nous cherchons à regrouper toutes les fonctions Excel que l'entreprise utilise afin centraliser la "source" des fonctions et ainsi améliorer la maintenabilité et l'évolutivité des documents Excel.
Je me suis tout de suite tourné vers les macros complémentaires seulement, j'ai un problème !

Après avoir implémenté les fonctions dont j'avais besoin, j'ai généré une macro complémentaire. Le problème est que lorsque je veux utiliser cette macro complémentaire (fonction dans une cellule), Excel me dit que "Cette fonction ne prend pas d'argument." alors que toutes les fonctions que j'ai développé en possède.

Déclaration de mes fonctions :

Code :

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

1
2
3
4
5
6
 
Public Function GetWeek(quand) As String
Public Function GetDate(quand As String) As Date
Public Function WeekDifference(Date1 As String, Date2 As String) As Integer
Public Function DateDiffrence(Date1 As String, Date2 As String) As Integer
Public Function WeekAdd(Ref As Integer, Number As Integer) As Integer

Est-ce que ce problème vient d'une mauvaise déclaration de mes fonctions ? Comment faire pour qu'Excel reconnaisse les arguments de mes fonctions ?

Merci d'avance pour vos conseils...
Larry

**gocho** · 10/05/2010, 11h12

ta premiere fonction est celle qui pose problème ?
Ton paramètre n'est pas typé puisque la parenthese est fermée juste après.

**larryj** · 10/05/2010, 11h19

J'ai modifié la déclaration de ma fonction, pas de changement. Excel me donne le message d'erreur (Cette fonction ne possède pas d'argument) pour toute mes fonctions de la macro complémentaire.

**aalex_38** · 10/05/2010, 14h56

Il faudrait que tu nous en montres plus car les macro complémentaires ne sont normalement pas différentes.

Tous les test que j'ai fait fonctionnent

Exemples :

Code :

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

1
2
3
4
5
6
7
Public Function test4(ByVal toto As String) As String
test4 = "Le résultat est " & toto
End Function
 
Public Function GetWeek(quand) As String
GetWeek = quand + 5
End Function

**larryj** · 10/05/2010, 15h06

Voici le code complet de ma macro complémentaire :

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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
Option Explicit
 
Public Function GetWeek(ByRef quand As Range) As String
 
    Dim NumWeek As String
    Dim NumYear As Integer
 
    'Numéro de semaine de la date passée en paramètre
    '   semaine 1 = première semaine comportant 4 jours du mois de janvier
    NumWeek = Format(DatePart("ww", quand.Value, vbMonday, vbFirstFourDays), "00")
 
    'Soustrait 4 jours à la date passée en paramètre si la semaine n'est pas la première semaine de l'année
    '   permet de bien prendre le numéro de l'année précédente si la semaine appartient à l'année précédente
    If Val(NumWeek) > 1 Then quand = quand - 4
 
    'Numéro de l'année
    NumYear = DatePart("yyyy", quand, vbMonday, vbFirstFourDays)
 
    'Formate le numéro d'année en fonction de sa valeur
    If Val(NumYear) < 2010 And Val(NumYear) >= 2000 Then
        NumYear = Format(Val(Right(NumYear, 1)), "0")
    Else
        NumYear = Format(Val(Right(NumYear, 2)), "00")
    End If
 
    GetWeek = NumYear & NumWeek
 
End Function
 
Public Function GetDate(quand As String) As Date
 
    Dim Week As Integer
    Dim Year As Integer
 
    Dim Result As Date
 
    Week = Val(Right(quand, 2))
    Year = Val(Left(quand, Len(quand) - 2))
 
    'Ajoute les miliers pour trouver la bonne année
    If Year <= 90 Then
        Year = Year + 2000  '-----------------------------'
    Else                    '!!!!! BUG PREVU EN 2090 !!!!!'
        Year = Year + 1900  '-----------------------------'
    End If
 
    'Le premier janvier de l'année "Year"
    Result = CDate("01/01/" & Year)
 
    'Se rend au premier jour de la semaine 1 de l'année "Year"
    While DatePart("ww", Result, vbMonday, vbFirstFourDays) > 1
        Result = DateAdd("d", 1, Result)
    Wend
    While Weekday(Result, vbMonday) >= vbMonday
        Result = DateAdd("d", -1, Result)
    Wend
 
    'Ajoute le nombre de semaine "Week"
    Result = DateAdd("ww", Week - 1, Result)
 
    GetDate = Result
 
 
End Function
 
 
Public Function WeekDifference(Date1 As String, Date2 As String) As Integer
 
    Dim D1 As Date
    Dim D2 As Date
 
    D1 = CDate(GetDate(Date1))
    D2 = CDate(GetDate(Date2))
 
    WeekDifference = Int((D2 - D1) / 7)
 
End Function
 
Public Function DateDiffrence(Date1 As String, Date2 As String) As Integer
 
    Dim D1 As Date
    Dim D2 As Date
 
    D1 = CDate(Date1)
    D2 = CDate(Date2)
 
    'Se rend au premier jour de la semaine des deux dates
    While Weekday(D1, vbMonday) >= vbMonday
        D1 = DateAdd("d", -1, D1)
    Wend
    While Weekday(D2, vbMonday) >= vbMonday
        D2 = DateAdd("d", -1, D2)
    Wend
 
    DateDiffrence = Int((D2 - D1) / 7)
 
End Function
 
Public Function WeekAdd(Ref As Integer, Number As Integer) As Integer
 
    Dim Year As Integer
    Dim Year2 As Integer
    Dim Week As Integer
 
    Week = Val(Right(Ref, 2))
    Year = Val(Left(Ref, Len(Str(Ref)) - 3))
    Year2 = Year
 
    'Ajoute les miliers pour trouver la bonne année
    If Year2 <= 90 Then
        Year2 = Year2 + 2000  '-----------------------------'
    Else                    '!!!!! BUG PREVU EN 2090 !!!!!'
        Year2 = Year2 + 1900  '-----------------------------'
    End If
 
    If Week + Number > DatePart("ww", CDate("31/12/" & Year2), vbMonday, vbFirstFourDays) Then
        Week = 1
        Year = Year + 1
    ElseIf Week + Number <= 0 Then
        Week = DatePart("ww", CDate("31/12/" & Year2 - 1), vbMonday, vbFirstFourDays)
        Year = Year - 1
    Else
        Week = Week + Number
    End If
 
    Year = Year * 100
 
    WeekAdd = Year + Format(Week, "00")
 
End Function

Le problème ne viendrait pas de la macro en elle-même ?

**aalex_38** · 10/05/2010, 15h38

Déjà quelque chose d'étrange, pourquoi byref dans la première fonction, on s'attendrait plutot a byval non ?

De plus tu fais sur un range

Code :

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

quand = quand - 4

ce qui fait planter le code chez moi ( je fais du débogage pas à pas)

Mais pour ce qui est tu problème de paramètre, je ne l'ai pas chez moi ?!?

**larryj** · 10/05/2010, 15h49

Désolé, c'est un reste de tests que j'ai effectué... Donc oui, c'est bien un byval

**larryj** · 10/05/2010, 23h13

J'ai essayé de refaire la manip de chez moi et : ça marche !
Le problème ne vient donc pas de ma macro.

Quelqu'un a-t-il une idée ?

**larryj** · 11/05/2010, 13h20

J'ai trouvé la source de l'erreur. Il ne s'agissait en effet pas de la macro en elle-même mais des paramètres Excel. Il fallait approuvé la macro (via le centre de gestion de la confidentialité).

**aalex_38** · 11/05/2010, 14h10

ok, tu travailles avec excel 2007, c'est un blocage courant

Macro complémentaire - fonction avec argument [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager