Discussion :

[Robs68]

Bonjour,

Je souhaite faire un programme VBA sous excel permettant de capturer les informations émise par un MSP430 sur le port série (COM 4), puis dans un 2nd temps faire un graphique avec ces données.

J'ai essayé de suivre le tuto ici : http://cherbe.free.fr/rs232.html

Mais dès que je le lance, excel 2010 plante.

Est-ce que quelqu'un aurait-il une idée ?

Merci

[Robs68]

J'ai avancé un petit peu dans mon projet, j'arrive à avoir les données sous excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
MSComm1.InBufferCount = 0
MSComm1.CommPort = 4
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Dim tampon$
Do
  DoEvents
  tampon$ = tampon$ & MSComm1.Input
  Sheets("Feuil1").Range("A1") = tampon$
Loop Until InStr(tampon$, "OK" & vbCrLf)
MSComm1.PortOpen = False

Je voudrais savoir comment aller à la cellule du dessous à chaque donnée acquise svp ?


Merci

[PMO2017]

Bonjour,

Peut être un truc du genre

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
Private Sub CommandButton1_Click()
MSComm1.InBufferCount = 0
MSComm1.CommPort = 4
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Dim tampon$
 
'///
Dim R As Range
Set R = Sheets("Feuil1").Range("A1")
'///
 
Do
  DoEvents
  tampon$ = tampon$ & MSComm1.Input
 
  '///
  R = tampon$
  Set R = R.Offset(1, 0)
  '///
 
Loop Until InStr(tampon$, "OK" & vbCrLf)
MSComm1.PortOpen = False