Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

guy72

XLDnaute Impliqué
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.
 

Pièces jointes

  • Zone de texte.xlsm
    11 KB · Affichages: 9
Solution
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 :
Code:
=REPT("à demain";ET(MAINTENANT()-AUJOURDHUI()>A34;A34<>""))
A+

patricktoulon

XLDnaute Barbatruc
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
VB:
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

XLDnaute Impliqué
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.
.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…