Sub BalanceEtRS232()
Dim Valeur As String, Poids As String
MSComm1.InBufferCount = 0 'Vider le buffer
MSComm1.CommPort = 1 'choisir un port série
'Balance 1200 bauds, parité, 7 bits de données, 1 bit d'arrêt
MSComm1.Settings = "1200,o,8,1"
'indique au contrôle qu'il doit lire 1 seul caractère
'ce caractère sert à repérer la stabilisation de la balance
MSComm1.InputLen = 1
MSComm1.PortOpen = True 'ouvre le port
'Boucle tant que le 1er caractère n'est pas un signe plus (+)
Do While MSComm1.Input <> "+": Loop
'lecture sur le port des 5 1ers caractères et stockage
'dans la boite de dialogue et dans la feuille active
MSComm1.InputLen = 11
T! = Timer: While Abs(Timer - T!) < 2: DoEvents: Wend
'load val et ferme le port
Valeur = MSComm1.Input
MSComm1.PortOpen = False
'
Poids = ""
For K% = 1 To Len(Valeur)
If IsNumeric(Mid(Valeur, K%, 1)) Then Poids = Poids & Mid(Valeur, K%, 1)
Next
Cells(1, 1) = Valeur
Cells(1, 2) = Poids
End Sub