Prnez un nouveau projet, celui-ci contient une feuille nommée Form1 ou Feuille1.
Placez la sous-routine "Pause" dans les déclarations générales de la feuille;
Source / Exemple :
Sub Pause (Byval nSecond As Single)
Dim t0 As Single
'temps de référence
0 = Timer
'boucle d'attente
Do While Timer - t0 < nSecond
Dim dummy As Integer
dummy = DoEvents()
'si on dépasse minuit,il faut
'retrancher un jour
If Timer <t0 Then
t0 = t0 - 24*60*60
End If
Loop
End Sub
(Placez le code suivant dans l'événement
Click de la feuille)
Sub Form_Click()
Print"Bonjour"
' délai de 2 secondes
Call Pause(2)
Print " tous le monde"
End Sub
Lancez l'application "Bonjour" s'affiche, et 2 secondes après s'affiche " tous le monde"
Conclusion :
Cette petite application vous est offerte par Langlade Informatique Club
http://perso.wanadoo.fr/langlade/
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.