macro heure automatique

[doudferlic]

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.

 

[Pierrot93]

Re : macro heure automatique

Bonsoir,

regarde ce lien, des exemples de notre ami Didier, cela pourra peut être t'aide à avancer dans ton projet.

Horloges, Timers et Clignotements - mDF Tutoriels - Téléchargements : myDearFriend! Excel Pages

bonne soirée
@+

 

[doudferlic]

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.

 

[Pierrot93]

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 :

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
@+

 

[doudferlic]

Re : macro heure automatique

merci je vais essayer

 

[doudferlic]

Re : macro heure automatique

Super, cela fonctionne , par contre si je veux mettre sur un rang précis par exemple de D13 à D25 (D13 : D25) ne marche pas.