Convertir une macro en fonction

Version imprimable

Bonjour,
Je cherche a convertir une macro en fonction.
Loin d'etre un pro de la programmation, j'aurai besoin d'un coup de main ...
La macro fonctionne, mais quand j'essaye de la convertir, j'ai une erreur "#valeur!"
Pour info, la macro calcul le CRC16 d'une table de caracteres.
Ci dessous le code "transformé"

D'avance, merci de votre aide !

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
'-------------------------------------------------
Public Function ModCRC(Buffer() As Variant) As Long
'-------------------------------------------------
 
Dim CRC1 As Variant
Dim J As Integer
Dim K As Long
Dim c As Long
Dim l As Long
 
Application.Volatile
 
CRC1 = &HFFFF ' init CRC
For l = 1 To UBound(Buffer) ' pour chaque mot (2 octets par mot)
    c = 1 ' init index colonne
    While c < 3
        CRC1 = CRC1 Xor Buffer(l, c)
            For J = 0 To 7 ' pour chaque bit dans l'octet
                K = CRC1 And 1 ' memorisation du bit de poid faible
                CRC1 = ((CRC1 And &HFFFE) / 2) And &H7FFF ' decalage à droite apres masquage du bit de poid faible
                If K > 0 Then CRC1 = CRC1 Xor &HA001
            Next J ' bit suivant
        c = c + 1
    Wend
Next l ' mot suivant
 
ModCRC = CRC1
 
End Function

26/09/2014, 18h40
Marc-L

Bonjour,

pour une fonction personnelle, il faudrait lui passer une plage de cellules (Range) …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
29/09/2014, 15h52
Didier_r

Mais avec un range, la plage de cellule est definie ... alors que je voudrai pouvoir passer une plage de taille variable ...
29/09/2014, 16h10
bboy-eazy
a moins que je dise grosse betise, la plage d'un range peut être aléatoire en mettant une variable par exemple i et mettre
Code:

1 2 for i=1 to 10 Sheets("feuil1").Range("b" & i)

Bonjour,

Je partirais sur quelque chose comme ça

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
'-------------------------------------------------
Public Function ModCRC(plageBuffer as Range) As Long
'-------------------------------------------------
 
Dim CRC1 As Variant
Dim J As Integer
Dim K As Long
Dim c As Long
Dim l As Long
Dim Buffer As Variant
 
Application.Volatile
 
Buffer = plageBuffer.Value
 
CRC1 = &HFFFF ' init CRC
For l = 1 To UBound(Buffer,1) ' pour chaque mot (2 octets par mot)
    c = 1 ' init index colonne
    While c < 3
        CRC1 = CRC1 Xor Buffer(l, c)
            For J = 0 To 7 ' pour chaque bit dans l'octet
                K = CRC1 And 1 ' memorisation du bit de poid faible
                CRC1 = ((CRC1 And &HFFFE) / 2) And &H7FFF ' decalage à droite apres masquage du bit de poid faible
                If K > 0 Then CRC1 = CRC1 Xor &HA001
            Next J ' bit suivant
        c = c + 1
    Wend
Next l ' mot suivant
 
ModCRC = CRC1
 
End Function

30/09/2014, 10h21
Didier_r

L'idee me paraissait bonne, mais j'ai le meme message d'erreur ( #valeurs ) :(