Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

filouplatchaud

XLDnaute Occasionnel
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
 
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.
 

Pièces jointes

Dernière modification par un modérateur:
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
@+
 

Pièces jointes

Dernière modification par un modérateur:
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 🙄)...
Code:
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 😎
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
5
Affichages
626
Réponses
4
Affichages
586
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
Réponses
5
Affichages
752
Réponses
38
Affichages
1 K
Retour