Discussion :

[eleanaa]

Bonjour à tous,

J'ai créé une macro pour afficher l'heure en direct dans mon fichier excel. ce qui donne ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Sub Horloge()
' Variables:
 ' "Montre.xls"
 ' "heure"
 ' "A1" Workbooks("Montre.xls").Worksheets("heure").Range("A1") = TimeApplication.OnTime Now + TimeValue("00:00:01"), "Horloge"
 End Sub

et dans this workbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Private Sub Workbook_Open()
' "Horloge"
Application.OnTime Now + TimeValue("00:00:01"), "Horloge"
 End Sub

J'ai également créé un agenda hebdomadaire pour les horaires de mon magasin

J'ai ensuite créé une formule *si* pour que s'affiche la mention "ouvert/fermé" sur mon site grace à cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A1>D1;"Ouvert";"Fermé")

A1 = Heure actuelle (insérée avec la macro)
D1 = Une des case de mon agenda

Voici mes deux questions :

1. Est il possible dans une fonction si de mettre une condition entre 2 données ? Par exemple, si mon heure est comprise entre 7h et 12h alors afficher "ouvert" et inversement ?

2. Comment est ce que je peux arriver a avoir une actualisation de mon horaire dans ma formule si sans etre obligée de passer ma vie sur la touche F9 ?

Merci, j'espère avoir été claire.. .

[SfJ5Rpw8]

Bonjour,

...
Merci, j'espère avoir été claire.. .

ben non il faudrait revoir ton post en prenant en compte que toutes les lignes commençant par une apostrophe (') sont des commentaires et donc non aucun effet...

[eleanaa]

Les macros fonctionnent c'est pour la fonction Si que je galère

[SfJ5Rpw8]

Les macros fonctionnent c'est pour la fonction Si que je galère

ok il manque un saut de ligne dans le code que tu as posté ... ..

ben pour cumuler 2 conditions utilise la fonction ET( Condion1; Condition2)

[jeanmidudu]

Tu as été claire, bien que la majorité de ton code soit non fonctionnelle (réponse précédente).
Sauf que, si tu veux que ton horloge affiche l'heure en permanence, et bien c'est simple, tu ne pourras que faire tourner ton horloge. Il te faudrait une boucle infinie qui réactualise l'heure, et tu perdrais donc la main.
Peut-être que si tu mettais une temporisation assez longue tu pourras outrepasser ce problème, mais ton horloge ne fonctionnerait que par intermittence.

[eleanaa]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Horloge()
' Variables:
 ' "Montre.xls"
 ' "heure"
 ' "A1" Workbooks("Montre.xls").Worksheets("heure").Range("A1") = TimeApplication.OnTime Now + TimeValue("00:00:01"), "Horloge"
 End Sub

C'est elle de formule que j'ai mis en fait...

Merci j'avais oublié la fonction ET !!!