Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Démarrer macro avec OnTime

Démarrer macro avec OnTime

5 réponses
Avatar
Max du Vuache
Bonjour,

Pourquoi est-ce que rien passe quand l'horloge indique l'heure indiquée dans
TimeValue. J'ai mis ce code dans un module:
Sub Heure()
Application.OnTime TimeValue("10:55:00"), "Test"
End Sub

Sub Test()
Range("A1") = "coucou"
End Sub

Merci de votre aide

Max
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
La cellule A1 est-elle protégée ? sinon, il n'y a pas de raison. Tu peux
tester avec :
MsgBox "coucou"
au lieu de :
Range("A1") = "coucou"
Sers-toi de l'heure de l'ordinateur pour régler timevalue, pour ne pas avoir
de surprise.
Cordialememnt.
Daniel
"Max du Vuache" <nospam du a écrit dans le message de
news: %23VpiR69%
Bonjour,

Pourquoi est-ce que rien passe quand l'horloge indique l'heure indiquée
dans TimeValue. J'ai mis ce code dans un module:
Sub Heure()
Application.OnTime TimeValue("10:55:00"), "Test"
End Sub

Sub Test()
Range("A1") = "coucou"
End Sub

Merci de votre aide

Max



Avatar
Max du Vuache
Bonjour Daniel,

Merci, mais ça ne marche toujours pas. J'ai bien vérifié la date et l'heure
de l'horloge, mais rien ce passe à l'heure indiquée après TimeValue. La
semaine prochaine j'essaierai sur un ordînateur d'un ami.

Max

"Daniel" a écrit dans le message de news:
evqqFH%23%
Bonjour.
La cellule A1 est-elle protégée ? sinon, il n'y a pas de raison. Tu peux
tester avec :
MsgBox "coucou"
au lieu de :
Range("A1") = "coucou"
Sers-toi de l'heure de l'ordinateur pour régler timevalue, pour ne pas
avoir de surprise.
Cordialememnt.
Daniel
"Max du Vuache" <nospam du a écrit dans le message de
news: %23VpiR69%
Bonjour,

Pourquoi est-ce que rien passe quand l'horloge indique l'heure indiquée
dans TimeValue. J'ai mis ce code dans un module:
Sub Heure()
Application.OnTime TimeValue("10:55:00"), "Test"
End Sub

Sub Test()
Range("A1") = "coucou"
End Sub

Merci de votre aide

Max







Avatar
Pounet95
Bonsoir,
Il faut peut-être mettre l'instruction ontime timevalue.... dans l'évènement
WorkBook_Open de ThisWorkbook
et la procédure dans un module standard ?

Exemple
dans Thisworkbook :

Private Sub Workbook_Open()
Application.OnTime TimeValue("21:00:00"), "test"
End Sub

dans un module standard

Sub test()
MsgBox "Bon ! un suppo et au lit ..."
End Sub




--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Max du Vuache" <nospam du a écrit dans le message de
news: eHxUisM$
Bonjour Daniel,

Merci, mais ça ne marche toujours pas. J'ai bien vérifié la date et
l'heure de l'horloge, mais rien ce passe à l'heure indiquée après
TimeValue. La semaine prochaine j'essaierai sur un ordînateur d'un ami.

Max

"Daniel" a écrit dans le message de news:
evqqFH%23%
Bonjour.
La cellule A1 est-elle protégée ? sinon, il n'y a pas de raison. Tu peux
tester avec :
MsgBox "coucou"
au lieu de :
Range("A1") = "coucou"
Sers-toi de l'heure de l'ordinateur pour régler timevalue, pour ne pas
avoir de surprise.
Cordialememnt.
Daniel
"Max du Vuache" <nospam du a écrit dans le message de
news: %23VpiR69%
Bonjour,

Pourquoi est-ce que rien passe quand l'horloge indique l'heure indiquée
dans TimeValue. J'ai mis ce code dans un module:
Sub Heure()
Application.OnTime TimeValue("10:55:00"), "Test"
End Sub

Sub Test()
Range("A1") = "coucou"
End Sub

Merci de votre aide

Max











Avatar
Max du Vuache
Bonjour Pounet,
OK, ça marche, merci
Max

"Pounet95" a écrit dans le message de news:
uIoWJJN$
Bonsoir,
Il faut peut-être mettre l'instruction ontime timevalue.... dans
l'évènement WorkBook_Open de ThisWorkbook
et la procédure dans un module standard ?

Exemple
dans Thisworkbook :

Private Sub Workbook_Open()
Application.OnTime TimeValue("21:00:00"), "test"
End Sub

dans un module standard

Sub test()
MsgBox "Bon ! un suppo et au lit ..."
End Sub




--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Max du Vuache" <nospam du a écrit dans le message de
news: eHxUisM$
Bonjour Daniel,

Merci, mais ça ne marche toujours pas. J'ai bien vérifié la date et
l'heure de l'horloge, mais rien ce passe à l'heure indiquée après
TimeValue. La semaine prochaine j'essaierai sur un ordînateur d'un ami.

Max

"Daniel" a écrit dans le message de news:
evqqFH%23%
Bonjour.
La cellule A1 est-elle protégée ? sinon, il n'y a pas de raison. Tu peux
tester avec :
MsgBox "coucou"
au lieu de :
Range("A1") = "coucou"
Sers-toi de l'heure de l'ordinateur pour régler timevalue, pour ne pas
avoir de surprise.
Cordialememnt.
Daniel
"Max du Vuache" <nospam du a écrit dans le message de
news: %23VpiR69%
Bonjour,

Pourquoi est-ce que rien passe quand l'horloge indique l'heure indiquée
dans TimeValue. J'ai mis ce code dans un module:
Sub Heure()
Application.OnTime TimeValue("10:55:00"), "Test"
End Sub

Sub Test()
Range("A1") = "coucou"
End Sub

Merci de votre aide

Max














Avatar
Max du Vuache
"Pounet95" a écrit dans le message de news:
uIoWJJN$
Bonsoir,
Il faut peut-être mettre l'instruction ontime timevalue.... dans
l'évènement WorkBook_Open de ThisWorkbook
et la procédure dans un module standard ?

Exemple
dans Thisworkbook :

Private Sub Workbook_Open()
Application.OnTime TimeValue("21:00:00"), "test"
End Sub

dans un module standard

Sub test()
MsgBox "Bon ! un suppo et au lit ..."
End Sub




--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Max du Vuache" <nospam du a écrit dans le message de
news: eHxUisM$
Bonjour Daniel,

Merci, mais ça ne marche toujours pas. J'ai bien vérifié la date et
l'heure de l'horloge, mais rien ce passe à l'heure indiquée après
TimeValue. La semaine prochaine j'essaierai sur un ordînateur d'un ami.

Max

"Daniel" a écrit dans le message de news:
evqqFH%23%
Bonjour.
La cellule A1 est-elle protégée ? sinon, il n'y a pas de raison. Tu peux
tester avec :
MsgBox "coucou"
au lieu de :
Range("A1") = "coucou"
Sers-toi de l'heure de l'ordinateur pour régler timevalue, pour ne pas
avoir de surprise.
Cordialememnt.
Daniel
"Max du Vuache" <nospam du a écrit dans le message de
news: %23VpiR69%
Bonjour,

Pourquoi est-ce que rien passe quand l'horloge indique l'heure indiquée
dans TimeValue. J'ai mis ce code dans un module:
Sub Heure()
Application.OnTime TimeValue("10:55:00"), "Test"
End Sub

Sub Test()
Range("A1") = "coucou"
End Sub

Merci de votre aide

Max