Voila mon problème, après avoir demandé de l'aide hier sur ce forum j'ai réussi à faire quelque chose qui me convient à peu près mais il me reste un problème que je n'arrive pas à résoudre voila mon code :

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
Private Sub BoutonMesure_Click()
Dim i As Integer
 
    If i = 10 Then i = 0              ' On vérifie que l'on a pas dépassé les 10 textbox, sinon on passe au premier
    Text(i).Text = MSCommCAN.Input    ' On écrit dans le Text(i) le résultat de la mesure
    Text(i).BackColor = vbWhite       'pour remettre le backcolor en blanc
    i = i + 1
 
End Sub
 
Private Sub BoutonCommande_Click()
Dim i As Integer
 
    MSCommCAN.Output = Text(i).Text
    Text(i).BackColor = vbGreen    'pour mettre en vert le backcolor losque la donnée est envoyée
    i = i + 1
 
 End Sub
En fait quand ce que je veut c'est que j'appui sur le bouton mesure, j'ai la mesure qui s'affiche dans le text box 1 puis je fais commande je l'envoie le textbox1 devient vert puis je fais une nouvelle fois mesure, une seconde mesure s'affiche dans le text box 2 puis je l'envoi etc et cela pour 10 textbox.
Mais la avec ce programme, le textbox1 s'éfface à chaque fois et ne passe pas au textbox2.

Merci d'avance pour vos réponses