userform apparait 10 secondes puis disparait

Le
Lionel
bonsoir a tous,

Est il possible de faire appraitre un userform durant 5 secondes (sur celui
ci apparait un decompte 5, 4,3,2,1,0)puis que celui ci disparaisse
j'avais fait ca mais cela ne fonctionne pas

Dim x, i, t As Long
t = 5
UserForm3.Label3.Caption = t
UserForm3.Show
For i = 1 To 5
x = t - i
Application.Wait (Now + TimeValue("0:00:01"))
UserForm3.Label3.Caption = x
Next i
UserForm3.Hide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #20357771
Bonsoir,
A défaut de mieux essaie ceci.
'-----------
Sub rebours()
Dim i As Integer
UserForm1.Label1.Caption = 5
UserForm1.Show
For i = 5 To 0 Step -1
UserForm1.Label1.Caption = i
Application.Wait (Now + TimeValue("0:00:01"))
DoEvents
Next
Unload UserForm1
End Sub
'------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200910/cijhmdDlLO.xls

--
Salutations
JJ


"Lionel" 4ad77934$0$985$
bonsoir a tous,

Est il possible de faire appraitre un userform durant 5 secondes (sur
celui
ci apparait un decompte 5, 4,3,2,1,0)puis que celui ci disparaisse
j'avais fait ca mais cela ne fonctionne pas

Dim x, i, t As Long
t = 5
UserForm3.Label3.Caption = t
UserForm3.Show
For i = 1 To 5
x = t - i
Application.Wait (Now + TimeValue("0:00:01"))
UserForm3.Label3.Caption = x
Next i
UserForm3.Hide




Lionel
Le #20364251
Merci

Mais je ne comprends pas pourquoi des que j'inclus le code dans mon fichier
ca ne fonctionnne plus...


"Jacky" news:
Bonsoir,
A défaut de mieux essaie ceci.
'-----------
Sub rebours()
Dim i As Integer
UserForm1.Label1.Caption = 5
UserForm1.Show
For i = 5 To 0 Step -1
UserForm1.Label1.Caption = i
Application.Wait (Now + TimeValue("0:00:01"))
DoEvents
Next
Unload UserForm1
End Sub
'------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200910/cijhmdDlLO.xls

--
Salutations
JJ


"Lionel" 4ad77934$0$985$
> bonsoir a tous,
>
> Est il possible de faire appraitre un userform durant 5 secondes (sur
> celui
> ci apparait un decompte 5, 4,3,2,1,0)puis que celui ci disparaisse
> j'avais fait ca mais cela ne fonctionne pas
>
> Dim x, i, t As Long
> t = 5
> UserForm3.Label3.Caption = t
> UserForm3.Show
> For i = 1 To 5
> x = t - i
> Application.Wait (Now + TimeValue("0:00:01"))
> UserForm3.Label3.Caption = x
> Next i
> UserForm3.Hide
>
>





Jacky
Le #20364431
Re..

Vérifie les propriétés de l'userform
Particulièrement "ShowModal" et mettre à False
--
Salutations
JJ


"Lionel" 4ad8d08e$0$962$
Merci

Mais je ne comprends pas pourquoi des que j'inclus le code dans mon
fichier
ca ne fonctionnne plus...


"Jacky" news:
Bonsoir,
A défaut de mieux essaie ceci.
'-----------
Sub rebours()
Dim i As Integer
UserForm1.Label1.Caption = 5
UserForm1.Show
For i = 5 To 0 Step -1
UserForm1.Label1.Caption = i
Application.Wait (Now + TimeValue("0:00:01"))
DoEvents
Next
Unload UserForm1
End Sub
'------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj200910/cijhmdDlLO.xls

--
Salutations
JJ


"Lionel" 4ad77934$0$985$
> bonsoir a tous,
>
> Est il possible de faire appraitre un userform durant 5 secondes (sur
> celui
> ci apparait un decompte 5, 4,3,2,1,0)puis que celui ci disparaisse
> j'avais fait ca mais cela ne fonctionne pas
>
> Dim x, i, t As Long
> t = 5
> UserForm3.Label3.Caption = t
> UserForm3.Show
> For i = 1 To 5
> x = t - i
> Application.Wait (Now + TimeValue("0:00:01"))
> UserForm3.Label3.Caption = x
> Next i
> UserForm3.Hide
>
>









Lionel
Le #20368361
MERCI ... ca fonctionne !
Lionel

"Jacky" news:
Re..

Vérifie les propriétés de l'userform
Particulièrement "ShowModal" et mettre à False
--
Salutations
JJ


"Lionel" 4ad8d08e$0$962$
> Merci
>
> Mais je ne comprends pas pourquoi des que j'inclus le code dans mon
> fichier
> ca ne fonctionnne plus...
>
>
> "Jacky" > news:
>> Bonsoir,
>> A défaut de mieux essaie ceci.
>> '-----------
>> Sub rebours()
>> Dim i As Integer
>> UserForm1.Label1.Caption = 5
>> UserForm1.Show
>> For i = 5 To 0 Step -1
>> UserForm1.Label1.Caption = i
>> Application.Wait (Now + TimeValue("0:00:01"))
>> DoEvents
>> Next
>> Unload UserForm1
>> End Sub
>> '------------
>> Voir ici
>> http://www.cijoint.fr/cjlink.php?file=cj200910/cijhmdDlLO.xls
>>
>> --
>> Salutations
>> JJ
>>
>>
>> "Lionel" >> 4ad77934$0$985$
>> > bonsoir a tous,
>> >
>> > Est il possible de faire appraitre un userform durant 5 secondes (sur
>> > celui
>> > ci apparait un decompte 5, 4,3,2,1,0)puis que celui ci disparaisse
>> > j'avais fait ca mais cela ne fonctionne pas
>> >
>> > Dim x, i, t As Long
>> > t = 5
>> > UserForm3.Label3.Caption = t
>> > UserForm3.Show
>> > For i = 1 To 5
>> > x = t - i
>> > Application.Wait (Now + TimeValue("0:00:01"))
>> > UserForm3.Label3.Caption = x
>> > Next i
>> > UserForm3.Hide
>> >
>> >
>>
>>
>>
>
>




Publicité
Poster une réponse
Anonyme