Bonjour,
J'aurai grandement besoin d'aide étant novice en VBA, je n'arrive pas à quitter un petit programme que j'ai fait sans faire CTRL+PAUSE, si jamais quelqu'un vois une solution j'en serai très heureux !
Merci.
Ci dessous le code VBA :
Private Sub ToggleButton1_Click()
With ToggleButton1
Dim Auto As String
Dim i As Integer
'Si appuie sur Bp alors lancement de l'acquisition
If .Value = True Then
Auto = True
'Faire tant que auto = true
Do
' indique au contrôle qu'il doit lire 1 seul caractère
'ce caractère sert à repérer la stabilisation de la balance
NETComm1.InputLen = 1 'Ici
' Si lettre T alors reception des données
If NETComm1.InputData = "T" Then
.Caption = "Acquisition en cours"
'lecture sur le port des 8 1ers caractères et stockage dans la boite de dialogue et dans la feuille active
NETComm1.InputLen = 8
t = Timer + 2
Do Until Timer > t
Loop
'Recopie données recues dans cellule
Cells(18, 6) = NETComm1.InputData
'Affichage de l'heure de réception dans autre cellule
Cells(6, 6) = Format(Now, "dd/mm/yyyy-hh:nn:ss")
'Incrémentation pour N° bigbag
i = i + 1
'Recopie N° de bigbag + mois
Cells(14, 6) = i & " / " & Format(Now, "mm") & ".M"
'Vidange Buffer
NETComm1.InBufferCount = 0
End If
'Arrêt si appui sur BP Fin
If Bouton_Fin = True Then Exit Do
'Arrêt acquisition si appui de nouveau sur ToggleButton
Loop Until Auto = False
'ferme le port
NETComm1.PortOpen = False
Else
.Value = False
.Caption = "Attente Acquisition "
Bouton_Fin = True
End If
End With
End Sub