incrémentation et Timer

Bonjour,
Je souhaite incrémenter toute les seconde une variable i et ce afin de "capturer" une mesure faîte via un boitier de mesure.
Je n'arrive pas à réaliser cette incrémentation, il se trouve que pour l'instant mon programme ne remplis qu'une ligne et non chaque ligne.
Je penses que le problème vient ici du fait que l'incrémentation se fait uniquement indépendamment du timer.
Auriez-vous une solution pour lier la constante au timer ?
voici la partie de code concerné:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Timer1_Timer() ReDim temp_buffer(9) As Single Dim overflow_flag As Integer Dim i As Integer i = 25   If (tc08_handle > 0) Then If (Not in_timer) Then in_timer = True   ok = usb_tc08_get_single(tc08_handle, temp_buffer(0), overflow_flag, 0)   If (ok) Then Cells(4, "A").value = temp_buffer(0) Cells(4, "B").value = temp_buffer(1) Cells(4, "C").value = temp_buffer(2) Range("B4").Select Selection.Copy Cells(i, "A").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If in_timer = False End If End If   If tc08_handle > 0 Then Application.OnTime Now + TimeValue("00:00:01"), "Timer1_Timer", i = i + 1   End Sub

---

Merci d'avance de votre aide
Cordialement
Adam

Bonjour,

Si je comprends bien ton code...

A partir de la ligne 7 tu fais des tests pour "écrire" dans ta feuille mais l'incrémentation de ton i se fait dans un autre test (ligne 27) donc si le résultat de ces deux test est différent, ton i ne s'incrémente pas.

Dans des cas plus ou moins similaires, j'ai l'habitude d'incrémenter mes variables juste après l'écriture (concrètement, l'incrément du i je le mettrais avant le 'end if' de la ligne 22)

Fred

Oui j'avais pensé à ça aussi seulement quand je le fais le code n’exécute qu'une fois le l'incrémentation, du coup je n'ai qu'une valeur dans ma liste qui se met à jour toute les secondes.
Merci

Bonjour,

Visiblement la sub ne comporte pas de boucle, et le "i" incriminé étant une variable locale de cette sub, elle est réinitialisée à chaque exécution, sa valeur revient à 25 à chaque fois que la sub est appelée.

Il faut soit déclarer ce i à un niveau plus global, soit le passer en paramètre, soit carrément ne pas l'utiliser et chercher la première ligne vide à chaque fois, ou encore mettre une boucle.

Letienne

Bonjour,

si le problème c'est de garder la valeur de i lors des appels successifs à la procédure, il n'y a qu'à la déclarer en Static.
Mais bon, c'est peut être pas ça le problème!!
Cordialement,

Merci à vous deux, j'ai eut l'idée d'inscrire le nombre i dans une cellules ainsi le résultat est mis à jour et le tout défile!
Merci pour votre aide