Msgbox

[filouplatchaud]

BONJOUR A TOUS
est il possible d'afficher un message box diférent en fonction des heures de la journée ?
exemple de 8 a 12 heure "bonjour bien dormi" 14 h le "repas etait bon" 19 h "bonne soirée" 23 h "bonne nuit" etc

 

[jmps]

Re : Msgbox

Bonsoir Filou (Bin oui il est plus de 19h 😛),

Un petit fichier en pièce jointe...

EDIT : A tester selon l'heure pasque j'ai pas envie de bidouiller mon horloge 😉
Mais ça devrait marcher. A condition de mettre les Select de l'heure la plus élevée à l'heure la plus basse.

 

[jmps]

Re : Msgbox

J'ai rajouté l'heure pour faire plus joli 😉

 

[filouplatchaud]

Re : Msgbox

merci

en fait ce que je voudrais c que quand jouvre mon classeur excel le msgbox souvre
et celon l'heure le message change
bon ca y est j'ai compris j'ai tout collé dans ThisWorkBook ca fonctione merci baucoup
@+

 

[kjin]

Re : Msgbox

Bonsoir,

J'ai rajouté l'heure pour faire plus joli

Bah oui, mais faut allumer l'ordinateur et ouvrir le classeur !😱🙂
A+
kjin

 

[JNP]

Re : Msgbox

Bonjour le fil 🙂,

J'ai rajouté l'heure pour faire plus joli 😉

2010 ou 64 bit, je ne sais pas, mais en tout cas, ça a beau être joli, ça me dis uniquement "bonne soirée", et même les lendemains de fête, ça surprend 😛...
Donc j'ai tout changé, et là, ça fonctione (tout au moins chez moi 🙄)...

Sub Test()
If Time * 1 >= TimeSerial(23, 0, 0) * 1 Then
        MsgBox "Il est " & Time & ". Bonne nuit"
ElseIf Time * 1 >= TimeSerial(19, 0, 0) * 1 And Time * 1 <= TimeSerial(21, 0, 0) * 1 Then
        MsgBox "Il est " & Time & ". Bonne soirée"
ElseIf Time * 1 >= TimeSerial(14, 0, 0) * 1 And Time * 1 <= TimeSerial(15, 0, 0) * 1 Then
        MsgBox "Il est " & Time & ". Le repas était bon ?"
ElseIf Time * 1 >= TimeSerial(8, 0, 0) * 1 And Time * 1 <= TimeSerial(12, 0, 0) * 1 Then
        MsgBox "Il est " & Time & ". Bonjour, bien dormi ?"
Else
        MsgBox "Il est " & Time & ". Je sais pas quoi dire..."
End If
End Sub

Bon dimanche 😎