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
Daniel
Bonsoir. Inspire-toi des deux macros suivantes qui décomptent les minutes dans la cellule A1:
Sub Debut() [A1] = 10 Application.OnTime Now + TimeValue("00:01:00"), "Calcul" End Sub
Sub Calcul() Heure = Now + TimeValue("00:01:00") Application.OnTime Heure, "Calcul" If [A1] > 5 Then [A1] = [A1] - 1 Else Application.OnTime Heure, "Calcul", , False End If End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se regénère. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 443012ec$0$20176$
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une cellule
ou dans plusieurs cellules par exemple: les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
sinon dans un userform?
Merci d'avance pour vos conseils
Office Pro 2003 Win XP Pro SP2
pour répondre, enlever w x y z
Thierry K
Bonsoir.
Inspire-toi des deux macros suivantes qui décomptent les minutes dans la
cellule A1:
Sub Debut()
[A1] = 10
Application.OnTime Now + TimeValue("00:01:00"), "Calcul"
End Sub
Sub Calcul()
Heure = Now + TimeValue("00:01:00")
Application.OnTime Heure, "Calcul"
If [A1] > 5 Then
[A1] = [A1] - 1
Else
Application.OnTime Heure, "Calcul", , False
End If
End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se
regénère.
Cordialement.
Daniel
"Thierry K" <thierryw.kolbx@ysnzcf.fr> a écrit dans le message de news:
443012ec$0$20176$8fcfb975@news.wanadoo.fr...
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5
minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une
cellule
ou dans plusieurs cellules
par exemple:
les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
Bonsoir. Inspire-toi des deux macros suivantes qui décomptent les minutes dans la cellule A1:
Sub Debut() [A1] = 10 Application.OnTime Now + TimeValue("00:01:00"), "Calcul" End Sub
Sub Calcul() Heure = Now + TimeValue("00:01:00") Application.OnTime Heure, "Calcul" If [A1] > 5 Then [A1] = [A1] - 1 Else Application.OnTime Heure, "Calcul", , False End If End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se regénère. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 443012ec$0$20176$
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une cellule
ou dans plusieurs cellules par exemple: les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
sinon dans un userform?
Merci d'avance pour vos conseils
Office Pro 2003 Win XP Pro SP2
pour répondre, enlever w x y z
Thierry K
Thierry K
Merci Daniel pour tes conseils
en modifiant un peu ta macro, j'ai réussi à faire défiler les secondes, mais je n'arrive pas à arrêter le compte à rebours (Bouton "Arret")en mémorisant le temps restant , puis à reprendre le décompte (Bouton "Suite").
j'ai également un autre soucis, si par hasard je relance la macro (avant qu'elle ne soit arrêtée), le comte à rebours décompte de 2 secondes en 2 secondes.
pour répondre, enlever w x y z
Thierry K "Daniel" a écrit dans le message de news:
Bonsoir. Inspire-toi des deux macros suivantes qui décomptent les minutes dans la cellule A1:
Sub Debut() [A1] = 10 Application.OnTime Now + TimeValue("00:01:00"), "Calcul" End Sub
Sub Calcul() Heure = Now + TimeValue("00:01:00") Application.OnTime Heure, "Calcul" If [A1] > 5 Then [A1] = [A1] - 1 Else Application.OnTime Heure, "Calcul", , False End If End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se regénère. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 443012ec$0$20176$
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une cellule
ou dans plusieurs cellules par exemple: les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
sinon dans un userform?
Merci d'avance pour vos conseils
Office Pro 2003 Win XP Pro SP2
pour répondre, enlever w x y z
Thierry K
Merci Daniel pour tes conseils
en modifiant un peu ta macro, j'ai réussi à faire défiler les secondes,
mais je n'arrive pas à arrêter le compte à rebours (Bouton "Arret")en
mémorisant le temps restant , puis à reprendre le décompte (Bouton "Suite").
j'ai également un autre soucis, si par hasard je relance la macro (avant
qu'elle ne soit arrêtée), le comte à rebours décompte de 2 secondes en 2
secondes.
pour répondre, enlever w x y z
Thierry K
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Os2OKjpVGHA.4900@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Inspire-toi des deux macros suivantes qui décomptent les minutes dans la
cellule A1:
Sub Debut()
[A1] = 10
Application.OnTime Now + TimeValue("00:01:00"), "Calcul"
End Sub
Sub Calcul()
Heure = Now + TimeValue("00:01:00")
Application.OnTime Heure, "Calcul"
If [A1] > 5 Then
[A1] = [A1] - 1
Else
Application.OnTime Heure, "Calcul", , False
End If
End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle
se regénère.
Cordialement.
Daniel
"Thierry K" <thierryw.kolbx@ysnzcf.fr> a écrit dans le message de news:
443012ec$0$20176$8fcfb975@news.wanadoo.fr...
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5
minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une
cellule
ou dans plusieurs cellules
par exemple:
les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
en modifiant un peu ta macro, j'ai réussi à faire défiler les secondes, mais je n'arrive pas à arrêter le compte à rebours (Bouton "Arret")en mémorisant le temps restant , puis à reprendre le décompte (Bouton "Suite").
j'ai également un autre soucis, si par hasard je relance la macro (avant qu'elle ne soit arrêtée), le comte à rebours décompte de 2 secondes en 2 secondes.
pour répondre, enlever w x y z
Thierry K "Daniel" a écrit dans le message de news:
Bonsoir. Inspire-toi des deux macros suivantes qui décomptent les minutes dans la cellule A1:
Sub Debut() [A1] = 10 Application.OnTime Now + TimeValue("00:01:00"), "Calcul" End Sub
Sub Calcul() Heure = Now + TimeValue("00:01:00") Application.OnTime Heure, "Calcul" If [A1] > 5 Then [A1] = [A1] - 1 Else Application.OnTime Heure, "Calcul", , False End If End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se regénère. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 443012ec$0$20176$
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une cellule
ou dans plusieurs cellules par exemple: les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
sinon dans un userform?
Merci d'avance pour vos conseils
Office Pro 2003 Win XP Pro SP2
pour répondre, enlever w x y z
Thierry K
Daniel
Bonsoir. Tu peux m'envoyer ton classeur, mais je ne suis pas devant mon écran ni demain, ni mercredi (enlève ZZZ à mon adresse mail) sinon poste-le en le créant sur www.cjoint.com en restant dans le même fil. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 44316616$0$20150$
Merci Daniel pour tes conseils
en modifiant un peu ta macro, j'ai réussi à faire défiler les secondes, mais je n'arrive pas à arrêter le compte à rebours (Bouton "Arret")en mémorisant le temps restant , puis à reprendre le décompte (Bouton "Suite").
j'ai également un autre soucis, si par hasard je relance la macro (avant qu'elle ne soit arrêtée), le comte à rebours décompte de 2 secondes en 2 secondes.
pour répondre, enlever w x y z
Thierry K "Daniel" a écrit dans le message de news:
Bonsoir. Inspire-toi des deux macros suivantes qui décomptent les minutes dans la cellule A1:
Sub Debut() [A1] = 10 Application.OnTime Now + TimeValue("00:01:00"), "Calcul" End Sub
Sub Calcul() Heure = Now + TimeValue("00:01:00") Application.OnTime Heure, "Calcul" If [A1] > 5 Then [A1] = [A1] - 1 Else Application.OnTime Heure, "Calcul", , False End If End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se regénère. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 443012ec$0$20176$
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une cellule
ou dans plusieurs cellules par exemple: les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
sinon dans un userform?
Merci d'avance pour vos conseils
Office Pro 2003 Win XP Pro SP2
pour répondre, enlever w x y z
Thierry K
Bonsoir.
Tu peux m'envoyer ton classeur, mais je ne suis pas devant mon écran ni
demain, ni mercredi (enlève ZZZ à mon adresse mail) sinon poste-le en le
créant sur www.cjoint.com en restant dans le même fil.
Cordialement.
Daniel
"Thierry K" <thierryw.kolbx@ysnzcf.fr> a écrit dans le message de news:
44316616$0$20150$8fcfb975@news.wanadoo.fr...
Merci Daniel pour tes conseils
en modifiant un peu ta macro, j'ai réussi à faire défiler les secondes,
mais je n'arrive pas à arrêter le compte à rebours (Bouton "Arret")en
mémorisant le temps restant , puis à reprendre le décompte (Bouton
"Suite").
j'ai également un autre soucis, si par hasard je relance la macro (avant
qu'elle ne soit arrêtée), le comte à rebours décompte de 2 secondes en 2
secondes.
pour répondre, enlever w x y z
Thierry K
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
Os2OKjpVGHA.4900@TK2MSFTNGP12.phx.gbl...
Bonsoir.
Inspire-toi des deux macros suivantes qui décomptent les minutes dans la
cellule A1:
Sub Debut()
[A1] = 10
Application.OnTime Now + TimeValue("00:01:00"), "Calcul"
End Sub
Sub Calcul()
Heure = Now + TimeValue("00:01:00")
Application.OnTime Heure, "Calcul"
If [A1] > 5 Then
[A1] = [A1] - 1
Else
Application.OnTime Heure, "Calcul", , False
End If
End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle
se regénère.
Cordialement.
Daniel
"Thierry K" <thierryw.kolbx@ysnzcf.fr> a écrit dans le message de news:
443012ec$0$20176$8fcfb975@news.wanadoo.fr...
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à
5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une
cellule
ou dans plusieurs cellules
par exemple:
les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
Bonsoir. Tu peux m'envoyer ton classeur, mais je ne suis pas devant mon écran ni demain, ni mercredi (enlève ZZZ à mon adresse mail) sinon poste-le en le créant sur www.cjoint.com en restant dans le même fil. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 44316616$0$20150$
Merci Daniel pour tes conseils
en modifiant un peu ta macro, j'ai réussi à faire défiler les secondes, mais je n'arrive pas à arrêter le compte à rebours (Bouton "Arret")en mémorisant le temps restant , puis à reprendre le décompte (Bouton "Suite").
j'ai également un autre soucis, si par hasard je relance la macro (avant qu'elle ne soit arrêtée), le comte à rebours décompte de 2 secondes en 2 secondes.
pour répondre, enlever w x y z
Thierry K "Daniel" a écrit dans le message de news:
Bonsoir. Inspire-toi des deux macros suivantes qui décomptent les minutes dans la cellule A1:
Sub Debut() [A1] = 10 Application.OnTime Now + TimeValue("00:01:00"), "Calcul" End Sub
Sub Calcul() Heure = Now + TimeValue("00:01:00") Application.OnTime Heure, "Calcul" If [A1] > 5 Then [A1] = [A1] - 1 Else Application.OnTime Heure, "Calcul", , False End If End Sub
La macro Debut lance le processus entretenu par la macro Calcul, laquelle se regénère. Cordialement. Daniel "Thierry K" a écrit dans le message de news: 443012ec$0$20176$
Bonjour à toutes et à tous
je souhaiterai avoir un compte à rebours à partir de 10 minutes jusqu'à 5 minutes (mm:ss,d)
est-ce possible d'avoir le décompte qui défile directement dans une cellule
ou dans plusieurs cellules par exemple: les minutes dans A3, les secondes dans A4, et les 1/10 dans A5
