Discussion :

[mimic50]

Bonjour,
Je recherche des info sur la création de Thread en VBA Excel, sans succès pour le moment ! Donc est-ce possible ?
J'aimerais simplement avoir dans Excel la valeur d'une cellule qui change toutes les 10 secondes par exemple ...
Merci,

[ouskel'n'or]

Comment change-t-elle de valeur ? et sous quelle forme souhaites-tu récupérer cette valeur ?

[mimic50]

Elle change juste de valeur avec un random ...
La valeur est affichée dans une case, que diverses formules utilisent ...
Merci

[ouskel'n'or]

Tu as pensé à une tempo qui provoquerait une lecture toutes les 10 secondes ?

Autant pour moi, tu n'as pas parler d'affichage... Le principe de la tempo qui se relance elle-même reste valide

Le principe :

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
Sub TimerLancerMacroToutesLes10Secondes()
Dim ok As Boolean, HFin, msg
Dim chrono As Boolean
    HFin = Now + TimeValue("00:00:10")  'Sortie de boucle fixé à 10 secondes
    chrono = True
    JeFaisTourner "00:00:01", chrono
    Do    'Simule ton code
        Cells(1, 1).Value = Now 'modifie le contenu de Cells(1,1) 
        msg = "Continuer ? " & Int((HFin - Now) * 100000)
        ok = MsgBox(msg, vbYesNo, "POURSUIVRE LE DÉCOMPTE") = 6 'Interrompt la procédure mais pas JeFaisTourner
        ok = ok And Now < HFin
    Loop While ok  'Arrête dans tous les cas la procédure si temps est dépassé
    chrono = False
End Sub
'La boucle n'est là que pour simuler ton propre code
'Pour arrêter JeFaisTourner, suffit de mettre chrono = false
 
Sub JeFaisTourner(tps, chrono)
    'Relance la pendule (mise à jour de OnTime) toutes les (tps) secondes
    If chrono Then Application.OnTime Now + TimeValue(tps), "JeFaisTourner(tps)"
    LaVar = Cells(1,1) 'Lecture de ta cellule toutes les (tps) secondes
End Sub

Tu dis
A+

Edit
Si tu fais une fonction de JeFaisTourner, tu peux récupérer la valeur de la cellule

Code :

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

1
2
3
4
5
'Appel de la fonction
Résult = JeFaisTourner("00:00:01", chrono)
 
'Renvoie de la valeur
JeFaisTourner = Cells(1,1)

NB - Pour la démo j'ai fixé le tps à 1 seconde... si t'as pas vu