Base de temps

J'arrive à faire cela avec une base de temps d'une seconde mais en dixièmes c'est autre chose...

Cliquez pour agrandir...

valeurs 0 ou 1 à la cellule A1, à une fréquence donné par la valeur de A2.

Cliquez pour agrandir...

Option Explicit

Private Declare Function GetTickCount& Lib "kernel32" ()
 Sub info()
 Dim i As Integer, flip As Boolean, x As Integer
 Dim Ret&, debut&
    debut& = GetTickCount&
    For i = 1 To 10000
            'Get the tickcount
            Ret& = GetTickCount&
            [B1] = Str$(Ret& - debut&) & " millisecondes."
            flip = Not flip
            DoEvents ' ---rends la main aux évenements windows (clavier, interfaces applis)
            [A1] = flip * -1
            [B2] = i
            Application.Wait Now + (TimeValue("0:00:01") * [a2] / 1000)
            ' --------------absolument pas sûr de la durée acceptée par la fonction Wait
    Next
    [B3] = Str$((Ret& - debut&) / 1000) & " secondes."
End Sub

jbetoret à dit:

néné06, : Je n'ai pas fait de fichier encore car sa réalisation repose entièrement sur la problématique que je vous ai soumis. Mon projet est de faire défiler des cases à la fréquence donné par A1.
Merci encore.

Cliquez pour agrandir...

jbetoret à dit:

elle ne donne de résultats non linéaires avec mon PC.
Pour A2 = 1000, A1 change bien toutes les secondes. Mais c'est pareil avec A1 = 800 ou 700. Avec la valeur de 500 cela défile à toute vitesse.
Désolé mais je tiens à vous préciser que mon niveau en programmation est proche de 0.
Ce que je souhaite faire précisément est que à l'ouverture de ce fichier excel, la cellule A1 bascule de 0 à 1 et vice-versa à la fréquence donnée par la cellule A2 et cela sans interruption. Si on rentre 0 dans A2, A1 prend la valeur 0 et ne change plus.

néné06, : Je n'ai pas fait de fichier encore car sa réalisation repose entièrement sur la problématique que je vous ai soumis. Mon projet est de faire défiler des cases à la fréquence donné par A1.
Merci encore.

Cliquez pour agrandir...