Discussion :

[Didier_r]

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 :

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

[Marc-L]

Bonjour,

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

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Didier_r]

Mais avec un range, la plage de cellule est definie ... alors que je voudrai pouvoir passer une plage de taille variable ...

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

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

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

[issoram]

Bonjour,

Je partirais sur quelque chose comme ça

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

[Didier_r]

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