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.

 

[patricktoulon]

Bonsoir
perso de ce que j'ai compris
en A35
=SI(HEURE(MAINTENANT())>19;"à demain";"")
une mise en forme conditionnelle

Dans la formule de la zone de texte
=$A$35

et dans le module de la feuille dans l'event calculate et activate et déactivate
la cellule et la zone de text se mettent a jour au calculate activate , et déactivate

Private Sub Worksheet_Activate(): sameA35: End Sub

Private Sub Worksheet_Calculate(): sameA35: End Sub

Private Sub Worksheet_Deactivate(): sameA35: End Sub

Sub sameA35()
DrawingObjects("ZoneTexte 1").Interior.Color = [A35].DisplayFormat.Interior.Color
DrawingObjects("ZoneTexte 1").Font.Color = [A35].DisplayFormat.Font.Color
End Sub

on pourrait généraliser tout ça en utilisant les events globals du thisworkbook
a fin que quoi que tu fasse et ou que tu soit dans le classeur la mise a jour se fasse
ps : utilisation de A34 et A33 supprimée

@+ patrick

 

[guy72]

Merci pour votre aide à tous

 

[job75]

Bonjour guy72, le forum,

Puisque vous ne dites pas quelle solution vous allez prendre je précise :

Quand j'ouvre mon fichier, ça mets quand même bien la valeur de la cellule à jour ?

Oui mais s'il n'y a pas de chrono, quand vous ouvrez le fichier à 18:55 la cellule A34 ne se mettra pas à jour toute seule à 19:00.

A+

 

[guy72]

Bonjour guy72, le forum,

Puisque vous ne dites pas quelle solution vous allez prendre je précise :

Oui mais s'il n'y a pas de chrono, quand vous ouvrez le fichier à 18:55 la cellule A34 ne se mettra pas à jour toute seule à 19:00.

A+

Je suis en train de faire des essais, et j'ai mis ce message pour patienter.
Je viens de prendre une solution:
Je suis un peu embêté car j'ai pris finalement votre solution sans macro "message #8"(car, je n'avais pas compris la définition)

Si j'ai commencé avant 19:00, je n'ai rien, mais après 19h et que je fais enregistrer ou que je ferme le fichier, le texte apparaît.
Et quand je reprends le fichier le texte à disparut (parfait)
Tant qu'il n'est pas 19h, je peux modifier et l'envoyer sans le texte (parfait)
Ça me convient parfaitement.

Merci encore pour votre aide et j'espère pour votre compréhension.
.

 

[job75]

j'ai pris finalement votre solution sans macro "message #8"

OK, comprenez bien qu'avec cette solution la cellule A35 se met à jour :

- quand on ouvre le fichier

- quand on modifie ou valide une cellule quelconque

- quand on appuie sur la touche F9

ceci parce que la fonction MAINTENANT est volatile.