Compte à rebour

[LP]

Bonjour à tous et à toutes !!!!!!!!!!

Comment faire pour insérer un compte à rebour dans la barre d'un USF dans la barre du "caption".

Bonne journée

Merci à tous et à toutes !!!!!!!!!!!

 

[C@thy]

Salut LP,

j'ai juste un gif rigolo, que je dédie à Vériland pour qu'il le mette sur son site, à côté de mon bipbip...

C@thy

 

[sousou]

Bonjour à tous.
regardes si cet exemple peut t'aider.

 

[LP]

Bonsoir le forum

En vous remerciant pour les fichiers.

Je suis à mon bureau et je n'ai EXCEL et je me demandais, après avoir visualiser rapidement le dossier de sousou, comment rajouter le "s" de seconde après le chiffre du compte à rebour.

Bonne soirée à tous

 

[Vériland]

Voilà Cathy...c'est en ligne...lool

 

[Mytå]

Salut le Forum

Sousou modifie la macro comme ceci et tu auras seconde(s) d'ecrit

Sub maprocédure()
If compte > 1 Then
UserForm1.Caption = compte & " secondes"
Else
UserForm1.Caption = compte & " seconde"
End If
If compte = 0 Then
MsgBox "trop tard"
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), procedure:="maProcédure", schedule:=état
compte = compte - 1

End Sub

Mytå

 

[C@thy]

Merci Véri, c'est super!...Je sens qu'on le reverra dans les posts celui-là!

Bravo à Sousou et à Myta pour leur collaboration. C'est génial!
P.S. le Unload UserForm1 on le place où? (j'ai une erreur à chaque fois en essayant de le mettre).

C@thy

 

[LP]

Bonsoir le forum

Merci Myta pour la modif. afin d'avoir le mots seconde(s) affiché.

Dis moi véri, comment fais tu pour faire disparaitre le cadre autour du compte à rebour de c@thy. J'ai un cadre noir autour qui n'apparait pas sur ton post ?

Bonne soirée à tous et à toutes

NB: Bonne faite et bonne anniversaire à tous ceux qui pourraient être concernés

Patrice