XL 2010 Zone texte active si dépasse 19:00 [Résolu]

[guy72]

Bonjour
Est-il possible d'avoir le texte et la mise en forme d'une zone de texte qui change come la cellule A35 suivant l'heure ?
Pour l'instant, je n'y arrive pas.

 

[sylvanu]

Bonjour Guy,
En A35 essayez :

=SI(A34>19/24;"À demain";A34)

Avec A35 en format "Heure"

Et un bouton pour effacer au cas ou

Pour effacer quoi ? A34 ou A35 ?
Si c'est A35 il faut que la formule soit faite aussi en VBA, et se calcule à chaque changement d'heure.

 

[Dranreb]

Bonjour.
En A35 :

=SI(A34>19/24;"À demain";A36)

 

[gbinforme]

Bonjour à tous

Ma contribution

 

[guy72]

Quand je ferme mon fichier à partir de 19:00 il faut que j'ai le texte "À demain" dans la zone de texte.
Autrement, il ne faut pas de texte.
Est-il aussi possible d'avoir dans la zone de texte la même MFC que la cellule A35
Fond rouge police blanche et gras
Pour effacer au cas ou, c'est effacer la zone si je ne veux pas de texte à ce moment là.

 

[guy72]

Ma contribution

Ça fonctionne, mais dans A35, il faut changer "19:30" par 19/24 (comme me l'on montré les messages précédents).
Par contre quand c'est avant 19:00, il ne faut pas de texte dans la zone (c'est pourquoi, j'ai mis en fin de formule "A36" cellule vierge (mais çà ne fait rien)

 

[gbinforme]

Cela devrait fonctionner

 

[job75]

Bonjour à tous,

Ce n'est pas une Zone de texte qu'il faut utiliser mais une image, copie de la cellule A35.

Pour la créer utilisez la commande Copier => Copier comme image.

En A34 entrez l'heure limite que vous voulez, on pourra l'effacer.

En A35 créez une MFC pour les couleurs.

Et entrez en A35 cette formule :

=REPT("à demain";ET(MAINTENANT()-AUJOURDHUI()>A34;A34<>""))

A+

 

[guy72]

Ça me plais bien, mais c'est l'inverse
il faut qu'il y ait le texte dans l'image à partir de 19:00 alors que là, je l'ai en dehors de 19:00.
Dans la cellule E34, il faut la fonction =MAINTENANT() pour ne pas changer, mais ça ne fonctionne pas.

 

[job75]

il faut qu'il y ait le texte dans l'image à partir de 19:00 alors que là, je l'ai en dehors de 19:00.

Bah entrez 19:00 en A34, cette cellule sert à paramétrer l'heure limite.

 

[guy72]

Je voudrais que la cellule A34 contienne la formule =MAINTENANT(), au format heure (19:00), ce soir à partir du moment ou il sera 19:00 dans cette cellule l'image devrait avoir un fond rouge et un texte "À demain, si je fait l'essai, ce n'est pas le cas.

1) Dans le fichier en cellule 34 il y a12:00 (il ne devrait rien avoir dans l'image.
2) Dans le fichier en cellule 34 si je saisie 19:00 (il ne devrait avoir "└ demain) dans l'image.

 

[TooFatBoy]

Bonjour,

Je voudrais que la cellule A34 contienne la formule =MAINTENANT(), au format heure (19:00), ce soir à partir du moment ou il sera 19:00 dans cette cellule l'image devrait avoir un fond rouge et un texte "À demain, si je fait l'essai, ce n'est pas le cas.

Maintenant() n'est hélas pas une horloge.

 

[job75]

Maintenant() n'est hélas pas une horloge.

Tout à fait alors mettons un chrono en A34.

Le code VBA dans ThisWorkbook :

Private Sub Workbook_Open() ')
Feuil1.[A34] = Format(Now, "hh:mm:ss")
Chrono 'lqnce le processus
End Sub

Dans la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[A34] = Format(Now, "hh:mm:ss")
Chrono 'lance le processus
End Sub

Dans Module1 :

Sub Chrono()
If Feuil1.[A34] = "" Then Exit Sub
Feuil1.[A34] = Format(Now, "hh:mm:ss")
Application.OnTime Now + 1 / 86400, "Chrono"
End Sub

En A35 on a simplement :

=REPT("à demain";A34>A28)

A28 et A34 sont au format Texte.

 

[guy72]

Maintenant() n'est hélas pas une horloge.

Quand j'ouvre mon fichier, ça mets quand même bien la valeur de la cellule à jour ?
Je vais regarder ça "À demain"
Merci à vous tous.

 

[job75]

En toute rigueur il faut utiliser une variable mémorisée t dans Module1 pour éviter la création d'une pile dans le processus si l'on fait de nombreux doubles-clics :

Dim t 'mémorise la variable

Sub Chrono()
On Error Resume Next
Application.OnTime t, "Chrono", , False
If Feuil1.[A34] = "" Then Exit Sub
Feuil1.[A34] = Format(Now, "hh:mm:ss")
t = Now + 1 / 86400
Application.OnTime t, "Chrono"
End Sub