le controle timer?

Question

bonjour &#224; tous,

voil&#224;, je debute et je voudrais mettre une timer c'est &#224; dire que je veux que mon application soit activer pendant un certain laps de temps bien defini et j'ai cherch&#233; sur le net j'ai trouv&#233; qu'il faut utiliser le controle timer cependant j'ai regard&#233; dans mes controles et je ne l'ai pas j'ai essay&#233; d'ajouter tous les controle disponible et j'ai plein de chose mais pas de timer alors si quelqu'un sais d'o&#249; ca vien et ce que je dois faire m'aiderai beaucoup.
j'utilise la macro word qui m'ouvre microsoft visual basic 6.3 et j'ai microsoft forms 2.0 pour les controles basic.
svp aidez-moi
je vous remercie

cs_69chris · Answer

Salut,



C&#244;t&#233; macro de base, j'ai utilis&#233; "Application.OnTime" pour r&#233;aliser une action cyclique sous Excel XP.

Ca dois coller chez toi.



Bon code,

Chris

ahmeddu57070 · Answer

merci, pour ton aide, mais la j'ai un nouveau probleme il me dit sub
non d&#233;fini, en fait je pense kon doit declarer les sub quelque part
mais je ne sais pas

cs_69chris · Answer

Pas besoin de d&#233;clarer les Sub comme on peut le faire dans un fichier h pour C++.

C'est plut&#244;t que ta macro est dans un classeur et que tu l'appelle dans un autre (classeur).

C&#233;rifie l'endroit (le classeur/fichier) auquels sont ratach&#233; tes macros.



Chris

ahmeddu57070 · Answer

je n'ai pas tout compris (classeur?)
je n'utilise qu'une seule macro peut etre ke je devrai en utiliser une autre voila mon code dis moi ce ke tu en pense

Private Sub CommandButton1_Click()
.......(je t'epargne des ligne )

If E = 0 Then
Dim value As Long


value1 = bit1_trame + 2 * bit1_nbech + 4 * bit1_longueur + 8 * bit1_retard
value2 = bit2_trame + 2 * bit2_nbech + 4 * bit2_longueur + 8 * bit2_retard
value3 = bit3_trame + 2 * bit3_nbech + 4 * bit3_longueur
value4 = bit4_trame + 2 * bit4_nbech + 4 * bit4_longueur
value5 = bit4_trame
value6 = bit4_trame
value7 = bit4_trame
value8 = bit4_trame


Label11 = value1
Application.OnTime Now + TimeValue("00:00:01"), "envoyer"
End If
End Sub


Private Sub envoyer()
If Label11 = value1 Then
Label11 = value2
Application.OnTime Now + TimeValue("00:00:01"), "envoyer"
ElseIf Label11 = value2 Then
Label11 = value3
Application.OnTime Now + TimeValue("00:00:01"), "envoyer"
.......


End If
End Sub

lorsque je l'execute il s'arrette sur private sub envoyer il me dis sub non definie
je ne sais pas quoi faire

cs_69chris · Answer

Bascule ta m&#233;thode envoyer en Public au lieu de Private.

Pour le classeur, d&#233;sol&#233;, c'&#233;tait plut&#244;t doc word. Je suis &#224; fond sur XL en se moment.

Le controle timer?

5 réponses

Discussions similaires