Discussion :

[Emcy]

bonjour,

J'ai dans excel, une colonne replie de valeurs écrites en hexadecimal (sur deux caractères)
Ex :
cellule A1 = 01
cellule A2 = C1
cellule A3 = CE
...

J'ai des fonctions écrites en langage C qui me permettent de calculer un checksum

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
// fonctions de calcul de checksum
 
unsigned int I2C_CRC;
 
// initialise la fonction de checksum
void CRC_Init(void){
	I2C_CRC = 0xFFFF;
}
 
// ajoute un octet au calcul du checksum
void CRC_AddByte(unsigned char myVal){
	unsigned char j, myflag;
 
	I2C_CRC ^= (unsigned int)(myVal); // XOR
 
	for (j=0; j<8; j++) {
		myflag = (I2C_CRC & 0x0001); //On récupère le dernier bit
		I2C_CRC >>= 1; // décalage 1 coup a droite
		if (myflag){
			I2C_CRC ^= 0xA001; // si le dernier bit vaut 1 -> on fait un Xor avec 0xA001
		}
	}
}
 
// récupère la valeur du CRC en cours
unsigned int CRC_Get(void){
	return I2C_CRC;
}

Mon checksum est compris entre 0 et 65535 (0x0000 et 0xFFFF)

1- j'initialise le checksum en lançant la fonction CRC_Init()
2- j'ajoute mes éléments en utilisant la fonction CRC_AddByte(maValeur)
3- je recupère la valeur de mon checksum en lançant la commande CRC_Get()
=> comment faire pour traduire cette fonction en VBA (je ne vois pas comment faire les opérations logiques (xor), les conversions en hexa et la limitation sur 16 bits de la valeur du checksum en VBA) ?

[Pierre Fauconnier]

Bonjour

je vois deux solutions:

1. Créer une dll en C avec ces fonctions, référencer la dll dans le projet VBA Excel et utiliser les fonctions de la dll via DECLARE ...

2. Réécrire les fonctions (ce qui me semble plus simple)

Si solution 2, peux-tu détailler ce que tu souhaites réaliser, car la lecture du C me pose quelques problèmes

[Emcy]

J'ai besoin de :
1- convertir une chaine représentant un nombre hexa (2 digits) en nombre décimal (la valeur est mise dans une variable de type integer)
2- comment fait-on pour travailler sur des variables de 16 bits
3- faire un ou exclusif entre deux nombres codés sur 16 bits => nbr1 xor nbr2 à l'air de marcher mais je voudrais la confirmation car en vba je ne sais pas du tout comment sont codées les variables
4- faire un masque (dans mon cas je veux récupérer le bit de poid le plus faible)
5- faire un décalage de bit vers la droite => une division par puissance de 2 devrait suffire mais n'y a t-il pas plus simple/rapide ?

[Lou Pitchoun]

Salut,

Pour la conversion en hexadécimal, regarde dans la FAQ VB.

Pour le décalage (qui n'existe pas à ma connaissance en VB/VBA), il va te falloir utiliser du Left et du Right pour effectuer le décalage.

du genre :

Code :

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

I2C_CRC = Right(I2C_CRC, 1) & Left(I2C_CRC, 7)

Tu prends la partie de droite (taille : 1 caractère = valeur du décalage) et tu la concatène avec la partie de gauche (ex : longueur 8 - le décalage)

Pour le Xor :

Code :

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

I2C_CRC = I2C_CRC Xor myVal

J'ai tenté une conversion de ton code : mais il y a quelque chose qui m'échappe

Une dernière chose : pour te servir de ta fonction, pour reprendre ton exemple,

cellule A1 = 01 cellule B1 = "=NomFonction(A1)"
cellule A2 = C1 cellule B2 = "=NomFonction(A2)"
cellule A3 = CE cellule B3 = "=NomFonction(A3)"

[Emcy]

pour le decalage de bit je crois que tu n'as pas compris : je veux faire un decalage de bit sur un nombre et non pas un caractère

ex:
myVal = 017E (valeur hexa) => 0000 0001 0111 1110 (en binaire)
décalage de 1 bit vers la droite de myVal = 0000 0000 1011 1111 => 00BF (valeur hexa)

j'ai fait une focntion de decalage de 1 bit vers la droite mais ça fait n'importe quoi :

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
Function Hex2Dec(hex As String) As Long
    Hex2Dec = Val("&h" & hex)
End Function
 
 
 
Sub test()
    Dim myVal1 As Long
    Dim myVal2 As Long
 
    myVal1 = Hex2Dec("DFDF")
    myVal2 = myVal1 / 2 'decalage de 1 bit vers la droite correspond normalement a faire une division par 2
 
    'résultat du decalage de 1 bit vers la droite de DFDF
    MsgBox (hex(myVal1) + " >> 1 = " + hex(myVal2))
End Sub

=> je devrais avoir normalement comme résultat 6FEF

[Pierre Fauconnier]

Un décalage de 1 bit vers la droite sans report revient à diviser par 2, il me semble, donc pas besoin de fonction. Me trompé-je?

[Emcy]

Un décalage de 1 bit vers la droite sans report revient à diviser par 2, il me semble, donc pas besoin de fonction. Me trompé-je?

ben normalement oui mais dans mon cas ça ne marche po (deja la fonction de conversion hexa => decimal fonctionne bizarrement)

[Pierre Fauconnier]

Pas top d'utiliser hex en paramètre dans ta fonction ,car hex est déjà une fonction

Pas besoin de fonction, sauf pour la clarté du code

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
Dim ValeurHex As String
Dim ValeurRetourHex As String
 
ValeurHex = "FE"
 
'Decalage de 1 bit vers la droite
ValeurRetourHex = Hex(("&h" & ValeurHex) / 2)
MsgBox ValeurRetourHex

[Emcy]

pour m'affranchir des problèmes de conversion hex => dec, j'ai mis directement la valeur en decimal mais on peut voir que le decalage ne fonctionne toujours pas :

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
Sub test()
    Dim myVal1 As Long
    Dim myVal2 As Long
 
    Dim myStr1 As String
    Dim myStr2 As String
 
    'myVal1 = CLng(Hex2Dec("DFDF"))
    myVal1 = 57311
    myStr1 = hex(myVal1)
 
    myVal2 = myVal1 / 2
    myStr2 = hex(myVal2)
 
    'résultat du decalage de 1 bit vers la droite de DFDF
    MsgBox (myStr1 + " >> 1 = " + myStr2)
End Sub

=> si je ne me trompe pas, je devrais normalement avoir comme résultat 6FEF