Discussion :

[cretgil]

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 :

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
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

[curt]

Bonjour Cretgil,

tu peux essayer ça :

Code :

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

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

[PipoWIL]

Bonjour,

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

Code :

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

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 :

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

As String

Le résultat de ta function sera un nombre entier

Code :

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

As Integer

donc, tu peux faire ce test

Code :

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

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...)

[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

[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 :

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

Dim modTable(0 To 9) As Integer

surlignée en jaune ?

Si oui, alors change la en ceci

Code :

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

Dim modTable(9) As Integer

Tu définis ainsi un tableau de 10 valeurs (de 0 à 9). Ces dix valeurs sont des nombres entiers.

[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.