macro heure automatique

doudferlic

XLDnaute Nouveau
Bonjour à tous,
Je suis en train de plancher sur un tableau qui utilisera l'heure du pc. Du coup je cherche une possibilité par Macro d'avoir l'heure du jour qui s'actualise automatiquement par exemple toute les minutes, sans avoir à fermer le fichier et à le réouvrir.
Par avance merci.
 

doudferlic

XLDnaute Nouveau
Re : macro heure automatique

Merci, cette exemple ma bien aidé. Néanmoins sais tu si il est possible d'utiliser cette horloge numérique en macro pour faire une mise en forme conditionnelle. exemple dans mon fichier.
Merci.
 

Pièces jointes

  • horloge macro.xls
    30.5 KB · Affichages: 352

Pierrot93

XLDnaute Barbatruc
Re : macro heure automatique

Bonjour,

par une MFC, pour récupérer la valeur de la "forme", je ne pense pas, mais tu peux peut être modifier la procédure ainsi, en rajoutant la ligne en bleu :

Code:
Public Sub MAJHorloge()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "MAJHorloge"
    'MAJ de l'horloge
    ThisWorkbook.Sheets(1).Shapes("Horloge").TextFrame.Characters.Text = Format(Now, "hh:mm:ss")
    [COLOR="Blue"][B]If Range("D13").Value <= Time + TimeValue("01:00:00") Then Range("D13").Interior.ColorIndex = 3[/B][/COLOR]
End Sub

bonne journée
@+
 

Discussions similaires

Réponses
26
Affichages
571