> Tous les forums > Forum Bureautique
 Syntaxe horaire dans une formule Logique SISujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
maryloo2005
  Posté le 17/02/2018 @ 17:15 
Aller en bas de la page 
Astucienne

Bonjour,

Dans Excel 2013, je voudrais créer une alerte avec une formule logique Si.

Par exemple dans une cellule, je fais apparaître l'heure actuelle avec une formule =MAINTENANT()

Ensuite, je donne le format HEURE à cette cellule pour que seule l'heure s'affiche dans la cellule.

Ensuite, dans la cellule d'à côté, je voudrais que s'affiche un texte "c'est l'heure de la sortie !" (ceci est un exemple) quand il est 12:00.

Je n'ai pas réussi. Que faut-il écrire ?

Merci.

Publicité
DjiDji59430
 Posté le 17/02/2018 à 17:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

=si(maintenant()-aujourdhui()=12/24;"c'est l'heure de la sortie !";"pas encore")

maintenant() ==>date + heure courante

aujourdhui() ==>date

maintenant()-aujourdhui()==>heure courante

unité de temps excel le jour un jour = 1 ==>1heure=1/24 éme de jour =>12/24 = 12 heures =midi

Cdlmnt



Modifié par DjiDji59430 le 17/02/2018 17:47
Debrief
 Posté le 18/02/2018 à 20:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Dans un mode plus simple tu peux utiliser les formules:

Affichage de l'heure en A1 par exemple: =TEXTE(MAINTENANT();"hh:mm")
Affichage heure sortie en B1 par exemple: =SI(ET(GAUCHE(A1;2)="18";DROITE(A1;2)>="00";DROITE(A1;2)<="15");"C'est l'heure de la sortie de 18h00 à 18h15";"")

Cependant le problème vient beaucoup moins des formules à utiliser que de l'évaluation / calcul de la formule donnant l'heure qui doit être refaite périodiquement par Excel pour que l'heure s'affiche dynamiquement et que l'évènement que tu cherches à annoncer (la sortie) puisse être détecté.

Pour cela tu n'as pas d'autre choix que d'ajouter du code VBA (comme celui ci-dessous pompé Internet / adapté):

  1. <Alt + F11>
    puis
  2. dans ThisWorkbook copier ce code et adapter les valeurs des constantes FeuilleHorloge et CelluleHorloge selon ta feuille Excel
    puis
  3. enregistrer le fichier en format .xlsm

'------------------------------
Const FeuilleHorloge = "Feuil1"

Const CelluleHorloge = "A1"
'-----------------------------
Dim LoopStop As Boolean
Dim HeureProchainAppel As Variant

Private Sub Workbook_BeforeClose(Cancel As Boolean)
LoopStop = True
Call LoopAction
End Sub

Private Sub Workbook_Open()
Call LoopAction
End Sub

Sub LoopAction()
'MsgBox "Enter LoopAction"

If LoopStop = True Then
'Annuler le paramétrage du OnTime programmé précédemment
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.LoopAction", Schedule:=False
Exit Sub
End If

'Action de loop
Sheets(FeuilleHorloge).Range(CelluleHorloge).Calculate 'Si pas de formule heure -> .Value = Format(Now, "HH:MM")

'Nouveau paramétrage de OnTime, 1 minute après
HeureProchainAppel = Now + TimeValue("00:01:00")
Application.OnTime HeureProchainAppel, "ThisWorkbook.LoopAction"
End Sub

Debrief
 Posté le 18/02/2018 à 21:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Pour être au plus juste dans l'heure affichée (à 10 secondes près disons) il faudrait faire un recalcul toutes les 10 secondes:

'Nouveau paramétrage de OnTime, 10 secondes après
HeureProchainAppel = Now + TimeValue("00:00:10")

En effet, si Excel n'est pas le fenêtre active, je ne sais trop si le recalcul ou l'affichage ne se fait pas, et si tu reviens sur Excel et dois attendre 1 minute pour avoir l'heure exacte c'est un un peu long. Donc 10 secondes c'est bien.
(
Je n'ai pas trouvé d'évènement qui intercepte le fait de passer d'une appli X à Excel pour ré-afficher l'heure, Workbook_Activate() et Workbook_WindowActivate() ne sont pas activés).

maryloo2005
 Posté le 18/02/2018 à 22:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonsoir,

Merci Djidji59430 et Debrief. Effectivement ce n'est pas aussi simple qu'avec une alerte de date mais je vais y arriver grâce à vos explications.

Merci encore. A la prochaine.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
34,99 €SSD Crucial BX500 240 Go à 34,99 €
Valable jusqu'au 06 Avril

Amazon propose actuellement le SSD Crucial BX500 240 Go à 34,99 €. Ce SSD offre des débits de 540 Mo/s en lecture et 500 Mo/s en écriture. Le SSD est accompagné du logiciel Acronis true image qui vous permettra de transférer tout le contenu de votre ancien disque dur sur le SSD. Il est garanti 3 ans. La livraison est gratuite.


> Voir l'offre
20,90 €Microsoft Office Professionnel 2016 Plus à 20,90 €
Valable jusqu'au 09 Avril

Le vendeur sérieux DIGITAL FR sur Amazon propose la clé d'activation légale pour Microsoft Office Professionnel 2016 Plus en français à 20,90 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2016 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2016 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Si la version 2019 fonctionne uniquement avec Windows 10, cette version 2016 fonctionne avec Windows 7, Windows 8 et Windows 10 !


> Voir l'offre
599 €PC Portable 15,6 pouces HUAWEI MateBook D (Ryzen 5 3500U, 8Go RAM, 256Go SSD) à 599 €
Valable jusqu'au 05 Avril

RueDuCommerce fait une promotion sur le PC Portable 15,6 pouces Full HD HUAWEI MateBook D qui passe à 599 € alors qu'on le trouve ailleurs à partir de 699 €. Ce portable possède un processeur AMD Ryzen 5 3500U, de 8 Go de RAM, d'un SSD 256 Go, d'un chip graphique Radeon RX Vega 8 et tourne sous Windows 10. Son poids plume de 1,53 Kg et son autonomie de 7 heures vous permettront de l'emmener facilement partout avec vous. Possède un capteur d'empreinte digitale intégré au bouton d'alimentation. Pratique pour déverrouiller son ordinateur facilement et en toute sécurité.


> Voir l'offre

Sujets relatifs
Ajouter le nom d'une feuille dans la formule somme (liaisons entre feuilles
Formule "Moyenne" dans Excel
Formule à créer dans Excel 2010
Référence de cellule variable dans une formule Excel
Open Office - formule à mettre dans une cellule
Formule dans Openoffice Calc
Décaler de 240 lignes une plage dans une formule à chaque ligne
Excel 2007 - erreur de syntaxe pour argument logique
formule dans userform
Garder valeur dans copie de formule
Plus de sujets relatifs à Syntaxe horaire dans une formule Logique SI
 > Tous les forums > Forum Bureautique