Appel de Function

Version imprimable

Appel de Function

Bonjour à tous

Un petit problème à régler. je dois appeler la Function ci-après mais je ne sais pas ce que je dois lui passer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Modulo10(ByVal StrNbre As String) As Integer
 
Dim modTable(0 To 9) As Integer
Dim modReport As Integer
Dim modSerie As Integer
 
    modTable(0) = 0: modTable(1) = 9
    modTable(2) = 4: modTable(3) = 6
    modTable(4) = 8: modTable(5) = 2
    modTable(6) = 7: modTable(7) = 1
    modTable(8) = 3: modTable(9) = 5
 
    For modSerie = 1 To Len(StrNbre)
        modReport = modTable((modReport + Mid(StrNbre, modSerie, 1)) Mod 10)
    Next
 
    Modulo10 = (10 - modReport) Mod 10
 
 
End Functio

n

Merci pour votre aide
@++
gic

14/07/2015, 10h38
curt
Bonjour Cretgil,

tu peux essayer ça :
Code:

1 2 3 4 5 Sub appel() Cells(1, 2) = Modulo10(Cells(1, 1)) End Sub
Ta valeur est en A1, tu lances la macro Appel (en passant par F8) et le résultat est en A2

Curt
14/07/2015, 15h13
PipoWIL
Bonjour,

ta function Modulo10 réclame un argument.
L'argument, c'est ce qu'il y a entre les parenthèses.

Code:

Function Modulo10(argument_ici) As Integer

Le nom de ton argument, c'est strNbre
ton informaticien a défini cette variable comme étant une chaîne de caractères.

Code:

As String

Le résultat de ta function sera un nombre entier

Code:

As Integer

donc, tu peux faire ce test
Code:

1 2 3 4 5 Function test() Dim strNbre As String strNbre = "56" Debug.Print Modulo10(strNbre) End Function
qui t'affiche dans la fenêtre immédiate (CTRL-G) ton résultat (tu pourrais avoir des surpirses...)
03/08/2015, 09h47
cretgil

Bonjour,

Merci pour ta réponse PipoWIL mais il me met comme msg d'erreur Tableau attendu ??

C'est du access vba et je n'utilise pas Excel

Merci pour votre aide
03/08/2015, 10h30
PipoWIL

Bonjour,

ce message d'erreur ne concerne pas l'appel de la fonction.
Le message d'erreur concerne la ligne surlignée en jaune.
Quand le message d'erreur apparaît à l'écran, clique sur DEBUG.
As-tu la ligne

Code:

Dim modTable(0 To 9) As Integer

surlignée en jaune ?

Si oui, alors change la en ceci

Code:

Dim modTable(9) As Integer

Tu définis ainsi un tableau de 10 valeurs (de 0 à 9). Ces dix valeurs sont des nombres entiers.
04/08/2015, 09h47
cretgil

Bonjour
Merci pour votre aide j'ai pu résoudre mon problème
J'avais une déclaration de variable qui avait le même nom que la fonction appellée.