Discussion :

[adamgg]

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 :

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
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

[Fvandermeulen]

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

[adamgg]

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

[letienne]

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

[Philippe PONS]

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,

[adamgg]

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