Visualiser le temps écoulé en renseignant des cellules
5 réponses
ManBas
Bonjour à tous,
Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt.
Le but serait d'avoir différentes lignes qui évoluent à la fois mais
indépendamment les unes des autres.
Merci beaucoup pour vos suggestions.
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
docm
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" wrote in message news:
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés, etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:eMR87RXjGHA.1600@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules
sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" ,
vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt.
Le but serait d'avoir différentes lignes qui évoluent à la fois mais
indépendamment les unes des autres.
Merci beaucoup pour vos suggestions.
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés, etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
ManBas
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2 en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le modifier (RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)))
"docm" a écrit dans le message de news:
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" wrote in message news:
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés, etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
Bonsoir docm,
Merci pour le conseil.
Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2 secondes
Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
End Sub
Sub Lance()
'Programmation horaire = Maintenant + 2 secondes
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
Sub Stoppe()
'Arrête le process en lui repassant la dernière programmation horaire
On Error Resume Next
Application.OnTime RunWhen, cRunWhat, , False
End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute
seule.
'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le
modifier
(RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)))
"docm" <no_spam@trust.net> a écrit dans le message de news:
ufAJ7iYjGHA.3588@TK2MSFTNGP02.phx.gbl...
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:eMR87RXjGHA.1600@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules
sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" ,
vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt.
Le but serait d'avoir différentes lignes qui évoluent à la fois mais
indépendamment les unes des autres.
Merci beaucoup pour vos suggestions.
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2 en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le modifier (RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)))
"docm" a écrit dans le message de news:
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" wrote in message news:
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés, etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
docm
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
"ManBas" wrote in message news:O#
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:O#Jbg8YjGHA.3780@TK2MSFTNGP03.phx.gbl...
Bonsoir docm,
Merci pour le conseil.
Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour
aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne
2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2 secondes
Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
End Sub
Sub Lance()
'Programmation horaire = Maintenant + 2 secondes
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
Sub Stoppe()
'Arrête le process en lui repassant la dernière programmation horaire
On Error Resume Next
Application.OnTime RunWhen, cRunWhat, , False
End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute
seule.
'Programmation horaire' doit gêner mais je ne comprends pas ce code pour
le
"docm" <no_spam@trust.net> a écrit dans le message de news:
ufAJ7iYjGHA.3588@TK2MSFTNGP02.phx.gbl...
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:eMR87RXjGHA.1600@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du
signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules
sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" ,
vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min
aprés,
etc...) jusqu'au signal d'arrêt.
Le but serait d'avoir différentes lignes qui évoluent à la fois mais
indépendamment les unes des autres.
Merci beaucoup pour vos suggestions.
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
"ManBas" wrote in message news:O#
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
ManBas
Tout fonctionne! Merci docm !
"docm" a écrit dans le message de news:
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
"ManBas" wrote in message news:O#
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
Tout fonctionne! Merci docm !
"docm" <no_spam@trust.net> a écrit dans le message de news:
O763Q7ZjGHA.4304@TK2MSFTNGP03.phx.gbl...
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:O#Jbg8YjGHA.3780@TK2MSFTNGP03.phx.gbl...
Bonsoir docm,
Merci pour le conseil.
Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour
aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne
2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2 secondes
Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
End Sub
Sub Lance()
'Programmation horaire = Maintenant + 2 secondes
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
Sub Stoppe()
'Arrête le process en lui repassant la dernière programmation horaire
On Error Resume Next
Application.OnTime RunWhen, cRunWhat, , False
End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute
seule.
'Programmation horaire' doit gêner mais je ne comprends pas ce code pour
le
"docm" <no_spam@trust.net> a écrit dans le message de news:
ufAJ7iYjGHA.3588@TK2MSFTNGP02.phx.gbl...
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:eMR87RXjGHA.1600@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du
signal
de
départ donné (userform, bouton), sur une ligne du tableur, les
cellules
sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X"
,
vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min
aprés,
etc...) jusqu'au signal d'arrêt.
Le but serait d'avoir différentes lignes qui évoluent à la fois mais
indépendamment les unes des autres.
Merci beaucoup pour vos suggestions.
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
"ManBas" wrote in message news:O#
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne 2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour le
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X" , vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
docm
Tu es le bienvenu.
"ManBas" wrote in message news:#
Tout fonctionne! Merci docm !
"docm" a écrit dans le message de news:
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
"ManBas" wrote in message news:O#
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne
2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X"
, vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
Tu es le bienvenu.
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:#wnfJ5kjGHA.4884@TK2MSFTNGP03.phx.gbl...
Tout fonctionne! Merci docm !
"docm" <no_spam@trust.net> a écrit dans le message de news:
O763Q7ZjGHA.4304@TK2MSFTNGP03.phx.gbl...
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:O#Jbg8YjGHA.3780@TK2MSFTNGP03.phx.gbl...
Bonsoir docm,
Merci pour le conseil.
Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour
aller
plus vite)(et je ne sais pas trouver la première cellule vide de la
ligne
2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit
Public RunWhen As Variant 'programmation horaire
Public Const cRunIntervalSeconds = 2 ' 2 secondes
Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX()
Range("b65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "X"
End Sub
Sub Lance()
'Programmation horaire = Maintenant + 2 secondes
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds))
Application.OnTime RunWhen, cRunWhat
End Sub
Sub Stoppe()
'Arrête le process en lui repassant la dernière programmation horaire
On Error Resume Next
Application.OnTime RunWhen, cRunWhat, , False
End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute
seule.
'Programmation horaire' doit gêner mais je ne comprends pas ce code
pour
"docm" <no_spam@trust.net> a écrit dans le message de news:
ufAJ7iYjGHA.3588@TK2MSFTNGP02.phx.gbl...
Bonjour ManBas.
C'est le temps d'utiliser la commande OnTime.
docm
"ManBas" <nonospam-j.ragni@wanadoo.fr> wrote in message
news:eMR87RXjGHA.1600@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du
signal
de
départ donné (userform, bouton), sur une ligne du tableur, les
cellules
sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de
A1="X"
,
vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min
aprés,
etc...) jusqu'au signal d'arrêt.
Le but serait d'avoir différentes lignes qui évoluent à la fois mais
indépendamment les unes des autres.
Merci beaucoup pour vos suggestions.
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X"
'Il faut émettre une nouvelle commande OnTime
RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
"ManBas" wrote in message news:O#
Bonsoir docm, Merci pour le conseil. Voilà ce que j'ai adapté avec Excelabo (intervalle de 2 secondes pour aller
plus vite)(et je ne sais pas trouver la première cellule vide de la ligne
2
en partant de la droite, donc j'ai fait l'essai en vertical):
Option Explicit Public RunWhen As Variant 'programmation horaire Public Const cRunIntervalSeconds = 2 ' 2 secondes Public Const cRunWhat = "celluleX" 'nom de la sub à exécuter
Sub celluleX() Range("b65536").End(xlUp).Offset(1, 0).Select ActiveCell.Value = "X" End Sub
Sub Lance() 'Programmation horaire = Maintenant + 2 secondes RunWhen = TimeValue(Now + TimeSerial(0, 0, cRunIntervalSeconds)) Application.OnTime RunWhen, cRunWhat End Sub
Sub Stoppe() 'Arrête le process en lui repassant la dernière programmation horaire On Error Resume Next Application.OnTime RunWhen, cRunWhat, , False End Sub
Mais je dois executer la macro à chaque fois: elle ne marche pas toute seule. 'Programmation horaire' doit gêner mais je ne comprends pas ce code pour
Bonjour à tous, Quelqu'un pourrait-il m'aider pour le projet suivant. à partir du signal
de
départ donné (userform, bouton), sur une ligne du tableur, les cellules sont
renseignées avec "X" toutes les 10 min, de gauche à droite (de A1="X"
, vers
B1="X" 10 min aprés, puis C1="X" 10 min aprés, puis D1="X" 10 min aprés,
etc...) jusqu'au signal d'arrêt. Le but serait d'avoir différentes lignes qui évoluent à la fois mais indépendamment les unes des autres. Merci beaucoup pour vos suggestions.
