Application on time

Bonjour je ne comprends pas pourquoi mais je n'arrive pas a faire fonctionner mon application ontime qui consiste a remettre une plage de cellule en blanc tous les jours a 13h dans un premier temps puis à 21 dans un second temps

Application.OnTime TimeValue("14:35:00"), "emargement"

    Sheets("Feuil1").Select
    Range("A1:E20").Select
    Range("E20").Activate
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("E20").Select

    Range("B1").Select

Bonjour,

Est-il possible d'avoir le classeur ou un exemple ?

Merci.

en gros sur cet exemple je veux que le rectangle jaune devienne blanc tous les jours a 13H et a 21H

Bonjour

Par contre il faut que le fichier soit ouvert

Private Sub workbook_open()
Application.OnTime TimeValue("13:00:00"), "test", , True
Application.OnTime TimeValue("21:00:00"), "test", , True
End Sub

Sub test()
    Range("C4:E20").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

j'ai essayé avec le fichier ouvert en changent l'heure et en mettant par exemple 16H05 et ca ne fonctionne pas :/

up

Salut,

Attention il faut bien coller le code Private sub dans "This workbooks"

je te joins le fichier. il est fonctionnel chez moi.

Mus.

J'ai pris ton fichier j'ai mit 16H00 et j'ai attendue 2min que le temps passe et ca n'a pas fonctionné :/

peut être une option que j'ai pas coché ou quelque chose comme ca?

Bonjour le fil,

ATTENTION !

Il faut que les macros soient activées

Soit en automatique :

Fichier -> Options -> Cente de Gestion de la confidentialité

A gauche -> Paramètres ...

Paramètres des macros -> Activée

Soit manuellement dans le bandeau jaune

naubin1 a écrit :

J'ai pris ton fichier j'ai mit 16H00 et j'ai attendue 2min que le temps passe et ca n'a pas fonctionné :/

peut être une option que j'ai pas coché ou quelque chose comme ca?

Une fois le code copié dans le bon endroit enregistre et ferme le fichier puis rouvre le.

Active les macros normalement ça doit fonctionner, il n'y a pas de raison

Mus

Re,

Salut bruno

naubin1 a écrit :

J'ai pris ton fichier j'ai mit 16H00 et j'ai attendue 2min que le temps passe et ca n'a pas fonctionné :/

peut être une option que j'ai pas coché ou quelque chose comme ca?

Une fois le code copié dans le bon endroit enregistre et ferme le fichier puis rouvre le.

Active les macros normalement ça doit fonctionner, il n'y a pas de raison

Mus

Bonjour,

en changent l'heure et en mettant par exemple 16H05 et ca ne fonctionne pas

pour tester en réel met plutôt 12:59

Avec 16:00, 13:00 est déjà passé, et pour 21:00 ben... attend 5h

eric