compte à rebours spécial

[benny47]

Bonjour,
J'ai un UserForm existant, et j'aimerais en cliquant sur le bouton "Aide" qu'il affiche un message indiquant :
" Attendre encore jusqu'au 1er Aout ! "
Avec un compte à Rebours en Dessous jusqu'a cette date butoir ...

Est ce Possible en VBA ?

j'aimerais l'integrer au " Private Sub CommandButton2_Click()"

Merci !

 

[Modeste geedee]

Re : compte à rebours spécial

Bonsour®benny47

j'aimerais l'integrer au " Private Sub CommandButton2_Click()"

MsgBox " Attendre jusqu'au 1er Aout ! " & Chr(10) & "encore " & DateSerial(Year(Now) - (Month(Now) > 8), 8, 1) - Int(Now()) & " jour(s)", vbInformation, "Benny47 " & Now

 

[benny47]

Re : compte à rebours spécial

Super !!!!!!!!

Merci !!!