Discussion :

[Pierrot_Bricolo]

Bonjour à tous et à toutes,

Dans le cadre d'un projet pro/personnelle, je dois développer un petit programme en VBA me permettant d'envoyer des données depuis ma page excel à un CNA [Convertisseur Analogique Numérique].

Je suis arrivé à établir la COM sans problème (point par point), mais mes connaissances Visual Basic étant "limité", je n'arrive pas à créer un programme me permettant d'envoyer mes points ligne par ligne (A1,A2, A3 ...) automatiquement toutes les 2 secondes.
Celà implique:
-un bouclage avec incrémentation
-une tempo
- et peu être autre chose ...

Je vous joint mon prog défaillant:

Sub CommandeButton74_Click() 'Bouton de lancement
Dim nbres_points As Integer
Dim data_out As Integer

While nbres_points <=500 'Bouclage réalisé 500 fois
data_out = range ("F17") + nbres_points 'affectation des cellules souhaitées
retour = TCUSB18A_AnaOut(1,1,data_out) 'Envoie des points via data_out
Call tempo(1) 'Lancement tempo
nbre_points = nbres_points + 1 'incrémentation pour bouclage
retour = TCUSB18A_Refresh(1) 'neccessaire à la COM
Wend
End Sub


Sub tempo(pause)
Start = timer
Do While timer <Start + pause
DoEvent
Loop
End Sub

Lorsque je lance le détail pas-à-pas, le fonctionnement semble correcte, mais il n'en est rien ...
Je peux seulement envoyer un seul point via la cellule F17.

Une idée ?

Merci d'avance !!!

Pierrot

[el_slapper]

à poster sur le forum VBA pour excel, alors.

Et il faudra préciser ce que tu attends de data_out. Là, tu prends la valeur du contenu de F17, et tu y ajoutes ton compteur. Ton problème est probablement là. Si ce que tu veus est envoyer les contenus des cellules F17 à F517, il faudra un code du genre :

Code :

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

1
2
3
4
Dim NomCellule as String
....................
NomCellule = "F" & 17 + nbres_points
data_out = range (NomCellule)

Sinon, il faut que tu nous explique ce que tu veux faire.....dans le bon forum.