Faire clignoter a une date précise
Résolu
dudulleray
-
dudulleray -
dudulleray -
Bonsoir a toutes et tous, forum bonsoir
Excel 2007 VBA
J'ai dans mon userform, un Label(8) ou il est écrit une date d'expiration
Exemple 07/01/2014 et je souhaiterai svp un petit code pour que la date clignote dans ce Label(8) quand le jour sera arrivé
et que le clignotement s'arrète au bout de 15 secondes
PS: juste faire clignoter la date PAS la cellule
j'ai essayer de trouver sur le net mais je n'ai pas trouver.
Merci par avance pour votre aide
Bonne soirée a tous et merci
Cdlt Dudulle
Excel 2007 VBA
J'ai dans mon userform, un Label(8) ou il est écrit une date d'expiration
Exemple 07/01/2014 et je souhaiterai svp un petit code pour que la date clignote dans ce Label(8) quand le jour sera arrivé
et que le clignotement s'arrète au bout de 15 secondes
PS: juste faire clignoter la date PAS la cellule
j'ai essayer de trouver sur le net mais je n'ai pas trouver.
Merci par avance pour votre aide
Bonne soirée a tous et merci
Cdlt Dudulle
3 réponses
-
Bonjour,
Un exemple :
1- Le Userform_initialize entre la date du jour dans le label1.
2- dans le userform_activate (donc juste après l'ouverture de l'userform), si le label1 est égal à la date du jour, ça clignote pendant 15 secondes...
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Initialize()
Label1.Caption = Date
End Sub
Private Sub UserForm_Activate()
Dim QuinzeSecondes As Date, Texte As String
If Label1.Caption = Date Then
QuinzeSecondes = Now + TimeValue("00:00:15")
Texte = Label1.Caption
Do
If Label1.Caption <> "" Then Label1.Caption = "" Else Label1.Caption = Texte
Me.Repaint
Sleep 750
DoEvents
Loop Until Now >= QuinzeSecondes
Label1.Caption = Texte
End If
End Sub
Cordialement,
Franck -
Salut Franck
Merci de ta reponse c'est sympa, je regarde ton petit code dès ce soir
journée très charger aujourd'hui
te tient au courant de mes essais
Bonne après midi a toi
a un petit peu plus tard
Cdlt Ray -
Salut Franck
Je viens de copier ton code a mon programme
et j'ai une erreur qui s'affiche
-------
Erreur de compilation
Sub ou Fonction Non définie
---------
la ligneSleep 750
se mets en erreur avec l'apparition du message d'erreur
bonne soirée a toi et désolé d'avoir tarder
Cordialement Ray-
Bonjour Franck,
J'ai encore essayer ce matin mais non rien a faire.
Qaund je déclare le code ci-dessous, mon Excel 2007 n'en veut pas et me le corrige automatiquement
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
-----------------
Ci-dessous code corrigé par Excel (il ne veut pas de " Alias "Sleep")
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
pas encore trouver pourquoi
Peut etre a tu une idée sur la soucis ???
Merci et bon W-end a toi
Cordialement Ray
-
