Discussion :

[Mat63]

Bonjour,

Je récupère des données en hexadécimal à travers une liaison série (un Arduino en l’occurrence).
Lorsque j'ai récupéré mes données dans le terminal je les copies et colles sous Excel.

J'ai réussi à faire ceci pour mettre en forme mes données sous forme de 2 colonnes.

Code :

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

1
2
3
4
5
Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Mes données sont espacés par des espaces, j'ai fais cette partie avec l'enregistrement automatique ça fonctionne et comme je n'y comprend rien je n'y touche pas pour l'instant.

Ensuite je cherche à connaitre mon nombre de ligne total au quelle je soustrais 1 pour avoir mon nombre de valeur (la première ligne ne compte pas). J'ai réussi grâce un tutoriel présent sur le forum.

Code :

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

1
2
DerniereLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
NombreDeValeur = DerniereLigne - 1

Les ennuis arrivent quand je dois convertir mes valeurs HEX en DEC je n'y arrive pas. La fonction HEX2DEC() n'est même pas reconnu...

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 mafonction()
 
Dim DerniereLigne As Long
DerniereLigne = 0
Dim NombreDeValeur As Long
NombreDeValeur = 0
 
 
DerniereLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
NombreDeValeur = DerniereLigne - 1
 
For i = 2 To NombreDeValeur
Range("C" & i).Select
ActiveCell.FormulaR1C1 = Application.WorksheetFunction.Hex2Dec("A" & i)
Next
 
End Sub

J'ai essayé ça mais ça ne donne rien du tout . Le VBA me semble super compliqué par rapport au C...

Je commence par du "simple" pour j'espère arriver à directement acquérir en temps réel dans Excel mes données en lisant directement sur le port série mais la ...

[Invité]

Bonsoir,
https://www.developpez.net/forums/d1...s/#post8134850

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
Public Function TxtHexa(T As String) As String
TxtHexa = Hex(Asc(CStr(T)))
If Len(TxtHexa) = 1 Then TxtHexa = "0" & TxtHexa
TxtHexa = UCase(TxtHexa)
End Function
Function TxtOctets(T) As Byte
Dim H, B, C
C = Right("00" & T, 2): H = UCase(Left(C, 1)): B = UCase(Right(C, 1))
If IsNumeric(H) = False Then H = Asc(H) - 55
If IsNumeric(B) = False Then B = Asc(B) - 55
TxtOctets = CInt(H) * 16 + CInt(B)
End Function
Sub test()
Dim txt As String, toto As String, H
toto = "Il était une fois" & vbCrLf & "1 prince charment qui venait du froid ! "
For i = 1 To Len(toto)
If txt = "" Then txt = TxtHexa(Mid(toto, i, 1)) Else txt = txt & " " & TxtHexa(Mid(toto, i, 1))
Next
Debug.Print txt
H = Split(txt, " ")
txt = ""
For i = 0 To UBound(H)
    If H(i) <> "" Then
        txt = txt & Chr(TxtOctets(H(i)))
    End If
Next
Debug.Print txt
End Sub

[Mat63]

Merci mais je ne comprend pas ce que fais le code... Je vais laisser tomber et faire ça manuellement .

[Invité]

bonjour,
ce code converti de l'HEX en DEC!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
MsgBox TxtOctets("A")
End Sub
Function TxtOctets(T) As Byte
Dim H, B, C
C = Right("00" & T, 2): H = UCase(Left(C, 1)): B = UCase(Right(C, 1))
If IsNumeric(H) = False Then H = Asc(H) - 55
If IsNumeric(B) = False Then B = Asc(B) - 55
TxtOctets = CInt(H) * 16 + CInt(B)
End Function

mais dans le poste précédant il fallait bien que je te montre que ça marchait! donc j'ai converti au préalable un texte en HEX!

texte que j'ai converti en HEX {toto = "Il était une fois" & vbCrLf & "1 prince charment qui venait du froid ! "}