Discussion :

[Averroes]

Bonjour,

je voudrais renvoyé d'une fonction un type personnalisé que j'ai défini en global dans le module.
Néanmoins, je m'heurte à une erreur.
Premièrement, es ce que c'est autorisé?
Deuxiemement, comment es ce qu'on peut le faire?

Cordialement,
Soufiene BEN SABEUR

[random]

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
 
Type montyp
montant As Currency
tranchea As Currency
trancheb As Currency
End Type
 
Function cretype(monmontant) As montyp
Dim tempo As montyp
tempo.montant = monmontant
If monmontant > 10000 Then
tempo.tranchea = 10000
tempo.trancheb = monmontant - 10000
Else
tempo.tranchea = monmontant
tempo.trancheb = 0
End If
cretype = tempo
End Function

debug.Print cretype(4125).trancheb

[Averroes]

Merci