Re Raja,
merci de t'attarder sur mon problème.
Je m'y prends surement mal car je n'ai pas trop l'habitude de manipuler de l'ASCII ou hexa...
Voilà mon code:
Range("B8").Value = nombre1.Value
Range("B8").Select
Selection.TextToColumns Destination:=Range("B8"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("C8").Select
Selection.TextToColumns Destination:=Range("C8"), DataType:=xlFixedWidth, _
OtherChar:=".", FieldInfo:=Array(Array(0, 1), Array(2, 1)), _
TrailingMinusNumbers:=True
Range("B8") = Application.Dec2Hex(nombre1.Value)
prefixe1 = Chr$(&HFE) + Chr$(&HFE) + Chr$(&H1) + Chr$(&HE0)
suffixe = Chr$(&HFD)
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
Else
End If
MSComm1.Output = prefixe1 + Chr$(&H5) + Chr$(&H0) + Chr$(&H0) + Chr$(&H0) + Chr$(&H Range("B8").Value) + suffixe
End Sub
Voilà en surligné c'est ce que je souhaiterais faire. En gros récupérer le nombre dans B8 et le convertir en hexa comme là. ou directement la valeur hexa mais je ne sais pas si cela fonctionnera.
Je te remercie de m'apporter tes lumières.
Cordialement,
Innuendo67